Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Big Forms
Message
De
11/10/2000 22:09:38
 
 
À
11/10/2000 19:37:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00428120
Message ID:
00428286
Vues:
24
>>You may want a form that fits very nicely into the screen with room to spare, >but still want it to be scrollable.
>>Why? I don't know. I myself haven't found a whole lot of use for scrollable >forms, except for having one bigger than the screen. And even then, most users >seem to like a tabbed form better.
>
>Where would the form scroll to if it fit on the screen?
>
>Are you saying that the window that the form is in can be smaller than the actual form? If so How?

The window's not smaller that the form. The form is smaller than the window.

It's not a matter of the form scrolling to fit the screen - the form would scroll because its contents don't fit within its borders. Think of a web page - if the contents don't fit within the borders of the current browser window, scroll bars appear.

e.g.
ox = CREATEOBJECT("form1")
ox.Show()
READ EVENTS

DEFINE CLASS form1 AS form

	Top = 0
	Left = 0
	Height = 211
	Width = 295
	ScrollBars = 2
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 24, ;
		Top = 24, ;
		Width = 100, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Height = 23, ;
		Left = 168, ;
		Top = 168, ;
		Width = 100, ;
		Name = "Text2"


	ADD OBJECT cmdresize AS commandbutton WITH ;
		Top = 60, ;
		Left = 36, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Resize", ;
		Name = "cmdResize"

	PROCEDURE Destroy
		CLEAR EVENTS
	ENDPROC

	PROCEDURE cmdresize.Click
		thisform.Height = IIf(thisform.Height=211,100,211)
	ENDPROC


ENDDEFINE
Insanity: Doing the same thing over and over and expecting different results.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform