vb的单选框怎么用

单选框还是复选框，单选框用Option1(XX).Value

创新互联公司提供高防物理服务器租用、云服务器、香港服务器、中国电信成都枢纽中心等

判断，true表示选中，false表示未选中

注意，添加option控件（圆形）时，最好再复制几个搞成数组，这样选中一个后其他的会自动取消，用于单选时很方便

VB单选框

'确定按钮中的代码，自己改下

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

vb 单选框和复选框

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

前提是属性已经按你说的设置了

vb里单复选框，单选框：宋体楷体黑体，复选框：粗体斜体下划线，代码怎么写？

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

vb中单选框和复选框的使用

单选框可以根据它的Value属性值来判断；

Value = True 表示被选中

Value = False 表示未被选中

复选框可以根据它的Value属性值来判断；

Value = 1 表示被选中

Value = 0 表示未被选中

当前标题：vb.net单选框样式的简单介绍
分享URL：http://kswsj.cn/article/dsshhjs.html