重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
If CType(Controls("控件名字"), RadioButton).Checked = True Then '选中
攸县网站制作公司哪家好,找创新互联!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联从2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
Else '未选中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If
这个就关系到了。你必须使两个的name属性保持相等。这样才能有排斥效果。否则不起作用的
你可以试试了
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub
1.首先第一步在“属性”窗口中,将 RadioButton1 的 Text 属性设置为 Regular Sauce。这时候把 RadioButton1 的 Checked 属性设置为 True。然后在“属性”窗口中,接着“RadioButton2”的 Text 属性设置为 Spicy Sauce。
2、然后就可以在窗体中双击该按钮,在代码编辑器中打开 Button1_Click 事件处理程序。注意的是在 Button1_Click 事件处理程序中需要添加下面的代码:
If RadioButton1.Checked = True Then
MsgBox("You chose regular sauce")Else
MsgBox("You chose spicy sauce")
End If
3、接着就是开始运行程序。选择某一单选按钮,然后单击“定购比萨”按钮。此时将显示一个消息框指明您的选择。
尝试同时选择两个单选按钮。这时候要注意的是单选按钮是相互排斥的。当您单击一个单选按钮之后,另一个会自动清除。
一共有三个地区啊,第一就是弹出来窗口上面蓝条下面的位置,显示比如“请输入”。第二就是弹出来窗口的标题了,第三个位置就是可输入部分显示的示范内容。
如inputbox("请输入生日","标题","1986-12-11")