5、复选框（Check Box）

（1）常用属性

Caption——指定复选框所表示的选择项的内容。

value——返回或设置复选框的状态。

其值为0时(默认值，对应常数为vbUnchecked)，表示复选框没有选中；为1时（对应常数为vbchecked），表示复选框处于选中状态；为2时，表示复选框前面的v处于灰色模糊状态（对应常数为vbGrayed）。

Enabled——表示复选框当前是否可用。

其值为True时，表示复选框为正常可用状态；为False时，表示复选框处于不可用状态，此时运行时选择项内容变为雕刻状。

Check Box控件与Option Button控件有些相似，但在使用时有一个很大的不同，即CheckBox控件是彼此独立工作的，它们互不相干，没有丝毫的制约关系。只要您愿意，全选上或者一个也不选都可以。

CheckBox复选框控件有时也以组的形式出现，但即使是这样，它们仍然是毫不相干的，给它们分组只是为了使界面上的复选框显得含义清楚，比如我们总是把反映同一问题的复选框归为一组。

（2）常用事件——Click（不支持双击）事件

CheckBox控件的常用事件为Click事件，用户的单击操作即触发该事件。

（3）例子：

每次单击复选框控件时都将使其Caption属性以指示选中或未选中状态（见教材P122）。

Private Sub Check1_Click()

    If Check1.Value = 1 Then      '当check1被选中时
        Check1.Caption = "checked"
    ElseIf Check1.Value = 0 Then
        Check1.Caption = "unchecked"
    End If

End Sub

响应鼠标和键盘：

在键盘上使用[TAB]键并按[空格]键，由此将焦点转移到复选框控件上，也会触发复选框控件的Click事件。

也可以在Caption属性的一个字母之前添加连字符“&”，创建一个键盘快捷方式来切换复选框控件的选择。

如上例中：

Private Sub Check1_Click()

    If Check1.Value = 1 Then      '当check1被选中时
        Check1.Caption = "&checked"     '定义快捷键
    ElseIf Check1.Value = 0 Then
        Check1.Caption = "un&checked"
    End If

End Sub

则按“Alt+c”组合键将使控件在选中和未选中之间切换。

注意：这种快捷键定义方法对于菜单和许多其它控件同样适用。

[程序演示]        [程序下载]