VB课件第四章

1、第四章第四章 常用控件常用控件本章要求：本章要求： 掌握常用控件单选钮、复选框、掌握常用控件单选钮、复选框、 框架、滚动条、框架、滚动条、 列表列表框、组合框、时钟等控件的常用属性、重要事件和方法的框、组合框、时钟等控件的常用属性、重要事件和方法的使用；使用；本章重点：本章重点： 单选钮、复选框、单选钮、复选框、 框架、滚动条、框架、滚动条、 列表框、组合列表框、组合框、时钟等控件的常用属性、重要事件和方法的使用。框、时钟等控件的常用属性、重要事件和方法的使用。本章难点：本章难点：列表框、组合框和时钟控件列表框、组合框和时钟控件 。在在 Visual Basic Visual Basic 中，

2、单选与复选按钮控中，单选与复选按钮控件主要作为选项提供给用户选择。不同的件主要作为选项提供给用户选择。不同的是，在一组选择按钮中，单选控件只能选是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任状态；而在一组复选按钮中，可以选定任意数量的按钮。意数量的按钮。 4.1 4.1 清单类控件清单类控件4.1.14.1.1单选钮和复选框单选钮和复选框4.1 4.1 清单类控件清单类控件单选按钮单选按钮4.1.1单选钮和复选框单选钮和复选框 1 1 单选钮用途单选钮用途单选钮（单选钮（OptionButtonO

3、ptionButton） 也称作选择按钮。一组单也称作选择按钮。一组单选钮控件可以提供一组彼选钮控件可以提供一组彼此相互排斥的选项，任何此相互排斥的选项，任何时刻用户只能从中选择一时刻用户只能从中选择一个选项，实现一种个选项，实现一种“单项选单项选择择”的功能，被选中项目左的功能，被选中项目左侧圆圈中会出现一黑点。侧圆圈中会出现一黑点。4.1 4.1 清单类控件清单类控件3 3 方法方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通方法是单选钮控件最常用的方法，可以在代码中通过该方法将过该方法将ValueValue属性设置为属性设置为TrueTrue。 与命令按钮相同，使用该方

4、法之前，必须要保证单选钮处与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即于可见和可用状态（即VisibleVisible与与EnabledEnabled属性值均为属性值均为TrueTrue）。）。4 4 事件事件 ClickClick事件是单选钮控件最基本的事件，一般情况用户无事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写需为单选钮编写ClickClick事件过程，因为当用户单击单选钮时，事件过程，因为当用户单击单选钮时，它会自动改变状态。它会自动改变状态。 5 5 单选按钮程序举例单选按钮程序举例 文本框（文本框（Text1Text1）显示预设的字样；单选

5、按钮一（）显示预设的字样；单选按钮一（Option1Option1），），单击此按钮可以将文本框里显示的字样改变成单击此按钮可以将文本框里显示的字样改变成 黑体；黑体；单选按钮二（单选按钮二（Option2Option2），单击此按钮能将文本框里显示的字），单击此按钮能将文本框里显示的字样改变成样改变成 楷体。楷体。4.1 4.1 清单类控件清单类控件4.1 4.1 清单类控件清单类控件（4 4） Style Style 属性属性 0-Standard0-Standard： 标准方式标准方式 1-Graphical1-Graphical：图形方式：图形方式 说说 明：明： 在在StyleSty

6、le属性设置为属性设置为1 1时，可使用时，可使用 Picture Picture 属性属性 2. 2. 单选钮重要属性单选钮重要属性（1 1） Caption：文本标题。设置单选钮的文本注释内容文本标题。设置单选钮的文本注释内容。（2 2） Alignment属性属性： 0：Left Justify( (缺省设置缺省设置) )控件钮在左边，标题显示在右边。控件钮在左边，标题显示在右边。 1 1：Right Justify Right Justify 控件钮在右边，标题显示在左边控件钮在右边，标题显示在左边。（3 3）Value Value 属性属性 True: 单选钮被选定单选钮被选定Fal

7、se: 单选钮未被选定单选钮未被选定1、单选按钮一：、单选按钮一：Private Sub Optionl_Click() Text1.FontName = “黑体黑体”End Sub2、单选按钮二：、单选按钮二：Private Sub Optin2_Click() Text1.FontName = “楷体楷体_GB2312End Sub4.1 4.1 清单类控件清单类控件4.1 4.1 清单类控件清单类控件2 2 复选框复选框1. 1. 用途用途 复选框（复选框（CheckBoxCheckBox）也称作检查框、选择框。一组复）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工

8、作，所以用选框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种户可以同时选择任意多个选项，实现一种“不定项选择不定项选择”的的功能。选择某一选项后，该控件将显示功能。选择某一选项后，该控件将显示 , ,而清除此选项而清除此选项后后消失。消失。复选框被选中复选框被选中4.1 4.1 清单类控件清单类控件 复选框与单选按钮复选框与单选按钮Value Value 属性的比较属性的比较 复选框复选框0-Unchecked0-Unchecked：未被选定：未被选定1-Checked1-Checked：选定：选定2-Grayed2-Grayed：灰色，禁止选择：灰色，禁止

9、选择 单选钮单选钮True: True: 单选钮被选定单选钮被选定False: False: 单选钮未被选定，单选钮未被选定， 缺省设置缺省设置请大家注意，单选控件与复选控件的 Value 值是不同的，而这是初学者最容易混淆的。 2. 2. 重要属性重要属性 Caption、Alignment、Style与单选钮相同与单选钮相同 4.1 4.1 清单类控件清单类控件3.3.事件事件 ClickClick事件是复选框控件最基本的事件。用户事件是复选框控件最基本的事件。用户一般无需为复选框编写一般无需为复选框编写ClickClick事件过程，但其对事件过程，但其对ValueValue属性值的改变遵

10、循以下规则：属性值的改变遵循以下规则：单击未选中的复选框时，单击未选中的复选框时，ValueValue属性值变为属性值变为1 1；单击已选中的复选框时，单击已选中的复选框时，ValueValue属性值变为属性值变为0 0；单击变灰的复选框时，单击变灰的复选框时，ValueValue属性属性值变为值变为 2 2。 4 4 复选按钮举例：复选按钮举例： 4.1 4.1 清单类控件清单类控件文本框（文本框（Text1Text1）显示预设的字样；）显示预设的字样；复选按钮一（复选按钮一（Check1)Check1)可以将文本框里面的字变可以将文本框里面的字变 为粗体；为粗体；复选按钮二（复选按钮二（C

11、heck2Check2）可以将文本框里面的字变）可以将文本框里面的字变 为斜体；为斜体；复选按钮三（复选按钮三（Check3Check3）可以给文本框里面的文字）可以给文本框里面的文字 加上下划线。加上下划线。4 4 复选按钮举例：复选按钮举例： 4.1 4.1 清单类控件清单类控件复选按钮一：Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd Sub4.1 4.1 清单类控件清单类控件 复选按钮二： Private Sub Ch

12、eck2_Click()If Check1.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd Sub4.1 4.1 清单类控件清单类控件 复选按钮三： Private Sub Check3_Click()If Check1.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfEnd Sub4.1 4.1 清单类控件清单类控件联想：联想：复选按钮是不是非得经过这种选择判断？复选按钮是不是非

13、得经过这种选择判断？能不能如单选按钮那样直接使用呢？能不能如单选按钮那样直接使用呢？还是上面这个例子，假设复选按钮一不经过判断，而直接在还是上面这个例子，假设复选按钮一不经过判断，而直接在点击事件中输入代码：点击事件中输入代码：Private Sub Check1_Click()Text1.FontBold = TrueEnd Sub那么你会发现，复选按钮一经点击就不能取消字体加粗的效那么你会发现，复选按钮一经点击就不能取消字体加粗的效果了；而实际上，复选按钮的功能是，点击一次即选中时，果了；而实际上，复选按钮的功能是，点击一次即选中时，字体加粗；点击第二次即取消选择，字体不再加粗；以此类字体

14、加粗；点击第二次即取消选择，字体不再加粗；以此类推。推。 4.1 4.1 清单类控件清单类控件5 5：知识点：知识点：1 1、切记，单选按钮与复选按钮的、切记，单选按钮与复选按钮的 Value Value 值是不同的。值是不同的。单选按钮：单选按钮： 选中时，选中时，Value Value 值为值为 True True ； 未被选中时，未被选中时，Value Value 值为值为 False False 。复选按钮：复选按钮： 选中时，选中时，Value Value 值为值为 1 1 ； 未被选中时，未被选中时，Value Value 值为值为 0 ;0 ; 禁止选择，禁止选择，Value V

15、alue 值为值为 2 2 。 你可以试验一下，将复选按钮的你可以试验一下，将复选按钮的 Value Value 值分别用值分别用 True/False True/False 代替，看一下会出现什么问题。代替，看一下会出现什么问题。2 2、两种选择按钮都针对、两种选择按钮都针对 Click Click 事件做出反应，但单选按钮事件做出反应，但单选按钮 比较简单，只需直接输入代码即可；复选按钮比较复杂，比较简单，只需直接输入代码即可；复选按钮比较复杂， 需经过条件判断后再做出反应。切记！需经过条件判断后再做出反应。切记！4.1 4.1 清单类控件清单类控件4.1 4.1 清单类控件清单类控件4.

16、1.2 4.1.2 框架框架 (Frame)(Frame)Frame Frame 控件为控件提供可标识的分组。它是一个容器控件。控件为控件提供可标识的分组。它是一个容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框起来，把框架将每一组单选钮框起来，把 OptionButton 控件分成控件分成几组，如下形式几组，如下形式。 设三个框架设三个框架设设CaptionCaption为为 “ “字形字形 4.1 4.1 清单类控件清单类控件重要属性重要属性1.1. CaptionCaption属性：框架标题属性：框架标

17、题EnabledEnabled属性：属性： 缺省为缺省为TrueTrueFalseFalse：标题呈灰色，不允许对框架内的所有对象：标题呈灰色，不允许对框架内的所有对象 进行操作进行操作 3.3. VisibleVisible属性：属性： TrueTrue：框架及其控件可见。：框架及其控件可见。 FalseFalse：框架及其控件被隐藏起来：框架及其控件被隐藏起来。4.1 4.1 清单类控件清单类控件事件：事件： 框架可以响应的事件框架可以响应的事件ClickClick、DblClick,DblClick,一般不需一般不需要有关框架的事件过程。要有关框架的事件过程。 为了将控件分组，首先需要绘

18、制为了将控件分组，首先需要绘制 Frame Frame 控件，然后控件，然后绘制绘制 Frame Frame 里面的控件。里面的控件。注意：注意：单选按钮单选按钮,复选框和框架控件综合举例复选框和框架控件综合举例例：设计个人资料输入窗口，使用选项按钮组输入性别与例：设计个人资料输入窗口，使用选项按钮组输入性别与 民族民族, 使用复选框输入个人爱好。使用复选框输入个人爱好。4.1 4.1 清单类控件清单类控件Private Sub Command1_Click()If Text1.Text = Then a = InputBox(您忘了输入姓名！您忘了输入姓名！, 注意注意, 请在此输入姓名请在

19、此输入姓名) If a = “” Or a = “请在此输入姓名请在此输入姓名” Then Exit Sub Text1.Text = aEnd Ifp1 = Text1.Text + ，程序如下：程序如下：4.1 4.1 清单类控件清单类控件 p2 = IIf(Option1, 男男, 女女) + ， p3 = IIf(Option3, 汉族汉族, 少数民族少数民族) p4 = ，喜欢：，喜欢：If Check1.Value = 1 Then p4 = p4 + Check1.Caption + ，If Check2.Value = 1 Then p4 = p4 + Check2.Capti

20、on + ，If Check3.Value = 1 Then p4 = p4 + Check3.Caption + ，If Check4.Value = 1 Then p4 = p4 + Check4.Caption + ，aa = p1 + p2 + p3 + IIf(p4 = ，喜欢，喜欢, ，无爱好，无爱好, p4)Label4.Caption = Left(aa, Len(aa) - 1) + 。Text1.SetFocusEnd Sub4.1 4.1 清单类控件清单类控件4.1 4.1 清单类控件清单类控件 例例4.14.1设计一个简单小型的编辑器，用户可以在文本框中输入一设计一个简

21、单小型的编辑器，用户可以在文本框中输入一 段文字，单击复选框和单选框，可以改变文本的字体，字段文字，单击复选框和单选框，可以改变文本的字体，字 型和颜色型和颜色 根据程序流程，应该先对根据程序流程，应该先对“开始开始”命令按钮（命令按钮（Command1Command1）编写单击事件）编写单击事件过程，代码如下所示：过程，代码如下所示：Private Sub Command1_Click()Private Sub Command1_Click()Image1.Visible = FalseImage1.Visible = FalseCommand1.Visible = FalseCommand

22、1.Visible = FalseCommand2.Visible = FalseCommand2.Visible = FalseText1.Visible = TrueText1.Visible = TrueOption1.Visible = TrueOption1.Visible = TrueOption2.Visible = TrueOption2.Visible = TrueCheck1.Visible = TrueCheck1.Visible = TrueCheck2.Visible = TrueCheck2.Visible = TrueEnd SubEnd Sub “ “退出退出”

23、命令按钮（命令按钮（Command2Command2）用于关闭应用程序，因此使用）用于关闭应用程序，因此使用EndEnd方法，方法，其代码如下：其代码如下： Private Sub Command2_Click()Private Sub Command2_Click() End End End Sub End Sub4.1 4.1 清单类控件清单类控件 进入图进入图4.34.3所示的用户界面后，若选中复选框所示的用户界面后，若选中复选框1 1使文本变成斜体，使文本变成斜体，则则Text1Text1的的FontItalicFontItalic属性设为属性设为TrueTrue；若选中复选框；若选中

24、复选框2 2使文本变成使文本变成红色，则设红色，则设 Text1Text1的前景色为红色。复选框单击事件过程如下：的前景色为红色。复选框单击事件过程如下：Private Sub Check1_Click()Private Sub Check1_Click()Text1.FontItalic = TrueText1.FontItalic = TrueEnd SubEnd Sub Private Sub Check2_Click()Private Sub Check2_Click()Text1.ForeColor = vbRedText1.ForeColor = vbRedEnd SubEnd S

25、ub 单选框决定文本的字体是宋体还是隶书，如果选中单选框单选框决定文本的字体是宋体还是隶书，如果选中单选框1 1，则，则文本字体为宋体；若选中单选框文本字体为宋体；若选中单选框2 2，则文本字体为隶书。其代码如下：，则文本字体为隶书。其代码如下：Private Sub Option1_Click()Private Sub Option1_Click()Text1.FontName = Text1.FontName = 宋体宋体 End SubEnd SubPrivate Sub Option2_Click()Private Sub Option2_Click()Text1.FontName =

26、 Text1.FontName = 隶体隶体 End SubEnd Sub4.1 4.1 清单类控件清单类控件4.1 4.1 清单类控件清单类控件4.1.3 4.1.3 列表框与组合框列表框与组合框一、用途一、用途 列表框控件（列表框控件（ListBoxListBox）用于显示项目列表，用户可用于显示项目列表，用户可从中从中选择一个或多个项目选择一个或多个项目。如果项目总数超过了可显示的项。如果项目总数超过了可显示的项目数，目数， VBVB会自动加上滚动条。会自动加上滚动条。 列表框有两种风格：标准和复选列表框。通过它的列表框有两种风格：标准和复选列表框。通过它的StyleStyle属性来设置

27、。如下图：属性来设置。如下图： 4.1 4.1 清单类控件清单类控件组合框控件（组合框控件（ComboBoxComboBox）将文本框和列表框的功能结合将文本框和列表框的功能结合在一起，用户可以在列表中选择某项在一起，用户可以在列表中选择某项（只能选取一项）（只能选取一项）。或或在编辑区域中直接输入文本内容来选定项目。在编辑区域中直接输入文本内容来选定项目。组合框共组合框共三种风格三种风格：下拉式组合框、简单组合框和下拉式列：下拉式组合框、简单组合框和下拉式列表框（见下图）。表框（见下图）。4.1 4.1 清单类控件清单类控件二、主要二、主要属性属性1 1StyleStyle属性属性 该值用来

28、指示控件的显示类型和行为。该值用来指示控件的显示类型和行为。在运行时是只读的在运行时是只读的。对于列表框控件或组合框控件都有对于列表框控件或组合框控件都有StyleStyle属性，但它们的含义属性，但它们的含义是不同的。是不同的。 例如：例如：在窗体上放置在窗体上放置2 2个列表框，将其个列表框，将其StyleStyle属性分别设属性分别设置为置为0 0和和1 1；放置；放置3 3个组合框，将它们个组合框，将它们StyleStyle属性分别设置为属性分别设置为0 0、1 1和和2 2。 4.1 4.1 清单类控件清单类控件2 2ListList、ListCountListCount和和List

29、IndexListIndex属性属性 List List： 字符型数组，存放列表框的项目数据，下标是从字符型数组，存放列表框的项目数据，下标是从0 0开始的。开始的。 例如：例如： List(0)List(0)表示第一项（表示第一项（Listindex=0Listindex=0）的内容）的内容 列表框项目可在设计模式下一项一项输入。列表框项目可在设计模式下一项一项输入。 ListIndexListIndex：为整型值，选中的项目的序号，如果列表为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号，框可多选，则为最后一次选中项目的序号， 没有项目选中时没有项目选中时为为-1-

30、1。 ListCountListCount：为整型值，表示项目的数量，为整型值，表示项目的数量，ListCount-ListCount-1 1是最后一项的下标。是最后一项的下标。4.1 4.1 清单类控件清单类控件3 3MultiSelectMultiSelect属性属性 用于指示是否能够在用于指示是否能够在列表框控件中列表框控件中进行复选以及如何进行复进行复选以及如何进行复选，选，在运行时是只读的。注意，在运行时是只读的。注意，组合框控件无此属性组合框控件无此属性。 MultiSelect MultiSelect 属性设置值及含义属性设置值及含义 设置值设置值含含 义义0 0（缺省值）不允许

31、复选（缺省值）不允许复选1 1简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点箭头键移动焦点2 2扩展复选。按下扩展复选。按下 SHIFT SHIFT 并单击鼠标将在以前选中项的基础上扩展并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下选择到当前选中项。按下 CTRL CTRL 并单击鼠标来在列表中选中或取并单击鼠标来在列表中选中或取消选中项消选中项4.1 4.1 清单类控件清单类控件4 4SelectedSelected属性属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性返回或设置列表框控件

32、中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与目数相同，其下标的变化范围与ListList属性相同。属性相同。 例如：例如：List1.SelectedList1.Selected（0 0）=True=True表示列表框表示列表框List1List1的第的第一个项目被选中，此时一个项目被选中，此时ListIndexListIndex的值设置为的值设置为0 0。SelectedSelected属性属性在设计时是不可用的，即无法在属性窗口中设置属性值。在设计时是不可用的，即无法在属性窗

33、口中设置属性值。 5 5SortedSorted属性属性 返回一个逻辑值，当返回一个逻辑值，当SortedSorted属性为属性为TrueTrue时列表框控件或时列表框控件或组合框控件的项目自动按组合框控件的项目自动按字母表顺序（升序）排序字母表顺序（升序）排序，为，为FalseFalse时项目按加入的先后顺序排列显示。时项目按加入的先后顺序排列显示。该属性只能在设计时设该属性只能在设计时设置，不能在程序代码中设置。置，不能在程序代码中设置。4.1 4.1 清单类控件清单类控件6 6TextText属性属性 对于组合框：（对于组合框：（Combo1Combo1） 下拉式组合框与简单组合框（下拉

34、式组合框与简单组合框（Style=0Style=0和和1 1）：）： TextText属性返回编辑区域中的文本。属性返回编辑区域中的文本。 下拉列表框，下拉列表框，TextText属性的返回当前被选中的项，值总与属性的返回当前被选中的项，值总与combo1.Listcombo1.List（combo1.ListIndexcombo1.ListIndex）的值相同。）的值相同。 对于列表框对于列表框：（：（List1List1） TextText属性选中的文本，属性选中的文本，如果列表框可多选，则为最后一次如果列表框可多选，则为最后一次选中项目。选中项目。TextText属性值总与属性值总与Li

35、st1.ListList1.List（List1.ListIndexList1.ListIndex）的）的值相同。值相同。4.1 4.1 清单类控件清单类控件列表框、组合框各主要属性的值：列表框、组合框各主要属性的值：List1.List(List1.ListIndex)=“abc”List1.List(List1.ListIndex)=“abc” ListCount = 6ListCount = 6 ListIndex = 3 ( ListIndex = 3 (下标从下标从0 0开始的开始的) ) Selected(3) = True Selected(3) = True 其余为其余为Fal

36、seFalse。 Sorted = False Sorted = False 没有排序。没有排序。 Text = “abc” Text = “abc” Combo1.List(Combo1.ListIndex)=“abCombo1.List(Combo1.ListIndex)=“abc”c”4.1 4.1 清单类控件清单类控件方法方法1 1AddItemAddItem方法方法 用于将项目添加到列表框控件或组合框控件。用于将项目添加到列表框控件或组合框控件。 语法格式：语法格式：对象名对象名.AddItem item , index.AddItem item , index 其中：其中：item

37、: item: 为字符串表达式，表示要加入的项目。为字符串表达式，表示要加入的项目。 Index:Index:决定新增项目的位置，缺省，则添加在最后。决定新增项目的位置，缺省，则添加在最后。 2 2RemoveItemRemoveItem方法方法 用于从列表框控件或组合框控件中删除一项。用于从列表框控件或组合框控件中删除一项。 语法格式：语法格式：对象名对象名. RemoveItem index. RemoveItem index 对对indexindex参数的规定同参数的规定同AddItemAddItem方法。方法。4.1 4.1 清单类控件清单类控件 例如，要删除列表框（例如，要删除列表框

38、（List1List1）中所有选中的项目，可使）中所有选中的项目，可使用下面的程序段：用下面的程序段： i = 0i = 0Do While i = List1.ListCount - 1Do While i = List1.ListCount - 1 If List1.Selected(i) = True Then If List1.Selected(i) = True Then List1.RemoveItem I List1.RemoveItem I else else i = i + 1 i = i + 1 End If End Iflooploop4.1 4.1 清单类控件清单类控件

39、3 3ClearClear方法方法 用于清除列表框控件或组合框控件中的所有项目。用于清除列表框控件或组合框控件中的所有项目。语法格式：语法格式： 对象名对象名. Clear. Clear例如，删除列表框（例如，删除列表框（List1）中所有项目，可使用：）中所有项目，可使用： List1. Clear List1. Clear4.1 4.1 清单类控件清单类控件4 4、事件、事件（1 1）ClickClick事件事件 当单击某一列表项目时，将触发列表框与组合框控件的当单击某一列表项目时，将触发列表框与组合框控件的ClickClick事件。该事件发生时系统会自动改变列表框与组合框控事件。该事件发

40、生时系统会自动改变列表框与组合框控件的件的ListIndexListIndex、SelectedSelected、TextText等属性，无需另行编写代码。等属性，无需另行编写代码。（2 2）DblClickDblClick事件事件 当双击某一列表项目时，将触发列表框与简单组合框控件当双击某一列表项目时，将触发列表框与简单组合框控件的的DblClickDblClick事件。事件。（3 3）ChangeChange事件事件（列表框没有此事件）（列表框没有此事件） 当用户通过键盘输入改变下拉式组合框或简单组合框控当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变

41、了件的文本框部分的正文，或者通过代码改变了TextText属性的设置属性的设置时，将触发其时，将触发其ChangeChange事件。事件。【例【例4.44.4】 设计一个星座与性格的水晶球设计一个星座与性格的水晶球。4.2 4.2 图片类控件图片类控件VBVB中与图形有关的控件有：中与图形有关的控件有：图片框（图片框（PictureBoxPictureBox）、图像框（）、图像框（ImageImage） 窗体、图形框和图像框可以显示来自图形文件的图形窗体、图形框和图像框可以显示来自图形文件的图形 1 1位图位图(bitmap)(bitmap)：位图通常以：位图通常以.bmp.bmp或或 .di

42、b.dib为文件扩展名。为文件扩展名。2 2图标图标(icon)(icon)：以：以.ico.ico为文件扩展名。为文件扩展名。3 3元文件元文件(metafile)(metafile)：元文件的类型有两种，分别是标准型元文件的类型有两种，分别是标准型（.wmf.wmf）和增强型（）和增强型（.emf.emf）。）。4 4JPEGJPEG文件：文件：JPEGJPEG是一种支持是一种支持 8 8 位和位和 24 24 位颜色的压缩位位颜色的压缩位图格式。它是图格式。它是 Internet Internet 上一种流行的文件格式。上一种流行的文件格式。5 5GIFGIF文件：文件：GIFGIF是一

43、种压缩位图格式。它可支持多达是一种压缩位图格式。它可支持多达 256 256 种的颜色，是种的颜色，是 Internet Internet 上一种流行的文件格式。上一种流行的文件格式。 4.2 4.2 图片类控件图片类控件4.2.1 4.2.1 图像框控件图像框控件ImageImage控件控件。 图像框比图形框占用更少的内存快。图像框内不能保存图像框比图形框占用更少的内存快。图像框内不能保存其他控件。其他控件。 ImageImage控件，不是容器控件。控件，不是容器控件。 ImageImage控件加载图片、删除图片、保存图片的方法：控件加载图片、删除图片、保存图片的方法： 与与PictureB

44、oxPictureBox控件相同控件相同 StretchStretch属性：属性：设置为设置为FalseFalse，图像框可自动改变大小以适应其中的图形。，图像框可自动改变大小以适应其中的图形。设设置设设置TrueTrue， 图形可自动调整尺寸以适应图像框的大小。图形可自动调整尺寸以适应图像框的大小。4.2 4.2 图片类控件图片类控件4.2.2 4.2.2 图片框控件图片框控件PictureBoxPictureBox 主要作用：显示图片、也可作为其他控件的容器。主要作用：显示图片、也可作为其他控件的容器。1 1、装入图形：、装入图形： 图形框对象图形框对象.Picture = LoadPic

45、ture(“.Picture = LoadPicture(“图形文件名图形文件名”) )2 2、删除图形、删除图形 图形框对象图形框对象.Picture = LoadPicture( ).Picture = LoadPicture( )3 3保存图片保存图片使用使用SavePictureSavePicture语句，其使用格式如下：语句，其使用格式如下：SavePicture Object.Picture|Image, FileName SavePicture Object.Picture|Image, FileName 注意：当注意：当AutosizeAutosize属性设置为属性设置为Tru

46、eTrue时，图形框能自动调整时，图形框能自动调整大小与显示的图片匹配大小与显示的图片匹配【例【例4.44.4】 设计一个简单的设计一个简单的“图片缩放图片缩放”器。器。 4.2 4.2 图片类控件图片类控件 在在Command1Command1控件上双击鼠标左键，调出代码窗口，在控件上双击鼠标左键，调出代码窗口，在Command1_Click ()Command1_Click ()事件代码事件代码窗口中输入以下代码。窗口中输入以下代码。Private Sub Command1_Click()Private Sub Command1_Click()Image1.Top = Image1.Top

47、 - 25Image1.Top = Image1.Top - 25Image1.Left = Image1.Left - 25Image1.Left = Image1.Left - 25Image1.Width = Image1.Width + 50Image1.Width = Image1.Width + 50Image1.Height = Image1.Height + 50Image1.Height = Image1.Height + 50End SubEnd Sub 重复步骤重复步骤2 2，在，在Command2_Click ()Command2_Click ()事件代码窗口中输入以下

48、代码。事件代码窗口中输入以下代码。Private Sub Command2_Click()Private Sub Command2_Click()Image1.Width = Image1.Width - 50Image1.Width = Image1.Width - 50Image1.Height = Image1.Height - 50Image1.Height = Image1.Height - 50Image1.Top = Image1.Top + 25Image1.Top = Image1.Top + 25Image1.Left = Image1.Left + 25Image1.Le

49、ft = Image1.Left + 25End SubEnd Sub4.2 4.2 图片类控件图片类控件【例【例4.64.6】 设计一个简单的设计一个简单的“看图学英文看图学英文”的少儿多媒体教学软的少儿多媒体教学软件。件。4.2 4.2 图片类控件图片类控件在在Picture 1Picture 1控件上双击鼠标左键，调出代码窗口，选择控件上双击鼠标左键，调出代码窗口，选择MouseMoveMouseMove事件，事件，MouseMoveMouseMove事件是指当鼠标在指定控件上移动时激活程序，事件是指当鼠标在指定控件上移动时激活程序，在在Picture 1_MouseMove()Pict

50、ure 1_MouseMove()事件代码窗口中输入以下代码。事件代码窗口中输入以下代码。Private Sub Picture 1_MouseMove(Button As Integer, Shift As Integer,Private Sub Picture 1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X As Single, Y As Single)Label3.Caption = bearLabel3.Caption = bearEnd SubEnd Sub重复步骤重复步骤2 2

51、，输入以下代码：，输入以下代码：Private Sub Picture 2_MouseMove(Button As Integer, Shift As Integer,Private Sub Picture 2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X As Single, Y As Single)Label3.Caption = monkeyLabel3.Caption = monkeyEnd SubEnd SubPrivate Sub Picture 3_MouseMove(Butt

52、on As Integer, Shift As Integer, Private Sub Picture 3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)X As Single, Y As Single)Label3.Caption = horseLabel3.Caption = horse End SubEnd SubPrivate Sub Picture 4_MouseMove(Button As Integer, Shift As Integer, Private Sub Picture

53、4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)X As Single, Y As Single)Label3.Caption = tigerLabel3.Caption = tigerEnd SubEnd Sub4.2 4.2 图片类控件图片类控件4.3 4.3 计时器计时器1.1.用途用途 计时器控件（计时器控件（TimerTimer）又称时钟、定时）又称时钟、定时器控件，用于器控件，用于有规律地定时执行指定的工作有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可直常常用于编写

54、不需要与用户进行交互就可直接执行的代码，如接执行的代码，如计时、倒计时、动画计时、倒计时、动画等。等。 在程序运行阶段，时钟控件不可见。在程序运行阶段，时钟控件不可见。4.3 4.3 计时器计时器 2. 属属 性性（1）Interval属性属性 取值范围在取值范围在0 64767 ，单位：为，单位：为毫秒毫秒（0.001秒），表秒），表示计时间隔。若将示计时间隔。若将Interval属性设置为属性设置为0或负数，则计时器停止或负数，则计时器停止工作。工作。 缺省设置为缺省设置为 0（2）Enabled属性属性 设置为设置为True，而且，而且Interval属性值大于属性值大于0，则计时器，则

55、计时器开始开始工作工作（以以Interval属性值为间隔，触发属性值为间隔，触发Timer事件事件）。）。 设置为设置为False可使时钟控件无效，即计时器停止工作可使时钟控件无效，即计时器停止工作。 缺省设置为缺省设置为True（2）Enabled属性属性 4.3 4.3 计时器计时器4.3 4.3 计时器计时器3. 3. 方方 法法 TimerTimer控件没有方法。控件没有方法。4. 4. 事事 件件 时钟控件只有时钟控件只有TimerTimer事件事件 当当EnabledEnabled属性值为属性值为TrueTrue且且IntervalInterval属性值大于属性值大于0 0时，时，

56、 该事件以该事件以IntervalInterval属性指定的时间间隔发生属性指定的时间间隔发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在TimerTimer事件事件过程中过程中4.3 4.3 计时器计时器时钟控件的应用举例时钟控件的应用举例例例4.7 4.7 利用计时器和图像控件设计一个简单的动画。利用计时器和图像控件设计一个简单的动画。 在在Timer1Timer1控件上双击鼠标左键，调出代码窗口，控件上双击鼠标左键，调出代码窗口， Timer1_Timer ()Timer1_Timer ()事件过程中输事件过程中输入以下代码。入以下代码。Private Sub Timer1

57、_Timer()Private Sub Timer1_Timer()Dim s As IntegerDim s As Integers = Int(Rnd() s = Int(Rnd() * * (2 - 0 + 1) + 0 (2 - 0 + 1) + 0 利用利用Rnd()Rnd()产生产生0 0、1 1和和2 2三个乱数三个乱数Select Case sSelect Case sCase 0Case 0Image0.Visible = TrueImage0.Visible = TrueImage1.Visible = FalseImage1.Visible = FalseImage2.V

58、isible = FalseImage2.Visible = FalseCase 1Case 1Image1.Visible = TrueImage1.Visible = TrueImage0.Visible = FalseImage0.Visible = FalseImage2.Visible = FalseImage2.Visible = FalseCase 2Case 2Image2.Visible = TrueImage2.Visible = TrueImage1.Visible = FalseImage1.Visible = FalseImage0.Visible = FalseImage0.Visible = FalseEnd SelectEnd SelectEnd SubEnd Sub4.3 4.3 计时器计时器4.4 4.4 滚动条滚动条1. 1. 用用 途途 滚动条控件（滚动条控件（ScrollBarScrollBar）分为水平滚动条）分为水