CheckBox

CheckBox表明一个特定的状态是选定 (on) 还是清除 (off)。在应用程序中使用 CheckBox 为用户提供了“True/False”或“yes/no”的选择。因为 CheckBox 彼此独立工作，所以用户可以同时选择任意多个 CheckBox。

CheckBox 应用程序

这个例子使用一个 CheckBox 来决定文本用普通字体还是用斜体字显示。

下表列出了应用程序中的对象的属性设置。

对象- 属性- 设置

Form- Name

Caption -frmCheck

Check- Box -Example

Text- box -Name

Text- txtDisplay

Some -sample- text

First -Check box Name

Caption- chkBold

&Bold

Second- Check box Name

Caption -chkItalic

&Italic

CommandButton - Name

Caption -cmdClose

&Close

选定粗体或斜体时，CheckBox 的 Value 属性值设置为 1 ，不选定时为 0。缺省 Value 值为 0，所以除非改变 Value 属性值，否则第一次显示时不会选定 CheckBox。可以用常量 vbChecked 和 vbUnchecked 表示数值 1 和 0。

check box 应用程序中的事件

当单击 CheckBox 时，会发生 CheckBox 的 Click 事件。此事件过程测试是否选定 CheckBox（即是否 Value = vbChecked）。如果选定，通过设置 Font 对象的 Bold 或 Italic 属性，将文本转换为粗体或斜体；该 Font 对象是由 TextBox 的 Font 属性返回的。

Private Sub chkBold_Click ()

If ChkBold.Value = vbChecked Then '如果选定。

txtDisplay.Font.Bold = True

Else '如果没有选定。

txtDisplay.Font.Bold = False

End If

End Sub

Private Sub chkItalic_Click ()

If ChkItalic.Value = vbChecked Then '如果选定。

txtDisplay.Font.Italic = True

Else '如果没有选定。

txtDisplay.Font.Italic = False

End If

End Sub