在窗体中组合框里有一组单选框,取值时一直不对!!

fxpppp · 发表于 2015-7-4 16:10

本帖最后由 fxpppp 于 2015-7-4 16:27 编辑

1.rar (25.87 KB, 下载次数: 2)

QQ截圖20150704161300.png

我的代码

Private Sub xianshi_Click()
xiandaan.Caption = daan
If OptionButtonA.Value = ture Then
xianxuanze.Caption = "A"
ElseIf OptionButtonb.Value = ture Then
xianxuanze.Caption = "B"
ElseIf OptionButtonc.Value = ture Then
xianxuanze.Caption = "C"
ElseIf OptionButtond.Value = ture Then
xianxuanze.Caption = "D"
ElseIf OptionButtone.Value = ture Then
xianxuanze.Caption = "E"
ElseIf OptionButtonf.Value = ture Then
xianxuanze.Caption = "F"
Else
MsgBox "尚未答题啊 SB"
End If
If xianxuanze.Caption = xiandaan.Caption Then
dadui.Visible = True
Else
dacuo.Visible = True
End If
End Sub

不管怎么设置,xianxuanze.Caption 都显示A....

在线等求指点

chxw68 · 发表于 2015-7-4 16:21

上传附件看看。

fxpppp · 发表于 2015-7-4 16:28

chxw68 发表于 2015-7-4 16:21
上传附件看看。

已传请指导~ 嘿嘿

chxw68 · 发表于 2015-7-4 16:46

详见附件。

chxw68 · 发表于 2015-7-4 17:01

不好意思，上面的理解错了你的意思。你错在了把True写成了ture！改过来就好了。

fxpppp · 发表于 2015-7-4 17:06

chxw68 发表于 2015-7-4 16:46
详见附件。

谢谢很快解决了呢

然后学习了你的方法我吧我代码里
If OptionButtonA.Value = ture Then 改成
If OptionButtonA.Value Then
也成功了

忘记了 OptionButtonA.Value本身等到的就是逻辑值了..
谢谢你啦

飞翔的雄狮 · 发表于 2018-7-12 17:51

chxw68老师讲的好，又学了一招，谢谢。

		自动登录	找回密码
密码			免费注册

[求助] 在窗体中组合框里有一组单选框,取值时一直不对!!