单选按钮的疑惑

weibz0525 2003-11-10 05:22:18
在一个frame中放置3个option按钮和一个Button按钮
在ButtonClick事件中写代码。用Select case语句
select case ?(不知道怎么写)
case 1:
case 2:
case 3:

...全文
57 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-10
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim a As Object
For Each a In Me.Controls
If TypeName(a) = "OptionButton" Then
If a.Value = True Then
Select Case a.Name
Case "Option1"
MsgBox "123"
Case "Option2"
MsgBox "234"
Case "Option3"
MsgBox "abc"
End Select
End If
End If
Next
End Sub
脆皮大雪糕 2003-11-10
  • 打赏
  • 举报
回复
窗体上先放置第一个option,选择这个option右击选择复制,然后粘贴,这时候会问你是否创建控件数组,选择是。如此重复几次就可以得到由几个option组成的空间数组,当然,每个option的属性你都能单独设置。
假设你的窗体上一共有3个option

Private Sub Command1_Click()
Dim i As Integer '循环计数变量
Dim Index As Integer '被选中的option的索引号
For i = 0 To Option1.Count - 1
If Option1(i).Value = True Then Index = i
Next
Select Case Index
Case 0
MsgBox "第一个"
Case 1
MsgBox "第二个"
Case 2
MsgBox "第三个"
End Select
End Sub
weiweiWORKS 2003-11-10
  • 打赏
  • 举报
回复
select case index
weibz0525 2003-11-10
  • 打赏
  • 举报
回复
select case 后面应该是Integer类型,怎么写?
CityhunterID 2003-11-10
  • 打赏
  • 举报
回复
得一个一个去判断。

如果 option按钮 是数组可以简化一些.
fulongbiao 2003-11-10
  • 打赏
  • 举报
回复
if optionname.check=true then
...
else
...
end if
weibz0525 2003-11-10
  • 打赏
  • 举报
回复
?

7,778

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧