首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

怎么使用代碼添加復選框

2012-02-11 
如何使用代碼添加復選框?如何使用代碼添加復選框?@1,1...............?謝謝[解决办法]请参考:如何在表单运

如何使用代碼添加復選框?
如何使用代碼添加復選框?
@1,1   ...............?
謝謝

[解决办法]
请参考:

如何在表单运行时添加一些控件?

----------------------------------

用表单设计器做得表单,能否在运行的时候添加一些标签,并指定其属性?
---------------------------
*例如:在运行的表单中加入10个LABEL控件,在一个按钮的Click事件中:

nLeft=10
nTop=10
FOR I=1 TO 10
ControlName= "Label "+ALLTRIM(STR(I))
IF VARTYPE(THISFORM.&ControlName) <> 'O ' &&防止添加重复
THISFORM.ADDOBJECT(ControlName, "Label ")
THISFORM.&ControlName..Visible=.T.
THISFORM.&ControlName..HEIGHT=25
THISFORM.&ControlName..WIDTH=50
THISFORM.&ControlName..TOP=nTop
THISFORM.&ControlName..LEFT=nLeft
THISFORM.&ControlName..BACKCOLOR=RGB(255,255,255)
THISFORM.&ControlName..CAPTION= " "
THISFORM.&ControlName..WORDWRAP=.T.
nLeft=nLeft+60
ENDIF
ENDFOR
THISFORM.REFRESH


**************************************************************
*表单的INIT事件:这样才可以Activex控件。
*THIS.addobject( "oDATE ", "olecontrol ", "MSComCtl2.DTPicker.2 ")
*THIS.oDATE.VISIBLE=.T.

热点排行