vb 复选框用法

来源：百度知道 编辑：UC知道 时间：2024/05/30 01:07:17
三个复选框一个命令按钮一个文本框，当选中复选框后单击命令按钮文本中输出复选框的标题，但不断的单击命令按钮又不断输出重复的内容，而且然后取消复选框选择后再单击命令按钮区无法取消，请问高手如何处理？（一个初学者）

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

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.