请教optiongroup控件的一个细节问题~

[wmawma123]

做一个单选项的optiongroup控件，在option1的click事件写代码如下：

IF this.value=1
this.Value=0
ELSE
this.value=1
ENDIF

运行测试发现，单击没反应，需要双击才能出现反选的效果，为什么？应该怎么改？

[都市夜猫]

你想干嘛？反选得用 checkbox，optiongroup 是用来多选一的

[wmawma123]

引用 1 楼 dkfdtf 的回复:

你想干嘛？反选得用 checkbox，optiongroup 是用来多选一的

因为optiongroup显示的图形比较好看，所以试试用它做个多选的组件

[都市夜猫]

要实现这样的目的？

为何会觉得左边就比右边好看？

[都市夜猫]

好吧，就算左边更好看吧，谁也管不着 你的代码问题在于：option.click 事件中，value 属性永远是 1，你可以在 click 事件第一行加上 ? this.value 看看 你必须自己记录 value 属性的值，再用代码改变它，例如： 在 option.GotFocus 中先记录原值： This.AddProperty('val_before', This.Value) 在 option.click 中再这样： This.Value = Iif(This.val_before == 0, 1, 0) This.val_before = This.Value 有一点不知你考虑过没有，这样一来，optiongroup.value 就跟实际情况没任何关系了

[wmawma123]

引用 4 楼 dkfdtf 的回复:

好吧，就算左边更好看吧，谁也管不着 你的代码问题在于：option.click 事件中，value 属性永远是 1，你可以在 click 事件第一行加上 ? this.value 看看 你必须自己记录 value 属性的值，再用代码改变它，例如： 在 option.GotFocus 中先记录原值： This.AddProperty('val_before', This.Value) 在 option.click 中再这样： This.Value = Iif(This.val_before == 0, 1, 0) This.val_before = This.Value 有一点不知你考虑过没有，这样一来，optiongroup.value 就跟实际情况没任何关系了

哦，明白……主要是需求者喜欢圆的标志，我也很无语，哈哈~~不过主要我也只是玩玩的心态，遇上这个问题，想搞清楚原因而已，谢谢夜猫老师~