VisualBasic属性、方法和事件三

为用户提供选择的控件

　　　　大多数应用程序需要向用户提供选择，如简单的“Yes/No”选项、或者从包含成百个可能性的列表中进行选择。Visual Basic 包含几种用于提供选择的标准控件。下列表格总结了这些控件及其用途。

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

　　　　CheckBox 应用程序
　　　　这个例子使用一个 CheckBox 来决定文本用普通字体还是用斜体字显示。关于此例的工作版本,请参阅应用程序示例 Controls.vbp 中的 Check.frm。如图 3.10 所示，此应用程序有一个 TextBox，一个 Label，一个CommandButton 和两个 CheckBox。

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

　　　　选定粗体或斜体时，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

　　　　用选项按钮进行选项分组
　　　　选项按钮表示给用户一组两个或更多的选择。但是，不同于 CheckBox，选项按钮总是作为一组的组成部分工作的；因此，选择一个选项按钮就会立即清除该组中的其它按钮。定义一个选项按钮组，告诉用户“这是一组选择，从中选一个，而且只选一个”。
　　　　例如，在图 3.11 所示的选项按钮组中，用户只能在三个选项按钮中选择一个。

　　　　创建选项按钮组
　　　　直接放在一个窗体中（也就是不在 Frame 或 PictureBox 中）的所有的选项按钮构成一组。如果想创建别的选项按钮组，必须将其中一些选项按钮组放到 Frame 或 PictureBox 中去。
　　　　所有在给定的 Frame 中的选项按钮，组成一个独立的组，在 PictureBox 中的所有选项按钮也是如此。用这种方法生成一个独立的组时，总是要先画好一个 Frame 或 PictureBox ，然后，将选项按钮画到里面。图 3.12 显示了一个具有两个选项按钮组的窗体。

　　　　在 Frame 中画了一组选项按钮后，用户只能在组内选择一个选项按钮。要在 Frame 中为控件分组，请按照以下步骤执行：
　　　　1. 在“工具箱”中选择 Frame 控件，并在窗体上画出 Frame。
　　　　2. 在“工具箱”中选择 OptionButton 控件，并在 Frame 内画出控件。
　　　　3. 如果还想在 Frame 中增加选项按钮，重复步骤 2。先画 Frame ,再在 Frame 上画每个控件，这样移动 Frame 时控件会一起移动。如果将已经存在的控件移到 Frame 上，此控件不会和 Frame 一起移动。
　　　　注意 如果将已存在的控件分组到一个 Frame 中去，可以选择这些控件，然后剪贴到 Frame 或 Picture 控件上去。

　　　　控件的容器
　　　　当控件是独立的对象时，窗体和控件之间存在着某种父子关系。图 3.12 表明 选项按钮怎样才能包含在一个窗体或一个 Frame 控件中。
　　　　要理解容器的概念，首先要把所有的控件都想象为所在窗体的孩子。实际上，大多数控件都支持只读 Parent 属性，它的值就是控件所在的窗体。作为孩子，控件决定其在父窗体上的位置。控件的 Left 属性和 Top 属性是相对父窗体而言，且控件不能移出父窗体的边界。移动容器的同时也移动了控件，因此控件与容器的相对位置不变（即控件的 Left 属性和 Top 属性不变）。

　　　　选定或禁止选项按钮
　　　　一个选项按钮可以用以下方法选择：
　　　　1.在运行期间用鼠标单击选项按钮。
　　　　2.用Tab键定位到选项按钮组，然后在组内使用方向键（箭头键）定位选项按钮。
　　　　3.用代码将它的 Value 属性设置为 True：optChoice.Value = True
　　　　4.使用在 Label 的标题中指定的快捷键。
　　　　5.要使某个按钮成为选项按钮组中的缺省按钮，只要在设计时将其 Value属性设置成 True。它保持被选中状态，直到用户选择另一个不同的选项按钮或用代码改变它。
　　　　要禁用选项按钮，将其 Enabled 属性设置为 False。程序运行时，若此选项按钮变灰，表示无法选取此选项按钮。

　　　　Options 应用程序
　　　　图 3.13 所示的窗体使用选项按钮为一台计算机选择处理器类型和操作系统。当用户在组内选择了选项按钮后，Label 的标题就改变，反映当前的选择。关于此例的工作版本，请参阅应用程序示例 Controls.vbp 中的Options.frm。

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

　　　　Options 应用程序中的事件
　　　　选项应用程序对事件的响应如下：
　　　　　前三个选项按钮的 Click 事件为窗体级的 string 变量 strComputer 分配一个相应的描述。
　　　　　后两个选项按钮的 Click 事件为第二个窗体级变量 strSystem 分配一个相应的描述。
　　　　这个方法的关键就在于使用这两个窗体级变量，strComputer 和strSystem。这两个变量具有不同的 string 值，选项按钮的最后选定就依赖于这些值。
　　　　每次选择新的选项按钮，其 Click 事件的代码就更新相应变量的值。
　　　　Private Sub opt586_Click()
　　　　　strComputer = "Pentium"
　　　　　　Call DisplayCaption
　　　　End Sub
　　　　然后它调用一个名为 DisplayCaption 的过程，此过程把两个变量连在一起并改变 Label 的 Caption 属性。
　　　　Sub DisplayCaption()
　　　　lblDisplay.Caption = "You selected a " &
　　　　_strComputer & " running " & strSystem
　　　　End Sub
　　　　使用子过程是因为改变 Caption 属性的过程对所有五个选项按钮来说基本是一样的，只不过变量的值因情况而异。这就可以避免在每个 Click 事件中重复同样的代码。
　　　　详细信息 变量和子过程将在第五章“编程基础”中讨论。

　　　　使用 ListBox 和 ComboBox
　　　　ListBox 和 ComboBox 为用户提供了选择。按照缺省规定，选项以垂直单列方式显示，也可以设置成多列方式。如果项目数量超过 ComboBox 或ListBox 所能显示的数目，ScrollBar 自动出现在控件上。于是用户可以在列表中上下左右滚动。图 3.14 为一个单列 ListBox。

　　　　ComboBox 兼有 TextBox 和 ListBox 两者的功能。该控件允许用户通过键入文本或选择列表中的项目来进行选择。图 3.15 为一个 ComboBox。

　　　　与其它含有单值的控件相反，例如 Label 的 Caption 属性或 TextBox 的text 属性，ListBox 和 ComboBox 含有多个值或值的集合。在运行时用内置的方法增加、删除及保持集合中的值。要将几条项目添加到名为 List1 的ListBox 中，其代码如下：　　　　List1.AddItem "Paris"
　　　　List1.AddItem "New York"
　　　　List1.AddItem "San Francisco"
　　　　ListBox 和 ComboBox 是在有限空间为用户提供大量选项的有效方法。
　　　　详细信息 关于 ListBox 和 ComboBox 控件的详细信息，请参阅第七章“使用 Visual Basic 的标准控件”。