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")
网站标题:vb.net中单选框,vbs 选择框
标题网址:https://www.cdcxhl.com/article34/dssoppe.html
成都网站建设公司_创新互联,为您提供域名注册、App开发、面包屑导航、品牌网站设计、微信小程序、网站排名
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联