大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net单选框样式的简单介绍

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单选框样式的简单介绍
本文来源:http://dzwzjz.com/article/dsshhjs.html
在线咨询
服务热线
服务热线:028-86922220
TOP