第6章 常用内部控件

第六章 常用内部控件

控件是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应用程序。

Visual Basic 中的控件分为三类：标准控件(或称内部控件)、ActiveX控件和可插入对象。启动Visual Basic后，工具箱中只有标准控件，共20个。在第一章，我们介绍了文本框、标签和命令按钮等标准控件的用法，本章将系统和深入地介绍其它部分标准控件的用法，包括：单选按钮、复选框、框架、列表框、组合框、水平滚动条、垂直滚动条、时钟、图片框、图像框、直线和形状。本章还将介绍与键盘和鼠标有关的事件过程。

6.1 单选按钮和复选框

在应用程序中，有时候需要用户做出选择，这些选择有的很简单，有的则比较复杂。为此，Visual Basic 提供了几个用于选择的内部控件，包括单选按钮、复选框、列表框和组合框。

单选按钮(OptionButton)的左边有一个○。单选按钮必须成组出现，彼此相互排斥，用户在一组单选按钮中必须并且最多只能选择一项。当某一项被选定后，其对应的圆圈中出现一个黑点⊙。单选按钮主要用于在多种功能中由用户选择一种功能的情况。

复选框(CheckBox)的左边有一个□，复选框也称检查框。复选框列出可供用户选择的选项彼此独立工作，用户根据需要选定其中的一项或多项。当某一项被选中后，其左边的小方框就变成，再次单击，则又变成□。

1、主要属性 (1) Caption 属性

设置单选按钮或复选框的文本注释内容，即单选按钮或复选框边上的文本标题。 (2) Alignment 属性

设置标题和按钮显示位置。

0：控件按钮在左边，标题显示在右边，默认设置。 1：控件按钮在右边，标题显示在左边。 (3) Value 属性 ·单选按钮

True：单选按钮被选定。

False：单选按钮未被选定，默认设置。 ·复选框

0(或Unchecked)：复选框未被选定，默认设置。 1(或Checked)：复选框被选定。

2(或Grayed)：复选框变成灰色，禁止用户选择，但在运行时仍可选择。 (4) Style 属性

指定单选按钮或复选框的显示方式，用于改善视觉效果。 0(或Standard)：标准方式。 1(或Graphical)：图形方式。 2、方法

单选按钮和复选框的常用方法是SetFocus方法。

·单选按钮

触发一次Click事件，并将Value属性设置为True。 ·复选框

使复选框得到焦点，但不触发Click事件，也不改变Value属性值。

3、事件

单选按钮和复选框都能接收Click事件。 ·单选按钮

单击单选按钮时，若它原来没被选中，则选中该项，Value属性变成True，并执行单 击事件过程代码。若它原来已选中，则不再执行单击事件过程代码。

·复选框

单击复选框时，无论其原先是否被选中，都将触发一次Click事件。如果单击未选中 的复选框时，Value属性变为1。如果单击已选中的复选框时，Value属性变为0。如果单击变灰的复选框时，Value属性变为0。

【例6.1】 通过单选按钮和复选框设置文本框的字体。

运行界面如图6-1所示。在窗体上放置一个文本框，一个按钮，2个单选按钮和4个复选框，文本框的Text属性设置为“井冈山大学”。 窗体上单选按钮和复选框的属性如表6-1所示。

表6-1 控件属性 控件名(Name) Option1 Check1 Check3

标题(Caption) 8号 粗体

删除线

控件名(Name) Option2 Check2 Check4

标题(Caption) 16号 斜体

下划线

事件过程如下： 方法一：

Private Sub Command1_Click() If Option1.Value Then Text1.Font.Size = 8 Else

Text1.Font.Size = 16 End If

If Check1.Value = 1 Then Text1.Font.Bold = True Else

Text1.Font.Bold = False 图6-1 单选按钮和复选框 End If

If Check2.Value = 1 Then Text1.Font.Italic = True Else

Text1.Font.Italic = False End If

If Check3.Value = 1 Then Text1.Font.Strikethrough = True Else

Text1.Font.Strikethrough = False

End If

If Check4.Value = 1 Then Text1.Font.Underline = True Else

Text1.Font.Underline = False End If End Sub

方法二：

Private Sub Command1_Click() Text1.Font.Size = IIf(Option1, 8, 16) Text1.Font.Bold = IIf(Check1 = 1, True, False) Text1.Font.Italic = IIf(Check2 = 1, True, False) Text1.Font.Strikethrough = IIf(Check3 = 1, True, False) Text1.Font.Underline = IIf(Check4 = 1, True, False) End Sub

6.2 框架

框架(Frame)是一个容器控件，用于将屏幕上的对象分组。可以把不同的对象放在一个框架中，框架提供了视觉上的区分和总体的激活/屏蔽特性。

单选按钮的一个特点是当选定其中的一个，其余会自动关闭。当需要在同一个窗体中建立几组相互独立的单选按钮时，就需要用框架(Frame)将每一组单选按钮框起来，这样在一个框架内的单选按钮为一组，对他们的操作不会影响框架以外的单选按钮。

在窗体上创建框架及其内部控件时，必须先建立框架，然后在其中建立各种控件。创建控件不能使用双击工具箱上工具的自动方式，而应该先单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。如果要用框架将现有的控件分组，则应先选定控件，将它们剪切(Ctrl+X组合键)到剪贴板，然后选定框架并将剪贴板上的控件粘贴(Ctrl+V组合键)到框架上。

1、主要属性 (1) Caption 属性

由Caption属性值设定框架左上方的标题名称。如果Caption为空字符，则框架为封 闭的矩形框，但是框架中的控件仍然和单纯用矩形框起来的控件不同。 (2) Enabled 属性

默认为True。框架内的所有控件将随框架一起移动、显示、消失和屏蔽。当将框架的Enabled属性设置为False时，程序运行时该框架在窗体中的标题正文为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。

(3) Visible 属性

若框架的Visible属性为False，则在程序执行期间，框架及其内部所有控件全部被隐 藏起来,用户看不见。

2、事件

框架可以响应Click和DblClick事件。但是，在应用程序中一般不需要编写有关框架的事件过程。

【例6.2】 框架用法示例。

如图6-2所示，在窗体中建立了两组单选按钮，分别放在标题为“字体”和“大小”的框架中，还建立了一组复选框，标题为“效果”。因此，当用户选定了字体后，还可以选择字号及效果。各控件属性见表6-2。

表6-2 控件属性

Name属性 Option1 Option2 Option3 Option4 Check1 Check2 Check3 Check4

Command1 Command2

Caption属性值

宋体 黑体 8号 16号 粗体 斜体 删除线 下划线 确定 结束

Name属性 Form1 Text1

Frame1 Frame2 Frame3 Option2

Option4 Check1 Check4

属性值 Caption=框架示例 Text=井冈山大学 Caption=字体 Caption=大小 Caption=效果 Value=True Value=True Value=1 Value=1

事件过程如下：

Private Sub Command1_Click()

Text1.Font.Name = IIf(Option1, \宋体\黑体\ Text1.Font.Size = IIf(Option3, 8, 16) Text1.Font.Bold = IIf(Check1 = 1, True, False) Text1.Font.Italic = IIf(Check2 = 1, True, False) Text1.Font.Strikethrough = IIf(Check3 = 1, True, False) Text1.Font.Underline = IIf(Check4 = 1, True, False) End Sub

Private Sub Command2_Click()

End 图6-2 框架 End Sub

6.3 列表框和组合框

利用列表框，可以选择所需要的项目，而组合框可以把一个文本框和列表框组合为单个控制窗口。

列表框(ListBox)用于在多个项目中做出选择的操作。在列表框中可以有多个项目供选择，用户可以通过单击某一项选择自己所需要的项目。如果项目太多，超出了列表框设计的长度，则Visual Basic会自动给列表框加上垂直滚动条。为了能正确操作，列表框的高度应不少于3行。列表框最主要的特点是只能从其中选择，可多选，但不能直接编辑修改其中的内容。图6-3 显示的是两种不同风格的有10个选择项的列表框(左图名称为List1)，它们的Style属性分别为0和1。

组合框(ComboBox)是组合列表框和文本框的特性而成的控件。也就是说，组合框是一种独立的控件，但它兼有列表框和文本框的功能。组合框在列表框中列出可供用户选择的选项，当用户选定某项后，该项内容

自动装入文本框中，但只能单选。当列表框中没有所需选项时，除了下拉式列表框(Style属性为2)之外都允许在文本框中用键盘输入，但输入的内容不能自动添加到列表框中。图6-4显示的是三种不同风格的组合框：下拉式组合框、简单组合框和下拉列表框，它们的Style属性分别为0、1和2。

图6-3 列表框 图6-4 组合框

1、列表框和组合框共有的主要属性 (1) List属性

该属性是一个字符型数组，存放列表框或组合框的选项。它的项目引用格式：对象名.List(i),其中，对象名为列表框或组合框的名称；i为List数组的下标，它的取值范围为0～ListCount－1，也就是说List数组的下标是从0开始的，即第一个选项的下标是0，最后一个选项的下标是ListCount－1。例如，在图6-3左图中，List1.List(0)的值是“学生”，List1.List(3)的值是“警察”。

在设计模式下，可通过属性窗口的List下拉列表框输入选项内容，每输入一项后，按Ctrl+Enter键，便可继续输入下一个选项，按Enter键即可结束列表内容的输入。如图6-5所示。

List属性既可以在设计模式下设置，也可以在程序中设置或引用。 (2) ListCount属性 图6-5 List属性 该属性只能在程序中设置或引用。

ListCount的值表示列表框或组合框中选项的个数，即List数组中元素的个数。ListCount－1表示最后一选项的下标。

(3) ListIndex属性

该属性只能在程序中设置或引用。

ListIndex属性用于返回或设置列表中当前被选定的选项的下标，第一个选项的下标为0，最后一个选项的下标为ListCount－1，如果未选中任何选项，则ListIndex为－1。在图6-3左图中，“学生”被选定，List1.ListIndex的值为0。

(4) Style属性

该属性指示控件的显示类型和行为，运行时是只读的。

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新IT计算机第6章 常用内部控件 全文阅读和word下载服务。