急急急,vfp中,顶层表单和子表单问题! 5
顶层表单中,有四个按钮,分别对应四个表单,分别要输入什么事件和代码啊?最后运行时可以把四张表单按顺序显示出来?注:四张表单有连贯性的,有了表单1才有表单2,有了表单2,才...
顶层表单中,有四个按钮,分别对应四个表单,分别要输入什么事件和代码啊?最后运行时可以把四张表单按顺序显示出来?注:四张表单有连贯性的,有了表单1才有表单2,有了表单2,才有表单3,有了表单3才有表单4,求高手解答~
展开
3个回答
展开全部
可设一个公共变量或给表单集增加一个公共属性,默认值为0,通过本变量来实现控制,现假设按钮1,2,3,4分别对应表单1,2,3,4;在按钮中如下代码:
假设控制公共变量为:m.lnCurShowWindow=0
按钮1,Click事件:if m.lnCurShowWindow>0
return .f.
else
m.lnCurShowWindow=1
表单1.show
endif
按钮2,Click事件:if m.lnCurShowWindow!=1
if m.lnCurShowWindow<1
messagebox("请先点击按钮1打开表单1,再点击本按钮打开表单2,谢谢!")
endif
return .f.
else
m.lnCurShowWindow=1
表单1.hide&&隐藏表单1,如果需要的话
表单2.show
endif
按钮3\4依此类推.
假设控制公共变量为:m.lnCurShowWindow=0
按钮1,Click事件:if m.lnCurShowWindow>0
return .f.
else
m.lnCurShowWindow=1
表单1.show
endif
按钮2,Click事件:if m.lnCurShowWindow!=1
if m.lnCurShowWindow<1
messagebox("请先点击按钮1打开表单1,再点击本按钮打开表单2,谢谢!")
endif
return .f.
else
m.lnCurShowWindow=1
表单1.hide&&隐藏表单1,如果需要的话
表单2.show
endif
按钮3\4依此类推.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按钮可以输入如下命令来运行表单,可以考虑设置按钮的enable属性。来控制是否可以点击
do form 表单名
do form 表单名
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询