Visual Basic Programming 第七章：常用控件第七章：常用控件聊城大学聊城大学物理科学与信息工程学院物理科学与信息工程学院曹银杰曹银杰caoyinjielcu.edu.cncaoyinjielcu.edu.cn1第七章第七章 常用控件常用控件控件是构成用户界面的基本元素，只有掌握了控件控件是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应的属性、事件和方法，才能编写具有实用价值的应用程序。用程序。VBVB控件有控件有: :标准控件和标准控件和ActiveXActiveX控件两种控件两种: :标准控件标准控件：也称内部控件，出现在工具箱上的控：也称内部控件，出现在工具箱上的控件，件，2020个，前面已学习一部分，关于文件控件放个，前面已学习一部分，关于文件控件放在第十章介绍。在第十章介绍。ActiveXActiveX控件控件：也称外部控件，是对：也称外部控件，是对 VB VB 内部控件内部控件集合的扩充。集合的扩充。VBVB的诸多强大功能正是依靠的诸多强大功能正是依靠ActiveX ActiveX 控件获得的。控件获得的。 2第七章第七章 常用控件常用控件7.1 7.1 ActiveXActiveX控件控件7.2 7.2 直线与形状控件直线与形状控件7.3 7.3 ImageImage图形与图形与PictureBoxPictureBox图片控件图片控件7.4 7.4 滚动条滚动条7.5 7.5 框架、复选框与单选框框架、复选框与单选框7.6 7.6 列表框、组合框列表框、组合框7.7 7.7 定时器定时器TimerTimer7.8 7.8 键盘输入焦点与键盘输入焦点与Tab Tab 键次序键次序7.9 7.9 驱动器列表框、目录列表框文件列表框驱动器列表框、目录列表框文件列表框作业作业37.1 ActiveX控件控件ActiveX部件文件：扩展名为OCX、dll、exe，一般放在Windows的SYSTEM32目录中。是由用ActiveX技术创建的一个或多个对象所组成 。ActiveX控件与控件与ActiveX DLL/EXE的区别的区别ActiveXActiveX控件：控件：有界面有界面 用用“工程工程/ /部件部件”命令加载命令加载 工具箱上有图标工具箱上有图标DLL/EXEDLL/EXE： 没有界面没有界面 用用“工程工程/ /引用引用”设置引用设置引用 工具箱上没有图标工具箱上没有图标ActiveX部件ActiveX ocxActiveX 文档ActiveX DLLActiveX EXE4ActiveX控件控件添加到工具箱：添加到工具箱：或在工具箱上点击右键点击部件：工程选定控件部件5常用常用ActiveX控件所在的文件：控件所在的文件：ActiveX控件ActiveX部件文件名通用对话框(CommonDialog)Microsoft Common Dialog Control 6.0COMDLG32.OCXToolBarMicrosoft WindowsCommon Control 6.0MSCOMCTL.OCXStatusBarProgressBarSliderAnimationMicrosoft Windows Common Control-2 6.0MSCOMCT2.OCXUpDown6示例：播放示例：播放MP3文件程序设计文件程序设计MP3MP3自问世以来自问世以来, ,因其声音还原好因其声音还原好, ,压缩比率高而深受欢迎。压缩比率高而深受欢迎。但是但是, ,怎样在自己的应用程序中播放怎样在自己的应用程序中播放MP3MP3文件呢文件呢? ?在网上下载播放在网上下载播放MP3MP3文件的文件的ActiveXActiveX控件控件mp3play.ocxmp3play.ocx启动启动VB6.0VB6.0。将。将mp3play.ocxmp3play.ocx控件添加到控件添加到VBVB中工具箱中中工具箱中, ,可可看到新增了一个蓝色小喇叭图标。看到新增了一个蓝色小喇叭图标。单击工具箱中的单击工具箱中的MP3MP3控件控件, ,将其添加到窗体中将其添加到窗体中, ,名称为名称为MP3Play1,MP3Play1,属性属性VisibleVisible设为设为FalseFalse。在窗体中添加在窗体中添加“播放播放”命令按钮命令按钮, ,其名称为其名称为command1,command1,属性属性CaptionCaption为为“播放播放”在窗体中添加在窗体中添加“停止停止”命令按钮命令按钮, ,其名称为其名称为command2,command2,属性属性CaptionCaption为为“停止停止”程序注册码程序注册码namename：ufo2000 ufo2000 snsn：120868690912086869097在在VB 6中播放中播放MP3文件文件在程序在程序LOADLOAD时注册，注册码时注册，注册码namename：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.Text = 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执行该程序执行该程序, ,单击单击“播放播放”按钮按钮, ,将播放您指定的将播放您指定的MP3MP3音乐。音乐。若要停止若要停止, ,单击单击“停止停止”按钮即可。按钮即可。指定指定指定指定MP3MP3MP3MP3文件所在的位置文件所在的位置文件所在的位置文件所在的位置87.2 直线与形状控件直线与形状控件l直线直线控件控件LineLine与形状控件与形状控件ShapeShape，是为了在应用程序中创，是为了在应用程序中创作图形效果而设计的。作图形效果而设计的。l优点：优点：需要的系统资源比其它需要的系统资源比其它 VB VB 控件少，这就提高了应用控件少，这就提高了应用程序的性能。程序的性能。创建图形所用的代码比图形方法用的要少。如，在窗创建图形所用的代码比图形方法用的要少。如，在窗体上放置一个圆，既可用体上放置一个圆，既可用 Circle Circle 方法，也可用形状方法，也可用形状控件。控件。Circle Circle 方法要求在运行时用代码创建圆；而方法要求在运行时用代码创建圆；而用形状控件的话，只需在设计时简单地把它拖到窗体用形状控件的话，只需在设计时简单地把它拖到窗体上，并设置特定的属性。上，并设置特定的属性。91、 Line的的重要属性、事件和方法重要属性、事件和方法lLine Line 控件功能有限，只用来完成简单的任务：显示和打控件功能有限，只用来完成简单的任务：显示和打印。例如，不能把直线段连结成其它图形。要完成高级印。例如，不能把直线段连结成其它图形。要完成高级的功能，应使用的功能，应使用 Line Line 方法。方法。 lLine 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属性属性: :直线的颜色。直线的颜色。BorderWidthBorderWidth属性属性: :画线的宽度。画线的宽度。lLine Line 控件无任何事件；控件无任何事件；lLine Line 控件也没有控件也没有 Move Move 方法方法102、Shape重要属性、事件和方法重要属性、事件和方法Shape Shape 控件是形状控件，显示矩形、正方形、椭圆、圆形、控件是形状控件，显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。圆角矩形或者圆角正方形。可以在容器中绘制可以在容器中绘制 Shape Shape 控件，不能把该控件当作容器。控件，不能把该控件当作容器。Shape Shape 属性：属性值与形状对应关系：属性：属性值与形状对应关系：FillStyleFillStyle属性：值与填充效果对应关系：属性：值与填充效果对应关系：ShapeShape控件无任何事件；控件无任何事件；ShapeShape控件有控件有Move Move 方法方法117. 3 Image图形与图形与PictureBox图片控件图片控件两种控件用来显示图形两种控件用来显示图形支持相同的图片格式：位图支持相同的图片格式：位图BMPBMP、图标图标ICOICO、图元文件图元文件WMFWMF、增强型图元文件增强型图元文件EMFEMF、JPEG JPEG 、GIF GIF 文件等。文件等。 两控件响应两控件响应 ClickClick等许多事件，可代替命令按钮或作等许多事件，可代替命令按钮或作为工具条的项目。为工具条的项目。两控件具有许多方法，如用两控件具有许多方法，如用MOVEMOVE方法制作简单动画。方法制作简单动画。两种控件区别：两种控件区别：Image Image 控件使用的系统资源比控件使用的系统资源比PictureBoxPictureBox控件少而且控件少而且重新绘图速度快重新绘图速度快Image Image 控件仅支持控件仅支持PictureBoxPictureBox控件的一部分属性、事控件的一部分属性、事件和方法。件和方法。在在Image Image 控件中可以伸展图片的大小使之适合控件的控件中可以伸展图片的大小使之适合控件的大小大小。而在。而在PictureBoxPictureBox控件中可自动改变框大小适应控件中可自动改变框大小适应图片大小。图片大小。 127.3.1 Image重要属性、事件和方法重要属性、事件和方法lImageImage主要用于快速显示图片主要用于快速显示图片l重要属性：重要属性：StretchStretch属性决定是否使图片伸缩。属性决定是否使图片伸缩。 True True：图片自动根据图像框控件调整大小。伸缩位图格式图片自动根据图像框控件调整大小。伸缩位图格式图片可能导致图象质量的降低，但图元文件的图形非常适图片可能导致图象质量的降低，但图元文件的图形非常适合伸缩。合伸缩。 False: False: 显示图像原始尺寸，可能显不全或小于图形框。显示图像原始尺寸，可能显不全或小于图形框。BorderstyleBorderstyle 属性：设置图像框控件是否显示边框。属性：设置图像框控件是否显示边框。Picture Picture 属性将图形加载到属性将图形加载到ImageImage控件中。设计时可用控件中。设计时可用“粘贴粘贴”办法复制图形。办法复制图形。-加载图形加载图形：运行时使用：运行时使用LoadPictureLoadPicture()()函数，语法：函数，语法：Image1.Picture = LoadPicture(e:WindowsCursorshelp_i.cur) 13Image重要属性、事件和方法重要属性、事件和方法清除图形：清除图形：使用不指定文件名的使用不指定文件名的 LoadPictureLoadPicture 函数即函数即可清除可清除ImageImage对象中的图形。例：对象中的图形。例： Image1.Picture = Image1.Picture = LoadPictureLoadPicture 保存图保存图形形：使用使用SavePictureSavePicture命令把窗体、图形框和图命令把窗体、图形框和图像框内的图形保存为像框内的图形保存为BmpBmp格式文件，语法：格式文件，语法： SavePictureSavePicture 对象名对象名. .属性属性, ,文件名文件名 例：例： SavePictureSavePicture Image1.Picture Image1.Picture，”c:abc.bmpc:abc.bmp”lImageImage事件事件: :-ClickClick事件、事件、 DbclickDbclick事件等事件等lImageImage方法方法: :-有有MoveMove方法（无方法（无Print Print 方法）方法）147.3.2 PictureBox重要属性、事件和方法重要属性、事件和方法lPictureBoxPictureBox图片框用于显示图片也可用做其他控件的容器。图片框用于显示图片也可用做其他控件的容器。lPictureBoxPictureBox重要属性重要属性Picture Picture 属性属性：加载图片、清除图片、保存图片的用法与：加载图片、清除图片、保存图片的用法与ImageImage相同。相同。AutosizeAutosize属性：属性：设置图片框控件是否根据图片自动调整自设置图片框控件是否根据图片自动调整自身边框大小而图片尺寸不不变。身边框大小而图片尺寸不不变。BorderstyleBorderstyle属性：设置图片框控件是否显示边框。属性：设置图片框控件是否显示边框。AppearanceAppearance属性属性：设置图片框控件是否具有三维效果。：设置图片框控件是否具有三维效果。Align Align 属性：可设置为属性：可设置为 TopTop、BottomBottom、LeftLeft 或或 RightRight，指的是指的是PictureBoxPictureBox容器容器上画的其它控件的对齐方式。上画的其它控件的对齐方式。 例例PictureBox 包含两个包含两个Label 控件，控件， Align 属性设置为属性设置为 Bottom ： 15PictureBox重要属性、事件和方法重要属性、事件和方法l具有具有PrintPrint、MoveMove、ClsCls方法。方法。l具有具有ClickClick事件、事件、 DbclickDbclick事件等。事件等。l具有具有ChangeChange事件事件: :当图片框的当图片框的Picture Picture 属性改变时触发。属性改变时触发。167.4 滚动条滚动条滚动条分水平滚动条分水平HScrollBarHScrollBar和垂直和垂直VScrollBarVScrollBar两种。两种。分水平滚动条和垂直滚动条分水平滚动条和垂直滚动条, ,可用于滚动图片、文本可用于滚动图片、文本或调整某个数值的大小。为那些不能自动支持滚动的或调整某个数值的大小。为那些不能自动支持滚动的应用程序和控件提供了滚动功能。应用程序和控件提供了滚动功能。滚动条的属性滚动条的属性MaxMax和和MinMin属性属性: :用于设定或表示当滑块处于滚动条最用于设定或表示当滑块处于滚动条最大和最小位置时所代表的值。大和最小位置时所代表的值。SmallChangeSmallChange最小变动值属性最小变动值属性: :用于设定当用户用鼠标用于设定当用户用鼠标单击滚动条两端箭头式，滑块移动的增量值。单击滚动条两端箭头式，滑块移动的增量值。LargeChangeLargeChange最大变动值属性最大变动值属性: :用于设定当用户用鼠标用于设定当用户用鼠标单击滚动条滚动箭头和滑块间区域时，滑块移动的增单击滚动条滚动箭头和滑块间区域时，滑块移动的增量值。量值。ValueValue值属性值属性: :表示滚动条内滑块当前所处位置的值。表示滚动条内滑块当前所处位置的值。17滚动条滚动条滚动条没有特有的方法滚动条没有特有的方法滚动条事件滚动条事件ScrollScroll事件事件: :拖动滑块拖动滑块变化时变化时引发的事件。语法：引发的事件。语法：Sub Sub HScroll_ScrollHScroll_Scroll( )( )Sub Sub VScroll_ScrollVScroll_Scroll( )( )ChangeChange事件事件: : 当滑块发生当滑块发生变化后变化后引发的事件。语法：引发的事件。语法： Sub Sub HScroll_ChangeHScroll_Change( )( )Sub Sub Scroll_ChangeScroll_Change( )( )18滚动条的使用举例滚动条的使用举例在窗体上建：在窗体上建：Text1、 VScroll1（垂直滚动条）垂直滚动条）属性设置：属性设置： Max:100、Min: 0、LargeChange: 10、Smallhang: 1 Private Sub VScroll1_Change() Text1.Text = VScroll1.Value 注释此句后结果如何？注释此句后结果如何？End SubPrivate Sub VScroll1_Scroll() text1.Text = VScroll1.Value 注释此句后结果如何？注释此句后结果如何？End Sub上述有什么不同？上述有什么不同？改变属性值看结果如何？改变属性值看结果如何？197.5 框架、复选框与单选框框架、复选框与单选框1 1、框架、框架是一个容器控件，用于将屏幕上的对象分组。它的作用是能是一个容器控件，用于将屏幕上的对象分组。它的作用是能够把其他控件组织在一起形成控件组。这样，当框架移动、够把其他控件组织在一起形成控件组。这样，当框架移动、隐藏时，其内的控件组也相应移动、隐藏。隐藏时，其内的控件组也相应移动、隐藏。 CaptionCaption属性：框架标题属性：框架标题EnabledEnabled属性：属性： TureTure框架内的对象可操作；框架内的对象可操作；FalseFalse变灰不能操变灰不能操作。作。VisibleVisible属性：属性：TrueTrue框架及其内的框架及其内的对象对象可见；可见；FalseFalse隐隐藏。藏。有有MOVEMOVE方法。方法。有有ClickClick、DblClickDblClick等事件，一般不使用。等事件，一般不使用。202、 复选框复选框CheckBox复选框提供复选框提供True/False True/False 选项。选项。可设置多个复选框，每个框都是独立的、互不影响，用户可设置多个复选框，每个框都是独立的、互不影响，用户可以任意选择它们的状态进行复选。可以任意选择它们的状态进行复选。然后检测控件状态并然后检测控件状态并根据复选信息编写应用程序以执行某些操作。根据复选信息编写应用程序以执行某些操作。 CaptionCaption属性属性：文本标题。：文本标题。ValueValue属性属性（数值型）（数值型）0-0-UncheckedUnchecked：未被选定未被选定1-1-CheckedChecked：选定选定2-2-GrayedGrayed：灰色，禁止选择灰色，禁止选择StyleStyle属性属性0-0-StandardStandard：标准方式标准方式1-1-GraphicalGraphical：图形方式图形方式AlignmentAlignment属性属性 0 0：控件钮在左边，标题显示在右边。：控件钮在左边，标题显示在右边。 1 1：控件钮在右边，标题显示在左边。：控件钮在右边，标题显示在左边。21CheckBox复选框事件应用举例复选框事件应用举例无论何时单击无论何时单击 CheckBoxCheckBox 控件都将触发控件都将触发 Click Click 事件，然后编写事件，然后编写应用程序，根据复选框的状态执行某些操作。应用程序，根据复选框的状态执行某些操作。例：每次单击例：每次单击 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 = Unchecked End IfEnd Sub 223、单选框、单选框OptionButton通常用此控件提供通常用此控件提供 True/False True/False 选项选项 ，可设置多个，同，可设置多个，同一容器内只能选择其一。一容器内只能选择其一。Caption属性属性：文本标题。：文本标题。Value属性属性( (逻辑型逻辑型) )True：选定选定 False：未选定未选定Style属性属性0-Standard：标准方式标准方式1-Graphical：图形方式图形方式Alignment属性属性 0：控件钮在左边，标题显示在右边。：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。：控件钮在右边，标题显示在左边。23单选框单选框OptionButton事件应用举例事件应用举例在窗体上添加一个标签，三个单选框。在窗体上添加一个标签，三个单选框。Private Sub Option1_Click() Label1.Caption = 字体改变演示字体改变演示! Label1.FontSize = 28 Label1.FontName = 楷体楷体_gb2312End SubPrivate Sub Option2_Click() Label1.FontName = 隶书隶书End SubPrivate Sub Option3_Click() Label1.FontName = 宋体宋体End Sub247.6 列表框、组合框列表框、组合框7.6.1 7.6.1 列表框列表框ListBoxListBox： 列出可供用户选择的项目列表。运行时，可用鼠标或箭列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其中的一项或多项，选中的项被加亮显示。列表框头键选中其中的一项或多项，选中的项被加亮显示。列表框中的选择项称为条目中的选择项称为条目(Item) (Item) 。ListBoxListBox重要属性重要属性TextText属性：读取列表框中当前所选条目对应的文字。属性：读取列表框中当前所选条目对应的文字。 List1.textList1.text与与List1.ListList1.List或或List1.ListIndexList1.ListIndex的值相同。的值相同。ListList属属性性，添添加加、修修改改、读读取取列列表表框框中中包包含含的的项项。实实质质上上是是个个一一维维字字符符串串数数组组，其其下下界界为为0 0，上上界界为为 ListCount-1ListCount-1。每一元素存放列表框中的一个条目。语法格式：每一元素存放列表框中的一个条目。语法格式： . List (. List () =) = 如：如：List1.List(5)=List1.List(5)=“插入插入”ListCountListCount属性：列表框中的条目数量。属性：列表框中的条目数量。SelCountSelCount属性：被选中属性：被选中条目条目的数量，未选中时值为的数量，未选中时值为0 0 。ListIndexListIndex属属性性：当当前前所所选选条条目目的的序序号号(0(0n-1)n-1)；多多选选时时是最后一个被选中条目的序号；未选中时值为是最后一个被选中条目的序号；未选中时值为-1-1。25ListBoxListBox属性属性Columns Columns 属性属性: :决定列表框中显示条目的列数。决定列表框中显示条目的列数。 0-0-显示一列（默认），垂直滚动条。显示一列（默认），垂直滚动条。 1-1-显示一列，水平滚动条。显示一列，水平滚动条。 n-n-显示显示 n n 列，水平滚动条。（列，水平滚动条。（n1n1）Style Style 属性：控制列表框的外观。属性：控制列表框的外观。Style=0Style=126ListBoxListBox属性属性ItemDataItemData属属性性：保保存存列列表表框框中中每每一一条条目目的的长长整整型型数数（与与List List 属性类似也是个一维数组）。属性类似也是个一维数组）。MultiSelectMultiSelect属性属性，设置是否能够选择多项。，设置是否能够选择多项。 0 0：不允许复选（缺省值）：不允许复选（缺省值） 。 1 1：简单复选，使用鼠标单击复选。：简单复选，使用鼠标单击复选。 2 2：扩展复选，扩展复选，允许使用允许使用SHIFTSHIFT、 CTRLCTRL键配合复选。键配合复选。SelectedSelected属性，是一个逻辑型型数组其中的每个元素对应属性，是一个逻辑型型数组其中的每个元素对应列表框中的一个选项的选择状态：列表框中的一个选项的选择状态：TrueTrue选中，选中，False False 没有没有选中。语法为：选中。语法为： 列表框名列表框名.Selected(.Selected() = ) = SortedSorted属性，指示列表框中的条目是否排序，属性，指示列表框中的条目是否排序，TrueTrue为按字母为按字母顺序升序排列，否则按输入的顺序排列。顺序升序排列，否则按输入的顺序排列。NewIndexNewIndex属性：指示新添加到列表框中的条目的序号，没属性：指示新添加到列表框中的条目的序号，没有新添加的条目，值为有新添加的条目，值为 -1 -1 。27ListBoxListBox方法方法ListBoxListBox重要重要方法：方法：方法：方法：AddItemAddItem方法，方法，方法，方法，向列表框中添加新条目，语法格式：向列表框中添加新条目，语法格式： 列表框名列表框名.AddItemAddItem 字符串表达式字符串表达式 ,插入位置序号插入位置序号 若不指定插入位置，且若不指定插入位置，且Sorted=FalseSorted=False时插入到列表尾；时插入到列表尾；例：例：List1.AddItem List1.AddItem “王平王平” RemoveItemRemoveItem方法，删除指定列表项，语法格式：方法，删除指定列表项，语法格式： 列表框名列表框名.RemoveItemRemoveItem 删除项序号删除项序号 例：例：List1. List1. RemoveItemRemoveItem 0 0 ClearClear方法方法删除列表框中的所有项。语法格式：删除列表框中的所有项。语法格式： 列表框对象名列表框对象名.Clear.ClearMove Move 方法。方法。方法。方法。28ListBoxListBox事件事件ListBoxListBox重要重要事件：事件：ClickClick事件、事件、 DbclickDbclick事件。事件。ScrollScroll事件，当列表框的滚动条被滚动时，触发该事件。事件，当列表框的滚动条被滚动时，触发该事件。ItemCheckItemCheck事件，当列表框的事件，当列表框的 Style=1 Style=1 （复选框样式）复选框样式）时，并且当列表框的一个条目被选中或被取消时，触发时，并且当列表框的一个条目被选中或被取消时，触发该事件。该事件。 注意：注意：ItemCheckItemCheck事件发生在事件发生在ClickClick事件之前。事件之前。297.6.2 组合框（组合框（ComboBox）控件控件ComboBox组组合合框框，包包含含一一个个文文本本框框和和一一个个列列表表框框，控控件件将将文文本本框框和和列列表表框框的的特特性性结结合合在在一一起起，既既可可以以在在组组合合框框的的文文本本框框部部分分输输入入信信息息，也也可可以以在在控控件件的的列列表表框框部部分分选选择择一一项项输入信息。组合框有三种风格，输入信息。组合框有三种风格，StyleStyle属性设置：属性设置： 下拉式组合框下拉式组合框 简单组合框简单组合框 下拉式列框表下拉式列框表Style=0Style=1Style=230组合框的常用属性组合框的常用属性TextText：文本属性，用户从列表框中选定的文本内容或直接文本属性，用户从列表框中选定的文本内容或直接输入到文本框中的内容。输入到文本框中的内容。SelLenghtSelLenght属性属性、 SelStartSelStart属性属性、 SelTextSelText属性属性 ListIndexListIndex属性，属性，NewIndexNewIndex属性属性、SortedSorted属性属性、ItemDataItemData属性、属性、 TopIndexTopIndex属性属性、ListList属性、属性、ListCountListCount属性属性 其用法同列表框其用法同列表框31组合框的常用方法、组合框的常用方法、事件事件常用方法：常用方法：AddItemAddItem方法方法AddItemAddItem方法用于将项目添加到列表框或组方法用于将项目添加到列表框或组合框控件，其语法为：合框控件，其语法为： .AddItemAddItem ， -ClearClear方法方法ClearClear方法用于清除列表框或组合框或系统剪方法用于清除列表框或组合框或系统剪贴板的内容。其语法为：贴板的内容。其语法为： .Clear.Clear-RemoveItemRemoveItem方法，方法，从列表框或组合框中删除一项，语法：从列表框或组合框中删除一项，语法： .RemoveItemRemoveItem Move Move 方法方法常用事件：常用事件：ClickClick事件、事件、DblClickDblClick事件事件ScrollScroll事件事件ChangeChange事件（在输入文本时响应该事件）事件（在输入文本时响应该事件）32ListBox列表框各主要属性的值： 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 其余为FalseCombo1. Sorted = FalseCombo1. Text 值为 “李宁”33列表框、组合框列表框、组合框举例：举例：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 其余为FalseCombo1. Sorted = FalseCombo1. Text 值为 “李宁”34列表框、组合框列表框、组合框举例：举例：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 北京北京-中国的首都中国的首都, , 组合框举例组合框举例 Case 上海上海 MsgBox 上海上海-不夜城不夜城, , 组合框举例组合框举例 Case 杭州杭州 MsgBox 杭州杭州-西湖西湖, , 组合框举例组合框举例 Case 西安西安 MsgBox 西安西安-兵马俑兵马俑, , 组合框举例组合框举例 Case 青岛青岛 MsgBox 青岛青岛-栈桥栈桥, , 组合框举例组合框举例 End SelectEnd Sub357.7 定时器定时器TimerTimerTimer：定时器控件以属性定时器控件以属性IntervalInterval的值为时间间隔产生的值为时间间隔产生 TimerTimer事件。事件。IntervalInterval属性属性单位：单位：ms(0.001s)ms(0.001s)，10001000为为1 1秒，取值范围为秒，取值范围为0 06553565535，所以最大时间间隔小于，所以最大时间间隔小于66s66s。该属性的缺省值为。该属性的缺省值为0 0，即定时器控件不起作用。，即定时器控件不起作用。EnabledEnabled属性属性 TrueTrue： 有效计时有效计时 FalseFalse：停止时钟工作停止时钟工作TimerTimer事件事件 定时器只支持定时器只支持TimerTimer事件。对于一个含有定时器控件事件。对于一个含有定时器控件的窗体，每经过一段由属性的窗体，每经过一段由属性IntervalInterval指定的时间间隔，就指定的时间间隔，就产生一个产生一个TimerTimer事件。事件。 在在VBVB中，可以用中，可以用TimeTime（）函数获取系统时钟的时间。而（）函数获取系统时钟的时间。而TimerTimer事件是事件是VBVB模拟实时计时器的事件，不能将两者混淆。模拟实时计时器的事件，不能将两者混淆。36定时器定时器Timer举例举例建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。设设计计：在在窗窗体体上上添添加加一一个个定定时时器器控控件件、一一个个标标签签，定定时时器器的的IntervalInterval属性设为属性设为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 Sub377.8 键盘输入焦点与键盘输入焦点与Tab 键次序键次序l焦点：是指当前处于活动状态的窗体或控件。焦点：是指当前处于活动状态的窗体或控件。lTabTab键次序：当用户向窗体中放置控件时，系统会自动按顺键次序：当用户向窗体中放置控件时，系统会自动按顺序为每个控件指定一个序为每个控件指定一个TabTab键次序，其数值反映在控件的键次序，其数值反映在控件的TabIndexTabIndex 属性中。其中第一个控件的属性中。其中第一个控件的TabIndexTabIndex 值为值为0 0。lTabTab键次序决定了当用户按键次序决定了当用户按Tab Tab 键或键或Shift +TabShift +Tab键时，焦点键时，焦点从一个对象转到另一个对象时的次序。从一个对象转到另一个对象时的次序。l控件拥有焦点的办法：控件拥有焦点的办法： 鼠标单击；快捷键；鼠标单击；快捷键； Tab Tab 键或键或Shift +TabShift +Tab键；方向键；键；方向键； 还有还有SetFocus 方法。方法。l与焦点有关的属性：与焦点有关的属性： -TabIndex 属性属性：决定决定Tab键移动焦点的顺序；键移动焦点的顺序；-TabStop 属性属性：决定控件是否能够拥有焦点，决定控件是否能够拥有焦点，True可以可以拥有焦点，拥有焦点，False跳过不能拥有焦点。跳过不能拥有焦点。38键盘输入焦点与键盘输入焦点与Tab 键次序键次序l与焦点有关的方法：与焦点有关的方法：-SetFocusSetFocus方法，设置焦点语法：方法，设置焦点语法： 对象名对象名. . SetFocusSetFocusl与焦点有关的事件：与焦点有关的事件：-GotFocusGotFocus 事件：得到焦点时触发事件：得到焦点时触发-LostFocusLostFocus事件：失去焦点时触发事件：失去焦点时触发397.9 驱动器列表框、目录列表框文件列表框驱动器列表框、目录列表框文件列表框文件系统控件有三种，管理文件夹。文件系统控件有三种，管理文件夹。7.7.1 驱动器列表框驱动器列表框DriveListBox驱动器列表框是一种下拉式列表框，平时只显示当前驱动驱动器列表框是一种下拉式列表框，平时只显示当前驱动器名称，单击其右边的向下箭头，就会下拉出该计算机所器名称，单击其右边的向下箭头，就会下拉出该计算机所拥有的所有磁盘驱动器，供用户选择。拥有的所有磁盘驱动器，供用户选择。DriveDrive属性：在运行时返回或设置所选定的驱动器。语法：属性：在运行时返回或设置所选定的驱动器。语法： 对象对象. .DriveDrive= =drivenamedrivenamedrivenamedrivename是驱动器名，如：是驱动器名，如：Drive1.Drive=“C:”ChangeChange事件：事件：DriveDrive属性每次刷新都会引发属性每次刷新都会引发ChangeChange事件。事件。407.7.2 目录列表框目录列表框DirListBoxDirListBoxDirListBox显示当前驱动器的目录结构及当前目录下的所有显示当前驱动器的目录结构及当前目录下的所有子目录，供用户选择其中的某个目录作为当前目录。子目录，供用户选择其中的某个目录作为当前目录。在目录列表框中，如果用鼠标双击某个目录，就会显示出该在目录列表框中，如果用鼠标双击某个目录，就会显示出该目录下的所有子目录。目录下的所有子目录。PathPath属性：用来返回或设置当前路径，语法：属性：用来返回或设置当前路径，语法： 对象名对象名.Path =Pathname.Path =Pathname其中其中pathname pathname 是路径名，如：是路径名，如：Dir1.Path=“c:abcc:abc ”ListIndexListIndex属性，选中的目录序号。属性，选中的目录序号。ListCountListCount属性，当前目录下的子目录个数属性，当前目录下的子目录个数ChangeChange事件：事件：Path Path 属性每次刷新都会引发属性每次刷新都会引发ChangeChange事件。事件。417.7.3 文件列表框文件列表框FileListBox文件列表框显示当前驱动器中当前目录下的文件目录清单。文件列表框显示当前驱动器中当前目录下的文件目录清单。PathPath属性，表示文件列表框中显示的文件所在的路径。属性，表示文件列表框中显示的文件所在的路径。PathChangePathChange”事件，每次重新设置事件，每次重新设置PathPath属性都会引发。属性都会引发。FileNameFileName属性，设置和返回所选中的文件名，可带路径。属性，设置和返回所选中的文件名，可带路径。例：例： File1.File1.FileName=FileName=“c:123.txtc:123.txt” x x File1.File1.FileNameFileNamePatternPattern属性，返回或设置文件列表框所显示的文件类型。属性，返回或设置文件列表框所显示的文件类型。该属性值为具有通配符该属性值为具有通配符* *与与? ?的文件名字符串，语法：的文件名字符串，语法： 对象对象. .Pattern=Pattern=文件类型字符串文件类型字符串文件类型字符串缺省值文件类型字符串缺省值 “* *.*.*”，显示所有文件。，显示所有文件。PatternChangePatternChange事件，每次重新设置事件，每次重新设置PatternPattern属性都会引发属性都会引发该事件。该事件。42驱动器、目录和文件列表框举例驱动器、目录和文件列表框举例Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then File1.Pattern = Text1.Text End IfEnd Sub在窗体中加入驱动器、目录和文件列表框控件，使三者同在窗体中加入驱动器、目录和文件列表框控件，使三者同步显示。另外，加入一个文本框，通过在文本框中输入文步显示。另外，加入一个文本框，通过在文本框中输入文件类型，使文件列表框中显示指定类型的文件件类型，使文件列表框中显示指定类型的文件 。目录列表框与选中的驱动器同步文件列表框与选中的目录同步指定显示文件的类型指定显示文件的类型13 回车，输入完毕回车，输入完毕43作业作业44