当前位置: 首页 > 编程语言 > vb6 > 正文

vb的属性、方法和事件(三)

时间:2007-05-06 本站收集整理

为用户提供选择的控件

大多数应用程序需要向用户提供选择,如简单的“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 的标准控件”。