十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
也可以编写一个外部函数如下: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