Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
10
COMUN/utile/ListProperty/programa1.prg
Normal file
10
COMUN/utile/ListProperty/programa1.prg
Normal file
@@ -0,0 +1,10 @@
|
||||
colMyCollection=CREATEOBJECT("Collection")
|
||||
frm1=CREATEOBJECT("Form")
|
||||
frm2=CREATEOBJECT("Form")
|
||||
colMyCollection.Add(frm1)
|
||||
colMyCollection.Add(frm2)
|
||||
colMyCollection.Add("Item 1")
|
||||
colMyCollection.Add("Item 2")
|
||||
colMyCollection.Add("Item 3")
|
||||
Form1.lstMyList.RowSourceType = 10
|
||||
Form1.lstMyList.RowSource = "colMyCollection, Caption, Name"
|
||||
Reference in New Issue
Block a user