第6章常用控件

1、第第6 6章章 常用控件常用控件本章内容及要求：本章内容及要求： 掌握常用控件单选钮掌握常用控件单选钮(OptionButton)、检查框、检查框(CheckBox)、 框架框架(Frame)、滚动条、滚动条(ScrollBar)、 列表框列表框(ListBox)、组合框（、组合框（ComboBox)、时钟、时钟(Timer)等的常用、等的常用、 属性、重要事件和方法的使用；属性、重要事件和方法的使用；6.1 单选钮、检查框及框架单选钮、检查框及框架6.1.1单选钮单选钮 1. 用途用途 单选钮（单选钮（OptionButton）也称作选择按钮。一组单选也称作选择按钮。一组单选钮控件可以提供一

2、组彼此相钮控件可以提供一组彼此相互排斥的选项，任何时刻用互排斥的选项，任何时刻用户户只能从中选择一个选项只能从中选择一个选项，实现一种实现一种“单项选择单项选择”的功的功能，被选中项目左侧圆圈中能，被选中项目左侧圆圈中会出现一黑点。会出现一黑点。单选按钮2. 重要属性重要属性（1） Caption：文本标题。设置单选钮的文文本标题。设置单选钮的文本注释内容。本注释内容。（2） Alignment属性属性： 0：Left Justify(缺省缺省)控件钮在左边，控件钮在左边，标题显示在右边。标题显示在右边。 1：Right Justify 控件钮在右边，标题显控件钮在右边，标题显示在左边。示在左

3、边。（3）Value 属性属性True: 单选钮被选定单选钮被选定False: 单选钮未被选定（单选钮未被选定（缺省设置）缺省设置） 3. 方法方法 SetFocus方法方法是单选钮控件最常用的方法，可以在代是单选钮控件最常用的方法，可以在代码中通过该方法将码中通过该方法将Value属性设置为属性设置为True。 与命令按钮相同，使用该方法之前，必须要保证单选与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即钮处于可见和可用状态（即Visible与与Enabled属性值均为属性值均为True）。）。4. 事件事件 Click事件是单选钮控件最基本的事件，一般情况用户事件是单

4、选钮控件最基本的事件，一般情况用户无需为单选钮编写无需为单选钮编写Click事件过程，因为当用户单击单选钮事件过程，因为当用户单击单选钮时，它会自动改变状态。时，它会自动改变状态。 例例8.1 单选钮示例（单选钮示例（Pg.90）。）。 例6.3.1 设计一个程序，用户界面由四个单选按钮、一个标签和一个命令按钮组成，程序运行后，用户单击某个单选按钮，就可将它对应的内容（星期、日期、月份或年份）显示在标签框中。Private Sub OptWeek_Click() W = Weekday(Now) If W = 1 Then LabelShow.Caption = 今天是星期日 Else Lab

5、elShow.Caption = 今天是星期 + Str(W - 1) End IfEnd SubWeekDay是一个函数，WeekDay(Now)的值是一个数字字符，表示当天是星期几，如是星期三则此函数值为“4”，在标签框中显示出“今天是星期3”的信息。Private Sub OptDay_Click()D$ = Day(Now)Label1.Caption = 今天是今天是 + D$ + 号号End Sub单击单击“月份月份”单选钮，则执行下面的过程，其中单选钮，则执行下面的过程，其中Month是月份函数。是月份函数。Private Sub OptMonth_Click()M$ = Mon

6、th(Now)Label1.Caption = 这月是这月是 + M$ + 月份月份End Sub单击单击“年份年份”单选钮，则执行下面的过程，其中单选钮，则执行下面的过程，其中Year是年份函数。是年份函数。Private Sub OptYear_Click()Y$ = Year(Now)Label1.Caption = 今年是今年是 + Y$ + 年年End Sub这里，这里，WeekDay、Day、Month、Year都是日期型函数，加入参数都是日期型函数，加入参数Now，表示当前星期、日期、月份、年份。表示当前星期、日期、月份、年份。单击单击“结束结束”按钮时执行以下程序段：按钮时执行

7、以下程序段：Private Sub CmdEnd_Click()EndEnd Sub6.1.2 检查框检查框1. 用途用途 检查框（检查框（CheckBox）也称）也称作复选框、选择框。一组检查框作复选框、选择框。一组检查框控件可以提供多个选项，它们彼控件可以提供多个选项，它们彼此独立工作，所以用户可以同时此独立工作，所以用户可以同时选择任意多个选项，实现一种选择任意多个选项，实现一种“不定项选择不定项选择”的功能。选择的功能。选择某一某一选项后，该控件将显示选项后，该控件将显示，而清，而清除此选项后，除此选项后，消失。消失。2. 重要属性重要属性 Caption、Alignment与单选钮相

8、同与单选钮相同检查框 检查框的检查框的Value 属性与单选按钮不同，其值为数值型数属性与单选按钮不同，其值为数值型数据，可取据，可取 0 , 1 , 2 检查框检查框0-Unchecked：未被未被选定选定1-Checked：选定：选定2-Grayed：灰色，禁止选择灰色，禁止选择 单选钮单选钮True: True: 单选钮被单选钮被选定选定False: False: 单选钮未被单选钮未被选定，选定， 缺省设置缺省设置 检查框与单选按钮检查框与单选按钮Value 属性的比较属性的比较方法方法每调用一次每调用一次SetFocus方法就会触发一次方法就会触发一次Click事件事件(错错)。val

9、ue每改变一次就会触发一次每改变一次就会触发一次Click事件。事件。4. 事件事件 Click事件是检查框控件最基本的事件。用户一般无事件是检查框控件最基本的事件。用户一般无需为检查框编写需为检查框编写Click事件过程，但其对事件过程，但其对Value属性值的改属性值的改变遵循以下规则：变遵循以下规则：单击未选中的检查框时，单击未选中的检查框时，Value属性值变为属性值变为0；单击已选中的检查框时，单击已选中的检查框时，Value属性值变为属性值变为1；单击变灰的检查框时，单击变灰的检查框时，Value属性值变为属性值变为0。 例6.3.2 设计一个程序，用户界面由一个标签框、一个文本框

10、、三个检查框组成。程序开始运行后，用户在文本中输入一段文字，然后按需要单击各检查框，用以改变文本的字体、字形及大小。Private Sub ChkFont_Click() If ChkFont.Value = 1 Then TxtPassage.FontName = 楷体_GB2312 Else TxtPassage.FontName = 宋体 End IfEnd SubPrivate Sub ChkItalic_Click()If ChkItalic.Value=1 ThenTxtPassage.FontItalic=-1ElseTxtPassage.FontItalic=0End IfEn

11、d SubPrivate Sub ChkSize_Click()If ChkSize.Value=1 ThenTxtPassage .FontSize=16ElseTxtPassage.FontSize=8End IfEnd Sub6.1.3 框架框架 (Frame) Frame 控件为控件提供可标识的分组。当需要在同一控件为控件提供可标识的分组。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把单选钮框框起来，把 OptionButton 控件分成几组，如下形控件分成几组，如下形式。式。 框架设Caption

12、为 字体框架内控件的创建方法：框架内控件的创建方法： 为了将控件分组，首先需要绘制为了将控件分组，首先需要绘制 Frame 控件，然后控件，然后绘制绘制 Frame 里面的控件。这样就可以把框架和里面的控里面的控件。这样就可以把框架和里面的控件同时移动。如果在件同时移动。如果在 Frame 外部绘制了一个控件并试图外部绘制了一个控件并试图把它移到框架内部，那么控件将在把它移到框架内部，那么控件将在 Frame 的上部，这时的上部，这时需分别移动需分别移动 Frame 和控件和控件方法方法1：单击工具箱上的工具，然后用出现的单击工具箱上的工具，然后用出现的“+”指指针，在框架中适当位置拖拉出适当

13、大小的控件。针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上工具的自动方式。不能使用双击工具箱上工具的自动方式。 方法方法2：将控件将控件“剪切剪切”(Ctrl+X)到剪贴板，然后选中到剪贴板，然后选中框架，使用框架，使用 (Ctrl+V)命令粘贴到框架内。命令粘贴到框架内。重要属性重要属性1. Caption属性：框架标题属性：框架标题2 Enabled属性：属性：缺省为缺省为True False：标题呈灰色，：标题呈灰色，不允许对框架内的所有对象不允许对框架内的所有对象 进行操作进行操作。3. Visible属性：属性： True：框架及其控件可见。：框架及其控件可见。 Fa

14、lse：框架及其控件被隐含起来。：框架及其控件被隐含起来。事件：事件：框架可以响应的事件框架可以响应的事件ClickClick、DblClickDblClick一般不需要有关框架的事件过程。一般不需要有关框架的事件过程。例例8.2 单选钮、检查框及框架用法示例。单选钮、检查框及框架用法示例。 Pg.187程序代码如下：Private Sub OptFont1_Click()Label1.FontName = 宋体End Sub如果单击“字体框架”中的“宋体”单选钮，则使标签框中的FontName属性值被设置为宋体，标签框中的文字立即变成宋体字。以下各过程的思路与此类似。Private Sub

15、OptFont2_Click()Label1.FontName = 隶书End SubPrivate Sub OptFont3_Click()Label1.FontName = 幼圆End SubPrivate Sub OptCol1_Click()Label1.ForeColor = QbColor(9) QbColor（9）是蓝色End SubPrivate Sub OptCol2_Click()Label1.ForeColor = QbColor(13) QbColor（13）是紫色End SubPrivate Sub OptCol3_Click()Label1.ForeColor =

16、QbColor(10) QbColor（10）是绿色End SubPrivate Sub OptSize1_Click()Label1.FontSize = 14End SubPrivate Sub OptSize2_Click()Label1.FontSize = 18End SubPrivate Sub OptSize3_Click()Label1.FontSize = 22End SubPrivate Sub Command1_Click()Label1.Caption = 欢迎你使用End SubPrivate Sub Command2_Click()EndEnd Sub6.2 滚动条

17、滚动条 (ScrollBar)1. 用用 途途 滚动条控件（滚动条控件（ScrollBar）分为水平滚动条（）分为水平滚动条（HScrollbar）和垂直滚动条（和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。一范围内的数值供用户选择。 2. 属性属性(1) Value 滑块所处位置所代表的值。滑块所处位置所代表的值。(2) Max：最大值：最大值 -32,76832,767(3) Min：最小值：最小值 -32,76832,7

18、67(4) SmallChange 最小变动值，最小变动值， 单击箭头时移动的增量值。单击箭头时移动的增量值。(5) LargeChange 最大变动值，单击空白处时移动的增量值。最大变动值，单击空白处时移动的增量值。3. 方法方法4. 事件事件（1）Change事件事件 滚动条的滚动条的Change事件在移动滚动框或通过代码改变其事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引属性值时发生。单击滚动条两端的箭头或空白处将引发发Change事件。事件。（2）Scroll事件事件 当滚动框被重新定位，或按水平方向或垂直方向滚动当滚动框被重新定位，或按水平方

19、向或垂直方向滚动时，时，Scroll事件发生。拖动滑块时会触发事件发生。拖动滑块时会触发Scroll事件事件 Scroll事件与事件与Change事件的事件的区别区别在于：当滚动条控件在于：当滚动条控件滚动时滚动时Scroll事件一直发生，而事件一直发生，而Change事件只是在滚动结事件只是在滚动结束之后才发生一次。束之后才发生一次。滚动条示例。设计一个用于设置字体颜色的程序滚动条示例。设计一个用于设置字体颜色的程序. 编写代码如下：Private Sub Form_Load()Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3)End

20、 SubPrivate Sub HScroll1_Change() Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3) r = LTrim(Str(HScroll1) g = LTrim(Str(HScroll2) b = LTrim(Str(HScroll3) Text1.Text = Color=RGB( & r & , & g & , & b & )End SubPrivate Sub HScroll2_Change()Picture1.BackColor = RGB(HScroll

21、1, HScroll2, HScroll3) r = LTrim(Str(HScroll1) g = LTrim(Str(HScroll2) b = LTrim(Str(HScroll3) Text1.Text = Color=RGB( & r & , & g & , & b & )End SubPrivate Sub HScroll3_Change()Picture1.BackColor = RGB(HScroll1, HScroll2, HScroll3) r = LTrim(Str(HScroll1) g = LTrim(Str(HScro

22、ll2) b = LTrim(Str(HScroll3) Text1.Text = Color=RGB( & r & , & g & , & b & )End Sub例6.4.1 显示人口的变化。人口的年增长率和年份分别用水平滚动条和垂直滚动条表示。当用户先后移动两个滚动条以改变年增长率和年份时，应显示出此时的人口数。其属性设置如表6.4.1所示。Private Sub Form_Load() LabelYear.Caption = 2000年 LabelRate.Caption = 年增长率： 0 LabelInfo.Caption = 人口为

23、： 12.3亿End SubPrivate Sub RateBar_Change() pnow = 12.3 n = YearBar.Value - 2000 r = RateBar.Value / 1000 pthen = pnow * (1 + r) n LabelRate.Caption = 年增长率： + Str$(r) LabelInfo.Caption = 人口为： + Str$(pthen) + 亿End SubPrivate Sub YearBar_Change() LabelYear.Caption = Str$(YearBar.Value) + 年 pnow = 12.3

24、n = YearBar.Value - 2000 r = RateBar.Value / 1000 pthen = pnow * (1 + r) n LabelRate.Caption = 年增长率： + Str$(r) LabelInfo.Caption = 人口为： + Str$(pthen) + 亿End Sub6.3 列表框与组合框列表框与组合框 列表框控件（列表框控件（ListBox）用于显示项目列表，用户可从用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项中选择一个或多个项目。如果项目总数超过了可显示的项目数，目数， VB会自动加上滚动条。会自动加上滚动

25、条。 列表框有两种风格：标准和复选列表框。通过它的列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。属性来设置。 组合框控件（组合框控件（ComboBox）将文本框和列表框的将文本框和列表框的功能结合在一起，用户可以在列表中选择某项功能结合在一起，用户可以在列表中选择某项（只能选取（只能选取一项）一项）。或在编辑区域中直接输入文本内容来选定项目。或在编辑区域中直接输入文本内容来选定项目。组合框共组合框共三种风格三种风格：下拉式组合框、简单组合框和下拉式：下拉式组合框、简单组合框和下拉式列表框。列表框。二、主要属性二、主要属性1List、ListCount和和ListIndex属

26、性属性这这3个属性只能在程序代码中设置：个属性只能在程序代码中设置：List： 字符型数组字符型数组 存放列表框的项目数据，下标是从存放列表框的项目数据，下标是从0开始的。开始的。 例如：例如： List(0)表示第一项（表示第一项（Listindex=0)的内容的内容 ListIndex： 整型值整型值 选中的项目的序号，选中的项目的序号， 没有项目选中时为没有项目选中时为-1。 ListCount：整型值整型值 表示项目的数量，表示项目的数量，ListCount-1是最后一项的下标。是最后一项的下标。2Style属性属性 该值用来指示控件的显示类型和行为。该值用来指示控件的显示类型和行为。

27、在运行时是只读在运行时是只读的的。列表框控件或组合框控件的。列表框控件或组合框控件的Style属性含义是不同的。属性含义是不同的。 方法方法1AddItem方法方法 用于将项目添加到列表框控件或组合框控件。用于将项目添加到列表框控件或组合框控件。 语法格式：语法格式： 对象名对象名.AddItem item , index 其中：其中：item: 为字符串表达式，表示要加入的项目。为字符串表达式，表示要加入的项目。 Index:决定新增项目的位置，决定新增项目的位置，缺省，则添加在最后。缺省，则添加在最后。 2RemoveItem方法方法用于从列表框控件或组合框控件中删除一项。用于从列表框控件

28、或组合框控件中删除一项。语法格式：语法格式： 对象名对象名. RemoveItem index 对对index参数的规定同参数的规定同AddItem方法。方法。3Clear方法方法 用于清除列表框控件或组合框控件中的所有项目。用于清除列表框控件或组合框控件中的所有项目。 对象名对象名. Clear例如，要删除列表框（例如，要删除列表框（List1）中所有项目，可使用：）中所有项目，可使用： List1. Clear 例如，要删除列表框（例如，要删除列表框（List1）中所有选中的项目，可）中所有选中的项目，可使用下面的程序段：使用下面的程序段： i = 0Do While i 5000 Then ShapeTarget.Left = 100 End If If ShapeTarget.Top 500 Then ShapeTarge