Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Stay on the same control when click the button!
Message
From
20/04/2005 16:13:10
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01006656
Message ID:
01006714
Views:
22
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform