这个就关系到了。你必须使两个的name属性保持相等。这样才能有排斥效果。否则不起作用的
景谷网站建设公司创新互联,景谷网站设计制作,有大型网站制作公司丰富经验。已为景谷上千提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的景谷做网站的公司定做!
你可以试试了
这样循环
%
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
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub