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