Article ID: 156737
Article Last Modified on 2/12/2007
*#DEFINE UseAddItem
LOCAL i
PUBLIC oForm
oForm = NEWOBJECT('Form')
WITH oForm
.ADDOBJECT([LST], [ListBox])
.LST.VISIBLE = .T.
#IFDEF UseAddItem
*-- Add items to the list, and
*-- disable some of them.
FOR i = 1 TO 9
.LST.ADDITEM( ;
IIF(MOD(9, i) = 0, ;
'\]' + SYS(2015), ;
SYS(2015)))
ENDFOR
#ELSE
.ADDPROPERTY('aMyArray[9]')
FOR i = 1 TO 9
STORE IIF(MOD(9, i) = 0, ;
'\' + SYS(2015), ;
SYS(2015) ) TO oForm.aMyArray[i]
ENDFOR
.LST.ROWSOURCE = [THISFORM.aMyArray]
.LST.ROWSOURCETYPE = 5 &&Array
#ENDIF
.SHOW()
ENDWITHAdditional query words: kbvfp300 kbvfp300b kbvfp500 kbvfp500a kbvfp600
Keywords: kbcodesnippet kboop kbctrl kbbug KB156737