从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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")
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图