Article ID: 148229
Article Last Modified on 9/30/2003
**** Start of ListPath Program
frmListPath = CREATEOBJECT("ListPath")
frmListPath.Show
READ EVENTS
DEFINE CLASS ListPath AS Form
AutoCenter=.T.
Width = 600
DoCreate = .T.
Caption = "ListPath"
Name = "Form1"
ADD OBJECT List1 AS ListBox WITH ;
RowSourceType = 7, ;
Height = 193, ;
Left = 24, ;
Top = 24, ;
Width = 169, ;
Name = "List1"
ADD OBJECT Label1 AS Label WITH ;
AutoSize = .T., ;
Caption = "", ;
Height = 18, ;
Left = 216, ;
Top = 24, ;
Width = 0, ;
Name = "Label1"
PROCEDURE List1.InteractiveChange
ThisForm.Label1.Caption = This.List(2)+This.Value
ENDPROC
PROCEDURE list1.click
ThisForm.Label1.Caption = This.List(2)+This.Value
ENDPROC
ENDDEFINE
******End of Program
Additional query words: VFoxWin
Keywords: kbcode KB148229