大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
单选框还是复选框,单选框用Option1(XX).Value
创新互联公司提供高防物理服务器租用、云服务器、香港服务器、中国电信成都枢纽中心等
判断,true表示选中,false表示未选中
注意,添加option控件(圆形)时,最好再复制几个搞成数组,这样选中一个后其他的会自动取消,用于单选时很方便
'确定按钮中的代码,自己改下
Private Sub Command1_Click()
If Option1.Value = True Then
MsgBox "选定了" Option1.Caption
Exit Sub
End If
If Option2.Value = True Then
MsgBox "选定了" Option2.Caption
Exit Sub
End If
If Option3.Value = True Then
MsgBox "选定了" Option3.Caption
Exit Sub
End If
If Option4.Value = True Then
MsgBox "选定了" Option4.Caption
Exit Sub
End If
MsgBox "没有选"
End Sub
Private Sub Check1_Click()
End Sub
Private Sub Check2_Click()
Label2 = Label2 Check2.Caption vbCrLf
Check2.Enabled = False
End Sub
Private Sub Check3_Click()
Label2 = Label2 Check3.Caption vbCrLf
Check3.Enabled = False
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option3_Click()
Label2 = ""
Label1 = "你选择了" Option3.Caption
End Sub
前提是属性已经按你说的设置了
Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontBold = Check1(Index).Value
Case 1
Text1.FontItalic = Check1(Index).Value
Case 2
Text1.FontUnderline = Check1(Index).Value
End Select
End Sub
Private Sub Form_Load()
Text1.Text = "单选与复选框应用"
Text1.Alignment = 2
Text1.FontSize = 18
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontName = "宋体"
Case 1
Text1.FontName = "楷体"
Case 2
Text1.FontName = "黑体"
End Select
End Sub
单选框可以根据它的Value属性值来判断;
Value = True 表示被选中
Value = False 表示未被选中
复选框可以根据它的Value属性值来判断;
Value = 1 表示被选中
Value = 0 表示未被选中