MessageBox("TextBox Valid")to be
MessageBox("TextBox Valid",0,2000)But it makes no difference. The button click doesn't fire.
>>oForm = CREATEOBJECT("Form1") >>oForm.Show >>READ events >> >>RETURN >> >>DEFINE CLASS form1 AS form >> DoCreate = .T. >> Caption = "Form1" >> Name = "Form1" >> >> ADD OBJECT text1 AS textbox WITH ; >> Height = 23, ; >> Left = 96, ; >> Top = 48, ; >> Width = 100, ; >> Name = "Text1" >> >> ADD OBJECT command1 AS commandbutton WITH ; >> Top = 120, ; >> Left = 96, ; >> Height = 27, ; >> Width = 84, ; >> Caption = "Command1", ; >> Name = "Command1" >> >> Procedure Destroy >> Clear Events >> ENDPROC >> >> PROCEDURE text1.Valid >> MessageBox("TextBox Valid") >> ENDPROC >> >> PROCEDURE command1.Click >> MESSAGEBOX("button click") >> ENDPROC >> >>ENDDEFINE >>