Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Stay on the same control when click the button!
Message
De
20/04/2005 16:13:10
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01006656
Message ID:
01006714
Vues:
23
>Hi Everybody,
>
>I have many control boxes and several buttons on my form. I would like to focus on the same text control box (that cursor is bliking in) when I push a button on my form. Is there an easy way to do that?
>
>Thank you,
>Ali

try this
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 24, ;
		Left = 256, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		TabStop = .F., ;
		Name = "Command1"


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


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


	PROCEDURE command1.When
		this.Click
		RETURN .f.
	ENDPROC


	PROCEDURE command1.Click
		WAIT WINDOW "exec code" nowait
	ENDPROC
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform