第6章 常用内部控件.docVIP

第六章 常用内部控件 控件是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应用程序。 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) 标题(Caption) 控件名(Name) 标题(Caption) Option1 8号 Option2 16号 Check1 粗体 Check2 斜体 Check3 删除线 Check4 下划线 ? 事件过程如下： 方法一： 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