如何让用户对选项按钮组做出选择后再往下执行后面的代码？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何让用户对选项按钮组做出选择后再往下执行后面的代码？

标题：如何让用户对选项按钮组做出选择后再往下执行后面的代码？

只看楼主

w7802672

等　级：新手上路
帖　子：231
专家分：0
注　册：2015-5-20

第 11 楼

得分:0

回复 8楼 sdta

也不行，仍然是不等进行选择就执行下面的代码了。

2015-06-09 20:34

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 12 楼

得分: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

等　级：新手上路
帖　子：231
专家分：0
注　册：2015-5-20

第 13 楼

得分:0

回复 12楼 sdta

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

2015-06-09 20:36

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 14 楼

得分:0

以下是引用w7802672在2015-6-9 20:36:58的发言：

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

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

坚守VFP最后的阵地

2015-06-09 20:40

w7802672

等　级：新手上路
帖　子：231
专家分：0
注　册：2015-5-20

第 15 楼

得分:0

是不是只能添加一个表单，让选项按钮组在另一个表单中，当选项按钮组的值发生变化时再关闭表单，同时返回值呀。只是这样做出来就不好看了。

2015-06-09 20:41

w7802672

等　级：新手上路
帖　子：231
专家分：0
注　册：2015-5-20

第 16 楼

得分:0

回复 14楼 sdta

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

2015-06-09 20:43

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 17 楼

得分:0

回复 15楼 w7802672

这就看你的具体需求了，一个表单能解决的问题，没必要用两个表单。

坚守VFP最后的阵地

2015-06-09 20:43

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 18 楼

得分:0

以下是引用w7802672在2015-6-9 20:43:11的发言：

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

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

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

坚守VFP最后的阵地

2015-06-09 20:45

w7802672

等　级：新手上路
帖　子：231
专家分：0
注　册：2015-5-20

第 19 楼

得分: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

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-446395-1-1.html