也可以编写一个外部函数如下:Function optfunc(opt As Object) As Integer
目前创新互联建站已为1000+的企业提供了网站建设、域名、雅安服务器托管、网站托管、企业网站设计、兰州网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
If opt.Value = True Then optfunc = 1
If opt.Value = False Then optfunc = 0
End Function
在程序中编写该代码,即可调用函数optfunc,格式如下:变量 = optfunc(object)若单选按钮object被选中,则变量的值为1,否则为0注意:变量必须为Integer类型,object可以使任何有value值、且value有True、False值的控件
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub
asp:RadioButton ID="RadioButton1" runat="server" Text="A." GroupName="group1"/
asp:RadioButton ID="RadioButton2" runat="server" Text="B." GroupName="group1" /
asp:RadioButton ID="RadioButton3" runat="server" Text="C." GroupName="group1" /
asp:RadioButton ID="RadioButton4" runat="server" Text="D." GroupName="group1" /
div
asp:CheckBox ID="CheckBox1" runat="server" Text ="A." /
asp:CheckBox ID="CheckBox2" runat="server" Text ="B." /
asp:CheckBox ID="CheckBox3" runat="server" Text ="C." /
asp:CheckBox ID="CheckBox4" runat="server" Text ="D." /
/div
这样循环
%
Dim numi As Integer
For numi = 1 To TextBox1.Text
%
asp:RadioButton ID="RadioButton%=numi%" runat="server" GroupName="leibie%=numi%" /br /
% next %
If CType(Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If
文章题目:vb.net单选框 vb选择框
本文路径:https://www.cdcxhl.com/article26/hpijcg.html
成都网站建设公司_创新互联,为您提供全网营销推广、虚拟主机、服务器托管、动态网站、定制网站、Google
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联