Article ID: 194575
Article Last Modified on 3/7/2005
*** Beginning of code ***
PUBLIC oform1
USE HOME(2)+"data\customer"
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
*
DEFINE CLASS form1 AS form
Top = 0
Left = 15
Height = 289
Width = 232
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT list1 AS listbox WITH ;
RowSourceType = 6, ;
RowSource = "customer.company", ;
Height = 169, ;
Left = 24, ;
Top = 24, ;
Width = 84, ;
ItemTips = .T., ;
Name = "List1"
ADD OBJECT text1 AS textbox WITH ;
Height = 25, ;
Left = 12, ;
Top = 216, ;
Width = 192, ;
Name = "Text1"
PROCEDURE list1.Click
Thisform.Text1.Value=This.Value
Thisform.Text1.Refresh
ENDPROC
ENDDEFINE
*** End of code ***
Additional query words: kbVFP600 kbOOP kbCtrl kbContainer
Keywords: kbprb KB194575