|
利用第歸算法獲取表單所有控件屬性
2007-11-24 14:14
CREA CURS kjsl(kjname C(254))
iNSE INTO kjsl(kjname) VALUES('thisform')
do while !EOF()
nRECN=RECNO()
kjmc=alltrim(kjname)
=AMEMBERS(aval,&kjmc,2)
if type('aval')<>'U'
FOR EACH cval IN aval&&aval控件名稱數(shù)組，cval數(shù)組值
iNSE INTO kjsl(kjname) VALUES(kjmc+'.'+cval)
ENDFOR
endi
RELEASE aval
GO nRECN
skip
endd
brows
或者
For i = 1 To this.ControlCount
thisform.list1.AddItem(this.Controls(i).name)
Next
***************************************行者孫 (QQ:310727570)
***************************************VFP應(yīng)用程式算法群:12787940
|
