vb用循环怎样判断一组单选按钮其中一个被选中

对命令按钮写代码判断单选按钮是否选中,如果选中弹出一个消息框,没有选中弹出另一个消息框,(单击单选按钮后,在点命令按钮实现)

第1个回答  2010-05-31
添加一个OPTION控件,复制-粘贴,建立 控件组

比如复制6个

代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption & "被选中"
Next
End Sub本回答被提问者采纳
第2个回答  2010-05-31
用数组控件
for i = option1.lbound to option1.ubound
if option1(i).value=true then
msgbox "option1(" & i & ")被选中"
exit for
end if
next i

vb用循环怎样判断一组单选按钮其中一个被选中
Private Sub Command1_Click() For i = 0 To 3 If Option1(i).Value = True Then Label1.Caption = Option1(i).Caption + "被选中。" Next iEnd Sub

vb用循环怎样判断一组单选按钮其中一个被选中
添加一个OPTION控件,复制-粘贴,建立 控件组 比如复制6个 代码如下 Private Sub Command1_Click()For i = 0 To 5 If Option1(i).Value = True Then MsgBox Option1(i).Caption & "被选中"Next End Sub

vb关于单选按钮中是Enable,value,checked还是visible决定按钮是否被选中...
checked只是value的一种状态.比如comomb1.value = checked 这样就是选中了这个按钮.visible表示控件是否可见.所以根据我上面的分析.容易的得出来.是value属性的值控制是否被选中.

VB 编程题 四个单选按钮,怎样让四个答案随机放在四个按钮上,其中一个还...
While A(0) = A(1) Or A(0) = A(2) Or A(0) = A(3) Or A(1) = A(2) Or A(1) = A(3) Or A(2) = A(3)Randomize A(0) = Int(4 * Rnd())A(1) = Int(4 * Rnd())A(2) = Int(4 * Rnd())A(3) = Int(4 * Rnd())Wend Option1.Caption = Chr(65...

VB实现点击命令按钮将对单选(复选)按钮的选择状态显示在文本框中_百...
两个单选按钮将自动成为一个组,只有一个可以是选择状态(这个和“复选”按钮是不同的),但VB没有对这个“组”的管理,所以你需要遍历这两个单选按钮(多个选项也是同样处理),假设两个单选按钮名字为:opt1,opt2 If opt1.Value = vbChecked then Text1.Text = "你选择了第一个选项"Elseif ...

vb 单选按钮与复选框的value的属性类型分别是什么?
单选按钮value只有true和false,可以根据它的Value属性值来判断,Value=True表示被选中,Value=False表示未被选中。复选框的一个特殊属性是Value属性,若Value属性的值取为0,代表复选框处于未选中状态,此时复选框的选项部分是一个空白的小方块;若Value属性的值取为1,代表复选框处于选中状态,此时复选...

vb中单选按钮为禁用 选中 不可见分别是什么意思
禁用(其实是用户无法手动改变其选定或未选定状态):Option1.Enabled = False 选中:Option1.Value = True 不可见(也就是隐藏):Option1.Visible = False

VB中在FRAME里面放入两个单选按扭如何让他开始的时候没选中
。希望运行后某一个为默认选中,其他为不选中,你可以在设计时修改属性,也可以在程序初始化时修改属性。如默认选中option2:Private Sub Form_Load()Option1.Value = False Option2.Value = True Option3.Value = False End Sub 至于用TEXT1来判断单选钮被选中,那是需要另外编程的。

VB如何设置默认的单选按钮
有一种方法,推荐下:在窗体载入后写上 你的单选名字.value=true 其它单选项.value=false 这样就只有这一个是选中的了。

vb编程题每单击命令按钮一次,就选中下一个单选按钮
代码如下:Option Explicit Private Sub cmd1_Click() If opt1(0).Value = True Then opt1(1).Value = True ElseIf opt1(1).Value = True Then opt1(2).Value = True ElseIf opt1(2).Value = True Then opt1(3).Value = True ElseIf opt1(3).Value = True Then opt1(0)....

相似回答