育才学习网1.VB中的复选框如何编程
vb复选框checkbox控件主要通过其value属性来
进行程序编写。
value属性返回或设置
复选框的状态。复选框控件有三种状态：
0-Unchecked 未选定
1-Checked 选定
2-Graved 灰色
checkbox用法实例：
在窗体添加名为
Check1、Check2、Check3的3个checkbox控件和一个command1按钮。
Private Sub Command1_Click()
If Check1.Value = 1 Then Print "check1选中
" Else Print "check1未选中"
If Check2.Value = 1 Then Print "check2选中" Else Print "check2未选中"
If Check3.Value = 1 Then Print "check3选中" Else Print "check3未选中"
End Sub
2.VB高手如何写一个复选框选择多条
'窗体设计中，可以不用label2，把地点直接加在check1(i)的caption属性
Private Sub Command1_Click()
stri = ""
For i = 0 To Check1.UBound
If Check1(i).Value = 1 Then
stri = stri & Label2(i).Caption & " "
End If
Next i
Label3.Caption = stri
End Sub
3.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