| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2259 人关注过本帖
标题:如何让用户对选项按钮组做出选择后再往下执行后面的代码?
只看楼主 加入收藏
w7802672
Rank: 1
等 级:新手上路
帖 子:231
专家分:0
注 册:2015-5-20
收藏
得分:0 
回复 8楼 sdta
也不行,仍然是不等进行选择就执行下面的代码了。
2015-06-09 20:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用w7802672在2015-6-9 20:22:57的发言:

各位没有看明白我的意思:

thisform.optiongroup2.Visible=.t.
thisform.optiongroup2.option1.Visible=.t.
thisform.optiongroup2.option2.Visible=.t.
thisform.optiongroup2.option3.Visible=.t.
&&此时需要等待做出选择
if thisform.optiongroup2.value=1
   do 1.prg
endif
if thisform.optiongroup2.value=2
   do 2.prg
endif
if thisform.optiongroup2.value=3
   do 3.prg
endif
现在的情况是还没等进行选择呢,后面的IF语句就开始执行了呀。

这个代码在那个事件中,应该放在选项按钮组的CLICK事件中

坚守VFP最后的阵地
2015-06-09 20:34
w7802672
Rank: 1
等 级:新手上路
帖 子:231
专家分:0
注 册:2015-5-20
收藏
得分:0 
回复 12楼 sdta
这个代码在另一个命令按钮的click事件中。
2015-06-09 20:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用w7802672在2015-6-9 20:36:58的发言:

这个代码在另一个命令按钮的click事件中。

放在CLICK中,代码怎么会自动执行

坚守VFP最后的阵地
2015-06-09 20:40
w7802672
Rank: 1
等 级:新手上路
帖 子:231
专家分:0
注 册:2015-5-20
收藏
得分:0 
是不是只能添加一个表单,让选项按钮组在另一个表单中,当选项按钮组的值发生变化时再关闭表单,同时返回值呀。只是这样做出来就不好看了。
2015-06-09 20:41
w7802672
Rank: 1
等 级:新手上路
帖 子:231
专家分:0
注 册:2015-5-20
收藏
得分:0 
回复 14楼 sdta
当我按这个命令按钮时就需要执行这个代码,但是我希望在执行到选项按钮组时停下来等待选择,然后再根据选择的值执行后面的代码。
2015-06-09 20:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 15楼 w7802672
这就看你的具体需求了,一个表单能解决的问题,没必要用两个表单。

坚守VFP最后的阵地
2015-06-09 20:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用w7802672在2015-6-9 20:43:11的发言:

当我按这个命令按钮时就需要执行这个代码,但是我希望在执行到选项按钮组时停下来等待选择,然后再根据选择的值执行后面的代码。

先选择 选项按钮组,再执行命令按钮的代码
如果不选择 选项按钮组, 下面的三个IF ENDIF 是不会自动执行的

[ 本帖最后由 sdta 于 2015-6-9 20:48 编辑 ]

坚守VFP最后的阵地
2015-06-09 20:45
w7802672
Rank: 1
等 级:新手上路
帖 子:231
专家分:0
注 册:2015-5-20
收藏
得分:0 
回复 18楼 sdta
在这些代码:
thisform.optiongroup2.Visible=.t.
thisform.optiongroup2.option1.Visible=.t.
thisform.optiongroup2.option2.Visible=.t.
thisform.optiongroup2.option3.Visible=.t.

之前还有很多代码,我只能在这个位置需要选项按钮组的出现,真的没有办法吗?
2015-06-09 21:01
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
以下是引用w7802672在2015-6-9 20:28:29的发言:

请帮忙看一下,我的意思是:

thisform.optiongroup2.Visible=.t.
thisform.optiongroup2.option1.Visible=.t.
thisform.optiongroup2.option2.Visible=.t.
thisform.optiongroup2.option3.Visible=.t.
&&此时需要等待做出选择
if thisform.optiongroup2.value=1
   do 1.prg
endif
if thisform.optiongroup2.value=2
   do 2.prg
endif
if thisform.optiongroup2.value=3
   do 3.prg
endif
现在的情况是还没等进行选择呢,后面的IF语句就开始执行了呀。

属性和事件要分开来处理
1、适当时候设置:
thisform.optiongroup2.Visible=.t.
thisform.optiongroup2.option1.Visible=.t.
thisform.optiongroup2.option2.Visible=.t.
thisform.optiongroup2.option3.Visible=.t.

2、当用户改变选择时,触发optiongroup的InteractiveChange事件
在optiongroup的InteractiveChange事件中写代码:
do case
case this.value=1
   do p1.prg
case this.value=2
   do p2.prg
case this.value=3
   do p3.prg
endcase
2015-06-09 21:01
快速回复:如何让用户对选项按钮组做出选择后再往下执行后面的代码?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031157 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved