vb第7章 常用控件4h

1、1of 35Visual Basic Programming 第七章：常用控件第七章：常用控件聊城大学聊城大学物理科学与信息工程学院物理科学与信息工程学院曹银杰曹银杰2of 35第七章第七章 常用控件常用控件控件是构成用户界面的基本元素，只有掌握了控件控件是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应的属性、事件和方法，才能编写具有实用价值的应用程序。用程序。VBVB控件有控件有: :标准控件和标准控件和ActiveXActiveX控件两种控件两种: :标准控件标准控件：也称内部控件，出现在工具箱上的控：也称内部控件，出现在工具箱上的控件，件，2020个，

2、前面已学习一部分，关于文件控件放个，前面已学习一部分，关于文件控件放在第十章介绍。在第十章介绍。ActiveXActiveX控件控件：也称外部控件，是对：也称外部控件，是对 VB VB 内部控件内部控件集合的扩充。集合的扩充。VBVB的诸多强大功能正是依靠的诸多强大功能正是依靠ActiveX ActiveX 控件获得的。控件获得的。 3of 35第七章第七章 常用控件常用控件 7.1 7.1 ActiveXActiveX控件控件 7.2 7.2 直线与形状控件直线与形状控件 7.3 7.3 ImageImage图形与图形与PictureBoxPictureBox图片控件图片控件 7.4 7.4

3、 滚动条滚动条 7.5 7.5 框架、复选框与单选框框架、复选框与单选框 7.6 7.6 列表框、组合框列表框、组合框 7.7 7.7 定时器定时器TimerTimer 7.8 7.8 键盘输入焦点与键盘输入焦点与Tab Tab 键次序键次序 7.9 7.9 驱动器列表框、目录列表框文件列表框驱动器列表框、目录列表框文件列表框 作业作业4of 357.1 ActiveX控件控件 ActiveX部件文件：扩展名为OCX、dll、exe，一般放在Windows的SYSTEM32目录中。是由用ActiveX技术创建的一个或多个对象所组成 。 ActiveX控件与控件与ActiveX DLL/EXE的

4、区别的区别 ActiveXActiveX控件：控件：有界面有界面 用用“工程工程/ /部件部件”命令加载命令加载 工具箱上有图标工具箱上有图标 DLL/EXEDLL/EXE： 没有界面没有界面 用用“工程工程/ /引用引用”设置引用设置引用 工具箱上没有图标工具箱上没有图标ActiveX部件ActiveX ocxActiveX 文档ActiveX DLLActiveX EXE5of 35ActiveX控件控件添加到工具箱：添加到工具箱：或在工具箱上点击右键点击部件：工程选定控件部件6of 35常用常用ActiveX控件所在的文件：控件所在的文件：ActiveX控件ActiveX部件文件名通用对

5、话框(CommonDialog)Microsoft Common Dialog Control 6.0COMDLG32.OCXToolBarMicrosoft WindowsCommon Control 6.0MSCOMCTL.OCXStatusBarProgressBarSliderAnimationMicrosoft Windows Common Control-2 6.0MSCOMCT2.OCXUpDown7of 35示例：播放示例：播放MP3文件程序设计文件程序设计 MP3MP3自问世以来自问世以来, ,因其声音还原好因其声音还原好, ,压缩比率高而深受欢迎。压缩比率高而深受欢迎。但是

6、但是, ,怎样在自己的应用程序中播放怎样在自己的应用程序中播放MP3MP3文件呢文件呢? ? 在网上下载播放在网上下载播放MP3MP3文件的文件的ActiveXActiveX控件控件mp3play.ocxmp3play.ocx 启动启动VB6.0VB6.0。将。将mp3play.ocxmp3play.ocx控件添加到控件添加到VBVB中工具箱中中工具箱中, ,可可看到新增了一个蓝色小喇叭图标。看到新增了一个蓝色小喇叭图标。 单击工具箱中的单击工具箱中的MP3MP3控件控件, ,将其添加到窗体中将其添加到窗体中, ,名称为名称为MP3Play1,MP3Play1,属性属性VisibleVisib

7、le设为设为FalseFalse。 在窗体中添加在窗体中添加“播放播放”命令按钮命令按钮, ,其名称为其名称为command1,command1,属性属性CaptionCaption为为“播放播放” 在窗体中添加在窗体中添加“停止停止”命令按钮命令按钮, ,其名称为其名称为command2,command2,属性属性CaptionCaption为为“停止停止” 程序注册码程序注册码namename：ufo2000 ufo2000 snsn：120868690912086869098of 35在在VB 6中播放中播放MP3文件文件在程序在程序LOADLOAD时注册，注册码时注册，注册码namen

8、ame：ufo2000 ufo2000 snsn：1208686909 1208686909 Private Sub Form_Load() Private Sub Form_Load() Mp3Play1.Authorize ufo2000, 1208686909 Mp3Play1.Authorize ufo2000, 1208686909 End Sub End Sub在在“播放播放”命令按钮命令按钮ClickClick事件中填写以下代码事件中填写以下代码: :Private Sub Command1_Click()Private Sub Command1_Click() Text1.Te

9、xt = Mp3Play1.Open(F:003.mp3, ) Text1.Text = Mp3Play1.Open(F:003.mp3, ) Mp3Play1.Play Mp3Play1.Play End Sub End Sub在在“停止停止”命令按钮命令按钮ClickClick事件中填写以下代码事件中填写以下代码: : Private Sub Command2_Click()Private Sub Command2_Click() Mp3Play1.Stop Mp3Play1.Stop End Sub End Sub 执行该程序执行该程序, ,单击单击“播放播放”按钮按钮, ,将播放您指定

10、的将播放您指定的MP3MP3音乐。音乐。若要停止若要停止, ,单击单击“停止停止”按钮即可。按钮即可。9of 357.2 直线与形状控件直线与形状控件l 直线直线控件控件LineLine与形状控件与形状控件ShapeShape，是为了在应用程序中创，是为了在应用程序中创作图形效果而设计的。作图形效果而设计的。l 优点：优点：需要的系统资源比其它需要的系统资源比其它 VB VB 控件少，这就提高了应用控件少，这就提高了应用程序的性能。程序的性能。创建图形所用的代码比图形方法用的要少。如，在窗创建图形所用的代码比图形方法用的要少。如，在窗体上放置一个圆，既可用体上放置一个圆，既可用 Circle

11、Circle 方法，也可用形状方法，也可用形状控件。控件。Circle Circle 方法要求在运行时用代码创建圆；而方法要求在运行时用代码创建圆；而用形状控件的话，只需在设计时简单地把它拖到窗体用形状控件的话，只需在设计时简单地把它拖到窗体上，并设置特定的属性。上，并设置特定的属性。10of 351、 Line的的l Line Line 控件功能有限，只用来完成简单的任务：显示和打控件功能有限，只用来完成简单的任务：显示和打印。例如，不能把直线段连结成其它图形。要完成高级印。例如，不能把直线段连结成其它图形。要完成高级的功能，应使用的功能，应使用 Line Line 方法。方法。 l Lin

12、e Line 控件重要属性：控件重要属性：NameName属性：对象名属性：对象名x1,y1,x2,y2x1,y1,x2,y2属性：为线段的起终点坐标属性：为线段的起终点坐标VisibleVisible属性：直线可见属性：直线可见True,True, FalseFalse直线隐含。直线隐含。BorderStyleBorderStyle 属性：提供六种直线样式：透明属性：提供六种直线样式：透明0 0；实；实线线1 1；虚线；虚线2 2；点线；点线3 3；点划线；点划线4 4；双点划线；双点划线5 5；内实线；内实线6 6。BorderColorBorderColor属性属性: :直线的颜色。直线

13、的颜色。BorderWidthBorderWidth属性属性: :画线的宽度。画线的宽度。l Line Line 控件无任何事件；控件无任何事件；l Line Line 控件也没有控件也没有 Move Move 方法方法11of 352、Shape Shape Shape 控件是形状控件，显示矩形、正方形、椭圆、圆形、控件是形状控件，显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。圆角矩形或者圆角正方形。 可以在容器中绘制可以在容器中绘制 Shape Shape 控件，不能把该控件当作容器。控件，不能把该控件当作容器。 Shape Shape 属性：属性值与形状对应关系：属性：属性值与形

14、状对应关系： FillStyleFillStyle属性：值与填充效果对应关系：属性：值与填充效果对应关系： ShapeShape控件无任何事件；控件无任何事件； ShapeShape控件有控件有Move Move 方法方法12of 357. 3 Image图形与图形与PictureBox图片控图片控件件 两种控件用来显示图形两种控件用来显示图形 支持相同的图片格式：位图支持相同的图片格式：位图BMPBMP、图标图标ICOICO、图元文件图元文件WMFWMF、增强型图元文件增强型图元文件EMFEMF、JPEG JPEG 、GIF GIF 文件等。文件等。 两控件响应两控件响应 ClickClic

15、k等许多事件，可代替命令按钮或作等许多事件，可代替命令按钮或作为工具条的项目。为工具条的项目。 两控件具有许多方法，如用两控件具有许多方法，如用MOVEMOVE方法制作简单动画。方法制作简单动画。 两种控件区别：两种控件区别： Image Image 控件使用的系统资源比控件使用的系统资源比PictureBoxPictureBox控件少而且控件少而且重新绘图速度快重新绘图速度快 Image Image 控件仅支持控件仅支持PictureBoxPictureBox控件的一部分属性、事控件的一部分属性、事件和方法。件和方法。 在在Image Image 控件中可以伸展图片的大小使之适合控件的控件中

16、可以伸展图片的大小使之适合控件的大小大小。而在。而在PictureBoxPictureBox控件中可自动改变框大小适应控件中可自动改变框大小适应图片大小。图片大小。 13of 357.3.1 Image重要属性、事件和方重要属性、事件和方法法l ImageImage主要用于快速显示图片主要用于快速显示图片l 重要属性：重要属性：StretchStretch属性决定是否使图片伸缩。属性决定是否使图片伸缩。 True True：图片自动根据图像框控件调整大小。伸缩位图格图片自动根据图像框控件调整大小。伸缩位图格式图片可能导致图象质量的降低，但图元文件的图形非常式图片可能导致图象质量的降低，但图元文

17、件的图形非常适合伸缩。适合伸缩。 False: False: 显示图像原始尺寸，可能显不全或小于图形框。显示图像原始尺寸，可能显不全或小于图形框。BorderstyleBorderstyle 属性：设置图像框控件是否显示边框。属性：设置图像框控件是否显示边框。Picture Picture 属性将图形加载到属性将图形加载到ImageImage控件中。设计时可用控件中。设计时可用“粘贴粘贴”办法复制图形。办法复制图形。- 加载图形加载图形：运行时使用：运行时使用LoadPictureLoadPicture()()函数，语法：函数，语法：Image1.Picture = LoadPicture(e

18、:WindowsCursorshelp_i.cur) 14of 35Image重要属性、事件和方法重要属性、事件和方法 清除图形：清除图形：使用不指定文件名的使用不指定文件名的 LoadPictureLoadPicture 函数即函数即可清除可清除ImageImage对象中的图形。例：对象中的图形。例： Image1.Picture = Image1.Picture = LoadPictureLoadPicture 保存图保存图形形：使用使用SavePictureSavePicture命令把窗体、图形框和图命令把窗体、图形框和图像框内的图形保存为像框内的图形保存为BmpBmp格式文件，语法：格

19、式文件，语法： SavePictureSavePicture 对象名对象名. .属性属性, ,文件名文件名 例：例： SavePictureSavePicture Image1.Picture Image1.Picture，”c:abc.bmpc:abc.bmp”l ImageImage事件事件: :- ClickClick事件、事件、 DbclickDbclick事件等事件等l ImageImage方法方法: :- 有有MoveMove方法（无方法（无Print Print 方法）方法）15of 357.3.2 PictureBox重要属性、事件和方法重要属性、事件和方法l PictureB

20、oxPictureBox图片框用于显示图片也可用做其他控件的容器。图片框用于显示图片也可用做其他控件的容器。l PictureBoxPictureBox重要属性重要属性 Picture Picture 属性属性：加载图片、清除图片、保存图片的用法与：加载图片、清除图片、保存图片的用法与ImageImage相同。相同。 AutosizeAutosize属性：属性：设置图片框控件是否根据图片自动调整自设置图片框控件是否根据图片自动调整自身边框大小而图片尺寸不不变。身边框大小而图片尺寸不不变。 BorderstyleBorderstyle属性：设置图片框控件是否显示边框。属性：设置图片框控件是否显示

21、边框。 AppearanceAppearance属性属性：设置图片框控件是否具有三维效果。：设置图片框控件是否具有三维效果。 Align Align 属性：可设置为属性：可设置为 TopTop、BottomBottom、LeftLeft 或或 RightRight，指的是指的是PictureBoxPictureBox容器容器上画的其它控件的对齐方式。上画的其它控件的对齐方式。 例例PictureBox 包含两个包含两个Label 控件，控件， Align 属性设置属性设置为为 Bottom ： 16of 35PictureBox重要属性、事件和方法重要属性、事件和方法l 具有具有PrintPr

22、int、MoveMove、ClsCls方法。方法。l 具有具有ClickClick事件、事件、 DbclickDbclick事件等。事件等。l 具有具有ChangeChange事件事件: :当图片框的当图片框的Picture Picture 属性改变时触发。属性改变时触发。17of 357.4 滚动条滚动条 滚动条分水平滚动条分水平HScrollBarHScrollBar和垂直和垂直VScrollBarVScrollBar两种。两种。 分水平滚动条和垂直滚动条分水平滚动条和垂直滚动条, ,可用于滚动图片、文本可用于滚动图片、文本或调整某个数值的大小。为那些不能自动支持滚动的或调整某个数值的大小

23、。为那些不能自动支持滚动的应用程序和控件提供了滚动功能。应用程序和控件提供了滚动功能。滚动条的属性滚动条的属性 MaxMax和和MinMin属性属性: :用于设定或表示当滑块处于滚动条最用于设定或表示当滑块处于滚动条最大和最小位置时所代表的值。大和最小位置时所代表的值。 SmallChangeSmallChange最小变动值属性最小变动值属性: :用于设定当用户用鼠标用于设定当用户用鼠标单击滚动条两端箭头式，滑块移动的增量值。单击滚动条两端箭头式，滑块移动的增量值。 LargeChangeLargeChange最大变动值属性最大变动值属性: :用于设定当用户用鼠标用于设定当用户用鼠标单击滚动条

24、滚动箭头和滑块间区域时，滑块移动的增单击滚动条滚动箭头和滑块间区域时，滑块移动的增量值。量值。 ValueValue值属性值属性: :表示滚动条内滑块当前所处位置的值。表示滚动条内滑块当前所处位置的值。18of 35滚动条滚动条滚动条没有特有的方法滚动条没有特有的方法滚动条事件滚动条事件 ScrollScroll事件事件: :拖动滑块拖动滑块变化时变化时引发的事件。语法：引发的事件。语法： Sub Sub HScroll_ScrollHScroll_Scroll( )( ) Sub Sub VScroll_ScrollVScroll_Scroll( )( ) ChangeChange事件事件:

25、 : 当滑块发生当滑块发生变化后变化后引发的事件。语法：引发的事件。语法： Sub Sub HScroll_ChangeHScroll_Change( )( ) Sub Sub Scroll_ChangeScroll_Change( )( )19of 35滚动条的使用举例滚动条的使用举例 在窗体上建：在窗体上建：Text1、 VScroll1（垂直滚动条）垂直滚动条） 属性设置：属性设置： Max:100、Min: 0、LargeChange: 10、Smallhang: 1 Private Sub VScroll1_Change() Text1.Text = VScroll1.Value 注

26、释此句后结果如何？注释此句后结果如何？End SubPrivate Sub VScroll1_Scroll() text1.Text = VScroll1.Value 注释此句后结果如何？注释此句后结果如何？End Sub上述有什么不同？上述有什么不同？改变属性值看结果如何？改变属性值看结果如何？20of 357.5 框架、复选框与单选框框架、复选框与单选框1 1、框架、框架 是一个容器控件，用于将屏幕上的对象分组。它的作用是能是一个容器控件，用于将屏幕上的对象分组。它的作用是能够把其他控件组织在一起形成控件组。这样，当框架移动、够把其他控件组织在一起形成控件组。这样，当框架移动、隐藏时，其内

27、的控件组也相应移动、隐藏。隐藏时，其内的控件组也相应移动、隐藏。 CaptionCaption属性：框架标题属性：框架标题 EnabledEnabled属性：属性： TureTure框架内的对象可操作；框架内的对象可操作；FalseFalse变灰不能变灰不能操作。操作。 VisibleVisible属性：属性：TrueTrue框架及其内的框架及其内的对象对象可见；可见；FalseFalse隐隐藏。藏。 有有MOVEMOVE方法。方法。 有有ClickClick、DblClickDblClick等事件，一般不使用。等事件，一般不使用。21of 352、 复选框复选框CheckBox 复选框提供复

28、选框提供True/False True/False 选项。选项。 可设置多个复选框，每个框都是独立的、互不影响，用户可设置多个复选框，每个框都是独立的、互不影响，用户可以任意选择它们的状态进行复选。可以任意选择它们的状态进行复选。然后检测控件状态并然后检测控件状态并根据复选信息编写应用程序以执行某些操作。根据复选信息编写应用程序以执行某些操作。 CaptionCaption属性属性：文本标题。：文本标题。 ValueValue属性属性（数值型）（数值型）0-0-UncheckedUnchecked：未被选定未被选定1-1-CheckedChecked：选定选定2-2-GrayedGrayed：

29、灰色，禁止选择灰色，禁止选择 StyleStyle属性属性0-0-StandardStandard：标准方式标准方式1-1-GraphicalGraphical：图形方式图形方式 AlignmentAlignment属性属性 0 0：控件钮在左边，标题显示在右边。：控件钮在左边，标题显示在右边。 1 1：控件钮在右边，标题显示在左边。：控件钮在右边，标题显示在左边。22of 35CheckBox复选框事件应用举例复选框事件应用举例 无论何时单击无论何时单击 CheckBoxCheckBox 控件都将触发控件都将触发 Click Click 事件，然后编写事件，然后编写应用程序，根据复选框的状态

30、执行某些操作。应用程序，根据复选框的状态执行某些操作。 例：每次单击例：每次单击 CheckBoxCheckBox 控件时都将改变其控件时都将改变其 Caption Caption 属性以属性以 指指示选定或未选定状态：建一示选定或未选定状态：建一 个个CheckBoxCheckBoxPrivate Sub Check1_Click() If Check1.Value = vbChecked Then 或Check1.Value = 1 Check1.Caption = Checked ElseIf Check1.Value = vbUnchecked Then Check1.Caption

31、= Unchecked End IfEnd Sub 23of 353、单选框、单选框OptionButton 通常用此控件提供通常用此控件提供 True/False True/False 选项选项 ，可设置多个，同，可设置多个，同一容器内只能选择其一。一容器内只能选择其一。Caption属性属性：文本标题。：文本标题。Value属性属性( (逻辑型逻辑型) )True：选定选定 False：未选定未选定Style属性属性0-Standard：标准方式标准方式1-Graphical：图形方式图形方式Alignment属性属性 0：控件钮在左边，标题显示在右边。：控件钮在左边，标题显示在右边。 1

32、：控件钮在右边，标题显示在左边。：控件钮在右边，标题显示在左边。24of 35单选框单选框OptionButton事件应用举例事件应用举例 在窗体上添加一个标签，三个单选框。在窗体上添加一个标签，三个单选框。Private Sub Option1_Click() Label1.Caption = 字体改变演示字体改变演示! Label1.FontSize = 28 Label1.FontName = 楷体楷体_gb2312End SubPrivate Sub Option2_Click() Label1.FontName = 隶书隶书End SubPrivate Sub Option3_Cli

33、ck() Label1.FontName = 宋体宋体End Sub25of 357.6 列表框、组合框列表框、组合框7.6.1 7.6.1 列表框列表框ListBoxListBox： 列出可供用户选择的项目列表。运行时，可用鼠标或箭列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其中的一项或多项，选中的项被加亮显示。列表框头键选中其中的一项或多项，选中的项被加亮显示。列表框中的选择项称为条目中的选择项称为条目(Item) (Item) 。ListBoxListBox重要属性重要属性 TextText属性：读取列表框中当前所选条目对应的文字。属性：读取列表框中当前所选条目对应的文字。

34、List1.textList1.text与与List1.ListList1.List或或List1.ListIndexList1.ListIndex的值相同。的值相同。 ListList属性，添加、修改、读取列表框中包含的项。实质上属性，添加、修改、读取列表框中包含的项。实质上是个一维字符串数组，其下界为是个一维字符串数组，其下界为0 0，上界为，上界为 ListCount-1ListCount-1。每一元素存放列表框中的一个条目。语法格式：每一元素存放列表框中的一个条目。语法格式： . List (. List () =) = 如：如：List1.List(5)=“List1.List(5)

35、=“插入插入” ListCountListCount属性：列表框中的条目数量。属性：列表框中的条目数量。 SelCountSelCount属性：被选中属性：被选中条目条目的数量，未选中时值为的数量，未选中时值为0 0 。 ListIndexListIndex属性：当前所选条目的序号属性：当前所选条目的序号(0(0n-1)n-1)；多选时；多选时是最后一个被选中条目的序号；未选中时值为是最后一个被选中条目的序号；未选中时值为-1-1。26of 35ListBoxListBox属性属性 Columns Columns 属性属性: :决定列表框中显示条目的列数。决定列表框中显示条目的列数。 0-0-

36、显示一列（默认），垂直滚动条。显示一列（默认），垂直滚动条。 1-1-显示一列，水平滚动条。显示一列，水平滚动条。 n-n-显示显示 n n 列，水平滚动条。（列，水平滚动条。（n1n1） Style Style 属性：控制列表框的外观。属性：控制列表框的外观。Style=0Style=127of 35ListBoxListBox属性属性ItemDataItemData属性：保存列表框中每一条目的长整型数（与属性：保存列表框中每一条目的长整型数（与List List 属性类似也是个一维数组）。属性类似也是个一维数组）。MultiSelectMultiSelect属性属性，设置是否能够选择多项。

37、，设置是否能够选择多项。 0 0：不允许复选（缺省值）：不允许复选（缺省值） 。 1 1：简单复选，使用鼠标单击复选。：简单复选，使用鼠标单击复选。 2 2：扩展复选，扩展复选，允许使用允许使用SHIFTSHIFT、 CTRLCTRL键配合复选。键配合复选。SelectedSelected属性，是一个逻辑型型数组其中的每个元素对应属性，是一个逻辑型型数组其中的每个元素对应列表框中的一个选项的选择状态：列表框中的一个选项的选择状态：TrueTrue选中，选中，False False 没有没有选中。语法为：选中。语法为： 列表框名列表框名.Selected(.Selected() = ) = So

38、rtedSorted属性，指示列表框中的条目是否排序，属性，指示列表框中的条目是否排序，TrueTrue为按字母为按字母顺序升序排列，否则按输入的顺序排列。顺序升序排列，否则按输入的顺序排列。NewIndexNewIndex属性：指示新添加到列表框中的条目的序号，没属性：指示新添加到列表框中的条目的序号，没有新添加的条目，值为有新添加的条目，值为 -1 -1 。28of 35ListBoxListBox方法方法ListBoxListBox重要重要 AddItemAddItem向列表框中添加新条目，语法格式：向列表框中添加新条目，语法格式： 列表框名列表框名.AddItemAddItem 字符串

39、表达式字符串表达式 ,插入位置序号插入位置序号 若不指定插入位置，且若不指定插入位置，且Sorted=FalseSorted=False时插入到列表尾；时插入到列表尾；例：例：List1.AddItem “List1.AddItem “王平王平” ” RemoveItemRemoveItem方法，删除指定列表项，语法格式：方法，删除指定列表项，语法格式： 列表框名列表框名.RemoveItemRemoveItem 删除项序号删除项序号 例：例：List1. List1. RemoveItemRemoveItem 0 0 ClearClear方法方法删除列表框中的所有项。语法格式：删除列表框中的

40、所有项。语法格式： 列表框对象名列表框对象名.Clear.Clear Move Move 29of 35ListBoxListBox事件事件ListBoxListBox重要重要事件：事件： ClickClick事件、事件、 DbclickDbclick事件。事件。 ScrollScroll事件，当列表框的滚动条被滚动时，触发该事件。事件，当列表框的滚动条被滚动时，触发该事件。 ItemCheckItemCheck事件，当列表框的事件，当列表框的 Style=1 Style=1 （复选框样式）复选框样式）时，并且当列表框的一个条目被选中或被取消时，触发时，并且当列表框的一个条目被选中或被取消时，

41、触发该事件。该事件。 注意：注意：ItemCheckItemCheck事件发生在事件发生在ClickClick事件之前。事件之前。30of 357.6.2 组合框（组合框（ComboBox）控件控件 ComboBox组合框，包含一个文本框和一个列表框，控件组合框，包含一个文本框和一个列表框，控件将将文本框文本框和和列表框列表框的特性结合在一起，既可以在组合框的的特性结合在一起，既可以在组合框的文本框部分输入信息，也可以在控件的列表框部分选择一文本框部分输入信息，也可以在控件的列表框部分选择一项输入信息。组合框有三种风格，项输入信息。组合框有三种风格，StyleStyle属性设置：属性设置： 下

42、拉式组合框下拉式组合框 简单组合框简单组合框 下拉式列框表下拉式列框表Style=0Style=1Style=231of 35组合框的常用属性组合框的常用属性 TextText：文本属性，用户从列表框中选定的文本内容或直接文本属性，用户从列表框中选定的文本内容或直接输入到文本框中的内容。输入到文本框中的内容。 SelLenghtSelLenght属性属性、 SelStartSelStart属性属性、 SelTextSelText属性属性 ListIndexListIndex属性，属性，NewIndexNewIndex属性属性、SortedSorted属性属性、ItemDataItemData属

43、性、属性、 TopIndexTopIndex属性属性、ListList属性、属性、ListCountListCount属性属性 其用法同列表框其用法同列表框32of 35组合框的常用方法、组合框的常用方法、事件事件 常用方法：常用方法： AddItemAddItem方法方法AddItemAddItem方法用于将项目添加到列表框或组方法用于将项目添加到列表框或组合框控件，其语法为：合框控件，其语法为： .AddItemAddItem ， - ClearClear方法方法ClearClear方法用于清除列表框或组合框或系统剪方法用于清除列表框或组合框或系统剪贴板的内容。其语法为：贴板的内容。其语法

44、为： .Clear.Clear- RemoveItemRemoveItem方法，方法，从列表框或组合框中删除一项，语法：从列表框或组合框中删除一项，语法： .RemoveItemRemoveItem Move Move 方法方法 常用事件：常用事件： ClickClick事件、事件、DblClickDblClick事件事件 ScrollScroll事件事件 ChangeChange事件（在输入文本时响应该事件）事件（在输入文本时响应该事件）33of 35ListBox列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. ListCount = 5 L

45、ist1. Selected(3) = True 其余为False。 List1. Sorted = False 没有排序。 List1. Text 值为 “cox” 与List1. List相等 List1. ListIndex相等 下拉式组合框 简单组合框 下拉式列表框 ComboBox组合框各属性值： Combo1.ListIndex = 0Combo1. ListCount = 8Combo1. Selected(1) = True 其余为FalseCombo1. Sorted = FalseCombo1. Text 值为 “李宁”34of 35列表框、组合框举例：列表框、组合框举例：

46、ListBox列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. ListCount = 5 List1. Selected(3) = True 其余为False。 List1. Sorted = False 没有排序。 List1. Text 值为 “cox” 与List1. List相等 List1. ListIndex相等 下拉式组合框 简单组合框 下拉式列表框 ComboBox组合框各属性值： Combo1.ListIndex = 0Combo1. ListCount = 8Combo1. Selected(1) = True 其余为Fal

47、seCombo1. Sorted = FalseCombo1. Text 值为 “李宁”35of 35列表框、组合框举例：列表框、组合框举例：Private Sub Form_Load() Combo1.AddItem 北京北京 Combo1.AddItem 上海上海 Combo1.AddItem 杭州杭州 Combo1.AddItem 西安西安 Combo1.AddItem 青岛青岛End SubPrivate Sub Combo1_Click() Select Case Combo1.Text Case 北京北京 MsgBox 北京北京-中国的首都中国的首都, , 组合框举例组合框举例 C

48、ase 上海上海 MsgBox 上海上海-不夜城不夜城, , 组合框举例组合框举例 Case 杭州杭州 MsgBox 杭州杭州-西湖西湖, , 组合框举例组合框举例 Case 西安西安 MsgBox 西安西安-兵马俑兵马俑, , 组合框举例组合框举例 Case 青岛青岛 MsgBox 青岛青岛-栈桥栈桥, , 组合框举例组合框举例 End SelectEnd Sub36of 357.7 定时器定时器TimerTimerTimer：定时器控件以属性定时器控件以属性IntervalInterval的值为时间间隔产生的值为时间间隔产生 TimerTimer事件。事件。 IntervalInterva

49、l属性属性单位：单位：ms(0.001s)ms(0.001s)，10001000为为1 1秒，取值范围为秒，取值范围为0 06553565535，所以最大时间间隔小于，所以最大时间间隔小于66s66s。该属性的缺省值为。该属性的缺省值为0 0，即定时器控件不起作用。即定时器控件不起作用。 EnabledEnabled属性属性 TrueTrue： 有效计时有效计时 FalseFalse：停止时钟工作停止时钟工作 TimerTimer事件事件 定时器只支持定时器只支持TimerTimer事件。对于一个含有定时器控件事件。对于一个含有定时器控件的窗体，每经过一段由属性的窗体，每经过一段由属性Inte

50、rvalInterval指定的时间间隔，就指定的时间间隔，就产生一个产生一个TimerTimer事件。事件。 在在VBVB中，可以用中，可以用TimeTime（）函数获取系统时钟的时间。而（）函数获取系统时钟的时间。而TimerTimer事件是事件是VBVB模拟实时计时器的事件，不能将两者混淆。模拟实时计时器的事件，不能将两者混淆。37of 35定时器定时器Timer举例举例 建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。 设计：在窗体上添加一个定时器控件、一个标签，定时器设计：在窗体上添加一个定时器控件、一个标签，定时器的的IntervalInterval属

51、性设为属性设为10001000即即1 1秒。秒。Private Sub Timer1_TimerPrivate Sub Timer1_Timer（）（） Label1.FontSize = 40Label1.FontSize = 40 Label1.Caption = Time Time Label1.Caption = Time Time函数返回的系统时间函数返回的系统时间End SubEnd Sub38of 357.8 键盘输入焦点与键盘输入焦点与Tab 键次序键次序l 焦点：是指当前处于活动状态的窗体或控件。焦点：是指当前处于活动状态的窗体或控件。l TabTab键次序：当用户向窗体中放

52、置控件时，系统会自动按顺键次序：当用户向窗体中放置控件时，系统会自动按顺序为每个控件指定一个序为每个控件指定一个TabTab键次序，其数值反映在控件的键次序，其数值反映在控件的TabIndexTabIndex 属性中。其中第一个控件的属性中。其中第一个控件的TabIndexTabIndex 值为值为0 0。l TabTab键次序决定了当用户按键次序决定了当用户按Tab Tab 键或键或Shift +TabShift +Tab键时，焦点键时，焦点从一个对象转到另一个对象时的次序。从一个对象转到另一个对象时的次序。l 控件拥有焦点的办法：控件拥有焦点的办法： 鼠标单击；快捷键；鼠标单击；快捷键；

53、Tab Tab 键或键或Shift +TabShift +Tab键；方向键；键；方向键； 还有还有SetFocus 方法。方法。l 与焦点有关的属性：与焦点有关的属性： - TabIndex 属性属性：决定决定Tab键移动焦点的顺序；键移动焦点的顺序；- TabStop 属性属性：决定控件是否能够拥有焦点，决定控件是否能够拥有焦点，True可以可以拥有焦点，拥有焦点，False跳过不能拥有焦点。跳过不能拥有焦点。39of 35键盘输入焦点与键盘输入焦点与Tab 键次序键次序l 与焦点有关的方法：与焦点有关的方法：- SetFocusSetFocus方法，设置焦点语法：方法，设置焦点语法： 对象

54、名对象名. . SetFocusSetFocusl 与焦点有关的事件：与焦点有关的事件：- GotFocusGotFocus 事件：得到焦点时触发事件：得到焦点时触发- LostFocusLostFocus事件：失去焦点时触发事件：失去焦点时触发40of 357.9 驱动器列表框、目录列表框文件列表框驱动器列表框、目录列表框文件列表框文件系统控件有三种，管理文件夹。文件系统控件有三种，管理文件夹。7.7.1 驱动器列表框驱动器列表框DriveListBox 驱动器列表框是一种下拉式列表框，平时只显示当前驱动驱动器列表框是一种下拉式列表框，平时只显示当前驱动器名称，单击其右边的向下箭头，就会下拉出该计算机所器名称，单击其右边的向下箭头，就会下拉出该计算机所拥有的所有磁盘驱动器，供用户选择。拥有的所有磁盘驱动器，供用户选择。 DriveDrive属性：在运