VB教程：复选框（CheckBox）

5、复选框(Check Box)

(1)共同属性

标题-指定由复选框表示的选项的内容。

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

当其值为0(默认值，对应的常数为vbUnchecked)时，表示该复选框未被选中；1(对应常数为vbchecked)，表示复选框被选中；当为2时，表示复选框前面的V处于灰色模糊状态(对应的常数为VB gray)。

enabled-指示复选框当前是否可用。

当其值为True时，表示复选框正常可用；如果为False，则意味着该复选框不可用，此时，运行时选择项的内容会变成雕刻的。

复选框控件类似于选项按钮控件，但使用时有一个很大的区别，就是复选框控件相互独立工作，相互之间没有任何关系，没有任何限制。如果你喜欢，你可以选择全部或没有。

CheckBox复选框控件有时以组的形式出现，但即使如此，它们仍然是不相关的。将它们分组只是为了让界面上的复选框显得清晰。例如，我们总是将反映相同问题的复选框分组。

(2)常见事件-点击(不支持双击)事件。

CheckBox控件的常见事件是Click事件，由用户的点击操作触发。

(3)例子:

每当你点击复选框控件时，它的Caption属性将显示选中或未选中状态(见教材P122)。

私有子检查1_Click()

Check1.value = 1then '当Check1被选中时
check 1 . caption = " checked "
else if check 1 . value = 0 then
check 1 . caption = " unchecked "
end if

末端接头

响应鼠标和键盘:

使用键盘上的[TAB]键并按下[空键，从而将焦点转移到复选框控件，也将触发复选框控件的Click事件。

还可以在Caption属性中的字母前添加连字符“&”，以创建切换复选框控件选择的键盘快捷键。

在上面的例子中:

私有子检查1_Click()

Check1.value = 1then '当Check1被选中时
Check1。Caption = "&checked " '定义快捷键
else if check 1 . value = 0 then
check 1 . caption = " un & checked "
end if

末端接头

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

注意:这种快捷键定义方法也适用于菜单和许多其他控件。