Question

VB中的复选框如何编程？

它有无text属性呢？value是什么啊

Answer 1

CheckBox 控件

组中可以使用 CheckBox 控件显示多项选择，从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置
CheckBox 的值。

在一个窗体中可以同时选择任意数量的 CheckBox 控件。

以下代码会告诉CheckBox 控件单选或多选的状态

Option Explicit

Private Sub Check1_Click()
    Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub

Private Sub Check2_Click()
    Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub

Private Sub Check3_Click()
    Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub

Answer 2

Dim 判断1 As Boolean, 判断2 As Boolean, 判断3 As Boolean
Private Sub Check1_Click()
If Check1.Value = 1 Then 判断1 = True
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then 判断2 = True
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then 判断3 = True
End Sub

Private Sub Command1_Click()
If 判断1 = True Then Text1.Text = Text1.Text & Check1.Caption
If 判断2 = True Then Text1.Text = Text1.Text & Check2.Caption
If 判断3 = True Then Text1.Text = Text1.Text & Check3.Caption
End Sub

Private Sub Form_Load()
判断1 = fasle
判断2 = fasle
判断3 = fasle
End Sub

Answer 3

假设复选框名为XX，用if语句编程
if xx.value=ture then
'写选中的代码
else
'写未选中代码
endif

Answer 4

添加一个复选框
if check1.value=1 then
'复选框选中，进行如下操作

else
'复选框未选中，进行如下操作

endif

Answer 5

无Text属性，有Caption属性
Value可以是：vbUnchecked or vbChecked or vbGrayed