那么,命令为:
if thisform.check1.value==1 and thisform.check2.value==0 and thisform.check3.value==1
thisform.release
do form 下一表单的表单名.scx
else
thisform.check1.value=0
thisform.check2.value=0
thisform.check3.value=0
endif
1、 新建一张表单
2、单击“表单控件”工具栏中的“复选框”
3、在表单中绘制三个“复选框”。
4、运行结果
5、如果在Form的ini里写上设置初值代码
thisform.check1.Value =1(1为选中,0为没选中)
运行结果
6、想要取选框的值也可参照此代码。
要设置菜单为由顶层表单调用。选择“显示”\“常规选项”,在常规选项对话框右下角选择“顶层表单”复选框,再确定。然后将菜单生成菜单程序。选择“菜单”\“生成”
再创建表单为顶层表单,在表单的ShowWindows属性为“2-作为顶层表单”。双击表单,在代码窗口,并在过程列表中选择“Init”事件,输入代码为:
do
菜单程序文件名
with
this,.t.
再运行表单就可以了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)