用 CheckBox 选择单个选项

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

图 3.9 CheckBox

CheckBox 应用程序

这个例子使用一个 CheckBox 来决定文本用普通字体还是用斜体字显示。关于此例的工作版本,请参阅应用程序示例 Controls.vbp 中的 Check.frm。

如图 3.10 所示，此应用程序有一个 TextBox，一个 Label，一个 CommandButton 和两个 CheckBox。

图 3.10 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