2.1-机械-热化-第三章 基本控件ppt课件

1、第三章第三章 基本控件基本控件学习要求学习要求要求读者通过本章的学习，掌握要求读者通过本章的学习，掌握VBVB基本控基本控件的特点、常用属性、事件和方法，并能够熟练地件的特点、常用属性、事件和方法，并能够熟练地运用这些基本控件编写各种运用这些基本控件编写各种VBVB应用程序以解决实际应用程序以解决实际问题。问题。学习提示学习提示Visual BasicVisual Basic为我们设计程序界面、调用为我们设计程序界面、调用系统资源提供了强大的工具系统资源提供了强大的工具控件。控件是控件。控件是VBVB程序程序设计的基础，也是设计的基础，也是VBVB提供给我们的一种可视化编程提供给我们的一种可视

2、化编程工具。工具。VBVB常用的基本控件有：文本框、标签框、命常用的基本控件有：文本框、标签框、命令按钮、单选按钮、复选框和框架控件等。各种类令按钮、单选按钮、复选框和框架控件等。各种类型的控件都有其特殊的属性、事件和方法。型的控件都有其特殊的属性、事件和方法。主要内容主要内容本章介绍了部分基本控件的特点及其使用本章介绍了部分基本控件的特点及其使用用法，基本控件包括：文本框、标签框、命令按钮、用法，基本控件包括：文本框、标签框、命令按钮、单选按钮、复选框、框架、图形控件、选择控件、单选按钮、复选框、框架、图形控件、选择控件、文件系统控件、定时器控件及滚动条等常用控件。文件系统控件、定时器控件及

3、滚动条等常用控件。第一章文本框和标签框第一章文本框和标签框 程序运行中，需要通过键盘接收用户输入的信息，或把有关的信息显示在屏幕上。在Visual Basic中，可以用文本框和标签框实现信息的输入和输出。本节介绍文本框和标签框的特点以及使用方法。一、文本框 文本框TextBox是程序中最常用的输入和输出控件，用户可以在文本框中输入、编辑和显示文本内容。文本框在工具箱中的图标为。 关于属性、事件和方法的概念已在前面作了介绍。“属性用来表示对象的特性。“事件是指由VB系统事先设定的、能为对象感知、识别和响应的动作。“方法是VB提供的一种特殊的子程序，用来完成特定的操作。接下来，主要通过例题来介绍文

4、本框的常用属性、事件和方法及其应用。文本框的常用属性有：文本框的常用属性有：1. Text属性：字符串类型。返回或设置文本框中显示的内容。2. TabIndex属性：控制按Tab键时焦点变化的顺序。TabIndex的值从开始，焦点按TabIndex属性值从小到大依次跳转。3. TabStop属性：控制按Tab键时,使某个控件“轮空与否。一般控件的TabStop属性的缺省值为True，表示按Tab键时光标移到本控件处“停下来”，即焦点正常地移到本控件。若设置为False,则按Tab键时，光标跳过本控件不停顿。4. MaxLength属性：设置文本框中用户可以输入的字符串长度是否受到限制。缺省值为

5、0，表示该文本框中字符串长度只受操作系统内存的限制；若该属性被设置为大于0的整数，则表示文本框中能够输入输出的最大字符数。5. MultiLine属性：设置文本框是单行方式还是多行方式，有True和False两种属性值。设置为True时文本框以多行文本方式显示文本，一行显示不下的内容会自动换到下行显示；否则，以单行方式显示，超出文本框宽度的部分会被截掉。6. PasswordChar属性：该属性用来设置是否在文本框控件中显示用户键入的实际字符。如果为该属性设置了某一字符,那么无论Text属性值是什么，在文本框中都只显示指定字符。（三）（三） 文本框的常用事件文本框的常用事件1. Change1

6、. Change事件事件 例题例题3-4 3-4 设计一个程序，窗体上有两个设计一个程序，窗体上有两个文本框和两个命令按钮，窗体外观如图文本框和两个命令按钮，窗体外观如图3-43-4所所示。当程序运行时，用户在第一个文本框内输示。当程序运行时，用户在第一个文本框内输入信息时，立即在第二个文本框中显示相同的入信息时，立即在第二个文本框中显示相同的内容；在第二个文本框中输入信息时，立即在内容；在第二个文本框中输入信息时，立即在第一个文本框中显示相同的内容第一个文本框中显示相同的内容（1 1界面设计见图界面设计见图3-43-4； （2 2属性设置见表属性设置见表3-53-5； 表表3-5 3-5 例

7、题例题3-43-4对象属性设置对象属性设置对象对象属性设置属性设置窗体窗体Caption=Caption=文本框的文本框的ChangeChange事件事件 ，（名称），（名称）为为frmChangefrmChange文本框文本框Text=Text=，（名称）为，（名称）为txtShow1txtShow1文本框文本框Text=Text=，（名称）为，（名称）为txtShow2txtShow2命令按钮命令按钮Caption=Caption=清除清除 ，（名称）为，（名称）为cmdClearcmdClear命令按钮命令按钮Caption=Caption=退出退出 ，（名称）为，（名称）为cmdExi

8、tcmdExit（3 3编写事件过程代码如下：编写事件过程代码如下：Private Sub txtShow1_Change()Private Sub txtShow1_Change() txtShow2 = txtShow1 txtShow2 = txtShow1End SubEnd SubPrivate Sub txtShow2_Change()Private Sub txtShow2_Change() txtShow1 = txtShow2 txtShow1 = txtShow2End Sub End Sub Private Sub cmdClear_Click()Private Sub

9、cmdClear_Click() txtShow1 = txtShow1 = txtShow2 = txtShow2 = End SubEnd SubPrivate Sub cmdExit_Click()Private Sub cmdExit_Click() End EndEnd SubEnd Sub2. KeyPress2. KeyPress事件事件 我们在文本框内输入数据时，难免会出现错误的数据。怎样我们在文本框内输入数据时，难免会出现错误的数据。怎样判断、检查输入数据是否正确有效呢？文本框控件支持判断、检查输入数据是否正确有效呢？文本框控件支持KeyPressKeyPress事件，该事件

10、识别从键盘上输入的字符。每当用户从事件，该事件识别从键盘上输入的字符。每当用户从键盘上敲入一个字符，就触发键盘上敲入一个字符，就触发KeyPressKeyPress事件。我们可以通过相事件。我们可以通过相应的事件过程进行数据校验。应的事件过程进行数据校验。例题例题3-5 3-5 设计一个程序，窗体上有一个文本框。运行程序时，当设计一个程序，窗体上有一个文本框。运行程序时，当向文本框中输入字母时，在文本框中显示数字向文本框中输入字母时，在文本框中显示数字0 0，输入其他字，输入其他字符时不予显示，即不接受其他字符。符时不予显示，即不接受其他字符。分析：大写分析：大写2626个英文字母的个英文字母

11、的ASCIIASCII码值在码值在6565与与9090之间，小写之间，小写2626个个英文字母的英文字母的ASCIIASCII码值在码值在9797与与122122之间，均为连续的字符。如果之间，均为连续的字符。如果用户输入的英文字母的用户输入的英文字母的ASCIIASCII值在此范围内，说明输入了字母值在此范围内，说明输入了字母字符，对应的显示数字字符，对应的显示数字0 0，否则不予显示。，否则不予显示。 1 1界面设计如图界面设计如图3-53-5所示，由窗体加文本框所示，由窗体加文本框(txtInfo)(txtInfo)组成，文组成，文本框单行、多行均可。本框单行、多行均可。图图3-53-5

12、文本框的文本框的KeyPressKeyPress事件应用程序界面事件应用程序界面（2 2编写事件代码如下：编写事件代码如下：Dim t As String Dim t As String 定义窗体级变量定义窗体级变量t tPrivate Sub txtInfo_Change()Private Sub txtInfo_Change() txtInfo = t txtInfo = tEnd SubEnd SubPrivate Sub txtInfo_KeyPress(KeyAscii As Integer)Private Sub txtInfo_KeyPress(KeyAscii As Integ

13、er) c = Chr$(KeyAscii) c = Chr$(KeyAscii) If (c = a And c = A And c = a And c = A And c Command1.Caption = - Command2.Caption = - Command2.Caption = - Command3.Caption = Command3.Caption = 清空所选课程清空所选课程 （3 3双击双击Command1Command1按钮，在其按钮，在其ClickClick事件中编写如下代码：事件中编写如下代码：Private Sub Command1_Click() Priva

14、te Sub Command1_Click() 选择课程选择课程 Dim i As Integer Dim i As Integer 定义整型变量定义整型变量i i i = 0 i = 0 设变量设变量i i初值为初值为0 0 Do While i = List1.ListCount - 1 Do While i = List1.ListCount - 1 从从List1List1项目的第一个循环到项目的第一个循环到最后一个最后一个 If List1.Selected(i) = True Then If List1.Selected(i) = True Then 如果如果List1List1的

15、第的第i i项是被选中项是被选中的那么的那么 List2.AddItem List1.List(i) List2.AddItem List1.List(i) 在在List2List2中添加中添加List1List1的第的第i i项项 List1.RemoveItem i List1.RemoveItem i 在在List1List1中移除其第中移除其第i i项项 ElseElse i = i + 1 i = i + 1 End If End If Loop LoopEnd SubEnd Sub添加完代码后运行窗体，从左边列表中选中几项，再单击添加完代码后运行窗体，从左边列表中选中几项，再单击C

16、ommand1Command1，看看效果如何？是否如图，看看效果如何？是否如图3-18 3-18 所示。所示。在步骤在步骤3 3中，我们又用到了列表框中，我们又用到了列表框3 3个新的属性：个新的属性：ListList、ListCountListCount、SelectedSelected和新方法和新方法RemoveItemRemoveItem。下面分别介绍一下它们的用法。下面分别介绍一下它们的用法。ListList属性：字符串数组。列表框和组合框的属性：字符串数组。列表框和组合框的ListList属性含有多个值，这些值属性含有多个值，这些值构成一个数组，数组的每一项都是一个列表项目。引用项目

17、的语法为：构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：ListList属性：字符串数组。列表框和组合框的属性：字符串数组。列表框和组合框的ListList属性含有多个属性含有多个值，这些值构成一个数组，数组的每一项都是一个列表项目。值，这些值构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：引用项目的语法为：对象名对象名.List( i ).List( i )其中，对象名为列表框或组合框名，其中，对象名为列表框或组合框名，i i为项目的索引号，取值为项目的索引号，取值范围是范围是0ListCount-10ListCount-1。在设计模式下，可以通过属性窗口的在设

18、计模式下，可以通过属性窗口的ListList下拉框中输入项目。下拉框中输入项目。若要连续输入多个项目，在每输入一项后，可以按若要连续输入多个项目，在每输入一项后，可以按Ctrl+EnterCtrl+Enter，便可继续输入下一个项目。当所有项目输入后，便可继续输入下一个项目。当所有项目输入后，再按再按EnterEnter键。键。ListCountListCount属性：整型数值，用于返回列表框或组合框中列表属性：整型数值，用于返回列表框或组合框中列表项目的个数即项目的个数即ListList数组中的元素个数。数组中的元素个数。SelectedSelected属性：返回或设置列表框控件中的一个项目

19、的选择状属性：返回或设置列表框控件中的一个项目的选择状态注意，组合框控件无此属性）。该属性是一个逻辑类型态注意，组合框控件无此属性）。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与变化范围与ListList属性相同。属性相同。ListIndexListIndex属性：整型数值，用于返回或设置列表框控件或组属性：整型数值，用于返回或设置列表框控件或组合框控件中当前选择项目的索引，第一个项目的索引为合框控件中当前选择项目的索引，第一个项目的索引为0 0，而，而最后一个项目的索引为最后一个项目的索引为ListCo

20、unt-1ListCount-1。如果没有选中，则。如果没有选中，则ListIndexListIndex属性值为属性值为-1-1。表表3-18 3-18 各对象的主要属性设置各对象的主要属性设置对象对象属性属性( (属性值属性值) )属性属性( (属性值属性值) )窗体窗体Name(FrmSamplName(FrmSample)e)Caption(“Caption(“选择控件示例选择控件示例”), ), BorderStyle(1- Fixed Single)BorderStyle(1- Fixed Single)标签标签1 1Name(LblSamplName(LblSample)e)Cap

21、tion(“Caption(“字体设置示例字体设置示例”), ), Alignment(2 Alignment(2 Center) Center)标签标签2 2Name(Label2)Name(Label2)Caption(“Caption(“字体字体”) )标签标签3 3Name(Label3)Name(Label3)Caption(“Caption(“字号字号”) )标签标签4 4Name(Label4)Name(Label4)Caption(“Caption(“颜色颜色”) )标签标签5 5Name(Label5)Name(Label5)Caption(“Caption(“字形字形”)

22、)选框选框1 1Name(ChkUnderName(ChkUnderLine)Line)Caption(“Caption(“下划线下划线”) )选框选框2 2Name(ChkStrikName(ChkStrikethrough)ethrough)Caption(“Caption(“删除线删除线”) )合框合框1 1Name(CboFontNName(CboFontName)ame)Style (2 Style (2 Dropdown List) Dropdown List)合框合框2 2Name(CboFontSName(CboFontSize)ize)Style (2 Style (2 Dr

23、opdown List) Dropdown List)合框合框3 3Name(CboFontCName(CboFontColor)olor)Style (2 Style (2 Dropdown List) Dropdown List)表框表框1 1Name(LstFontSName(LstFontStyle)tyle)Style (0 Style (0 Standard) ( Standard) (默认值默认值) )程序代码如下：程序代码如下：Option ExplicitOption ExplicitPrivate Sub Form_Load()Private Sub Form_Load()

24、 LblSample.AutoSize = True LblSample.AutoSize = True 为字形为字形LstFontStyleLstFontStyle列表框添加项目列表框添加项目 With LstFontStyleWith LstFontStyle .AddItem .AddItem 常规常规 .AddItem .AddItem 粗体粗体 .AddItem .AddItem 斜体斜体 .AddItem .AddItem 粗体粗体 斜体斜体 End With End With 令令LstFontStyleLstFontStyle第一项被选中第一项被选中 LstFontStyle.

25、Text = LstFontStyle.Text = 常规常规 给字体给字体CboFontNameCboFontName下拉列表框添加项目下拉列表框添加项目 Dim i As IntegerDim i As Integer For i = 0 To Screen.FontCount - 1 For i = 0 To Screen.FontCount - 1 CboFontName.AddItem Screen.Fonts(i) CboFontName.AddItem Screen.Fonts(i) Next i Next i 令默认字体为令默认字体为“宋体宋体” CboFontName.Tex

26、t = CboFontName.Text = 宋体宋体 LblSample.FontName = LblSample.FontName = 宋体宋体 给字号给字号CboFontSizeCboFontSize下拉列表框添加项目下拉列表框添加项目 For i = 10 To 40 Step 2For i = 10 To 40 Step 2 CboFontSize.AddItem Str(i) CboFontSize.AddItem Str(i) Next i Next i 令默认字号为令默认字号为1010 CboFontSize.ListIndex = 0 CboFontSize.ListInde

27、x = 0 LblSample.FontSize = 10 LblSample.FontSize = 10 给颜色给颜色CboFontColorCboFontColor下拉列表框添加项目下拉列表框添加项目 With CboFontColorWith CboFontColor .AddItem .AddItem 黑色黑色 .AddItem .AddItem 红色红色 .AddItem .AddItem 绿色绿色 .AddItem .AddItem 黄色黄色 .AddItem .AddItem 蓝色蓝色 .AddItem .AddItem 紫红色紫红色 .AddItem .AddItem 青色青色

28、 .AddItem .AddItem 白色白色 End With End With 令默认颜色为黑色令默认颜色为黑色 CboFontColor.Text = CboFontColor.Text = 黑色黑色 LblSample.ForeColor = vbBlack vbBlack LblSample.ForeColor = vbBlack vbBlack 为为VBVB保留字保留字, ,表示黑色。表示黑色。End SubEnd SubCboFontName.Text = CboFontName.Text = 宋体宋体 LblSample.FontName = LblSample.FontNam

29、e = 宋体宋体 给字号给字号CboFontSizeCboFontSize下拉列表框添加项目下拉列表框添加项目 For i = 10 To 40 Step 2For i = 10 To 40 Step 2 CboFontSize.AddItem Str(i) CboFontSize.AddItem Str(i) Next i Next i 令默认字号为令默认字号为1010 CboFontSize.ListIndex = 0 CboFontSize.ListIndex = 0 LblSample.FontSize = 10 LblSample.FontSize = 10 给颜色给颜色CboFon

30、tColorCboFontColor下拉列表框添加项目下拉列表框添加项目 With CboFontColorWith CboFontColor .AddItem .AddItem 黑色黑色 .AddItem .AddItem 红色红色 .AddItem .AddItem 绿色绿色 .AddItem .AddItem 黄色黄色 .AddItem .AddItem 蓝色蓝色 .AddItem .AddItem 紫红色紫红色 .AddItem .AddItem 青色青色 .AddItem .AddItem 白色白色 End With End With 令默认颜色为黑色令默认颜色为黑色 CboFont

31、Color.Text = CboFontColor.Text = 黑色黑色 LblSample.ForeColor = vbBlack vbBlack LblSample.ForeColor = vbBlack vbBlack 为为VBVB保留字保留字, ,表示黑色。表示黑色。End SubEnd SubTextText属性：对于下拉式组合框与简单组合框，属性：对于下拉式组合框与简单组合框，TextText属性返回编属性返回编辑区域中的文本。对于列表框控件或下拉列表框，辑区域中的文本。对于列表框控件或下拉列表框，TextText属性的属性的返回值总与返回值总与List(ListIndex)Li

32、st(ListIndex)的值相同。的值相同。ScreenScreen对象：代表了整个对象：代表了整个WindowsWindows桌面，它提供了一种不需要桌面，它提供了一种不需要知道窗体或控件的名称就能使用它的一种方法。其中，知道窗体或控件的名称就能使用它的一种方法。其中，Screen.FontsScreen.Fonts返回当前显示器或活动打印机可用的所有字体名。返回当前显示器或活动打印机可用的所有字体名。FontsFonts是字符串数组。是字符串数组。Screen.FontCountScreen.FontCount返回屏幕可用的字体返回屏幕可用的字体数。其他数。其他ScreenScreen对

33、象的属性限于篇幅，这里不再介绍，请读者对象的属性限于篇幅，这里不再介绍，请读者查阅相关资料。查阅相关资料。ColorColor常数：常数：VBVB系统将常用颜色以保留字的形式表示，方便记系统将常用颜色以保留字的形式表示，方便记忆。表忆。表3-193-19列出了常用的颜色常数。列出了常用的颜色常数。表表3-19 Color3-19 Color常数常数常数常数值值描绘描绘vbBlackvbBlack0 x00 x0黑色黑色vbRedvbRed0 xFF0 xFF红色红色vbGreenvbGreen0 xFF000 xFF00绿色绿色vbYellowvbYellow0 xFFFF0 xFFFF黄色黄

34、色vbBluevbBlue0 xFF00000 xFF0000蓝色蓝色vbMagentavbMagenta0 xFF00FF0 xFF00FF紫红色紫红色vbCyanvbCyan0 xFFFF000 xFFFF00青色青色vbWhitevbWhite0 xFFFFFF0 xFFFFFF白色白色Private Sub CboFontColor_Click() Private Sub CboFontColor_Click() 设置字体颜色过程设置字体颜色过程 Select Case CboFontColor.TextSelect Case CboFontColor.Text Case Case 黑

35、色黑色: LblSample.ForeColor = vbBlack: LblSample.ForeColor = vbBlack Case Case 红色红色: LblSample.ForeColor = vbRed: LblSample.ForeColor = vbRed Case Case 绿色绿色: LblSample.ForeColor = vbGreen: LblSample.ForeColor = vbGreen Case Case 黄色黄色: LblSample.ForeColor = vbYellow: LblSample.ForeColor = vbYellow Case

36、Case 蓝色蓝色: LblSample.ForeColor = vbBlue: LblSample.ForeColor = vbBlue Case Case 紫红色紫红色: LblSample.ForeColor = vbMagenta: LblSample.ForeColor = vbMagenta Case Case 青色青色: LblSample.ForeColor = vbCyan: LblSample.ForeColor = vbCyan Case Case 白色白色: LblSample.ForeColor = vbWhite: LblSample.ForeColor = vbW

37、hite End Select End SelectEnd SubEnd SubPrivate Sub CboFontName_Click() Private Sub CboFontName_Click() 设置字体名过程设置字体名过程 LblSample.FontName = CboFontName.TextLblSample.FontName = CboFontName.TextEnd SubEnd SubPrivate Sub CboFontSize_Click() Private Sub CboFontSize_Click() 设置字号过程设置字号过程 LblSample.FontSi

38、ze = Val (CboFontSize.Text)LblSample.FontSize = Val (CboFontSize.Text)End SubEnd SubPrivate Sub ChkStrikethrough_Click() Private Sub ChkStrikethrough_Click() 设置字体删除线过程设置字体删除线过程 If ChkStrikethrough.Value = 1 ThenIf ChkStrikethrough.Value = 1 Then LblSample.FontStrikethru = True LblSample.FontStriketh

39、ru = True 标签标签LblSampleLblSample的删除线为真的删除线为真ElseElse LblSample.FontStrikethru = False LblSample.FontStrikethru = False 标签标签LblSampleLblSample的删除线为假的删除线为假End IfEnd IfEnd SubEnd SubPrivate Sub ChkUnderLine_Click() Private Sub ChkUnderLine_Click() 设置字体下划线过程设置字体下划线过程If ChkUnderLine.Value = 1 ThenIf ChkU

40、nderLine.Value = 1 Then LblSample.FontUnderline = True LblSample.FontUnderline = True 标签标签LblSampleLblSample的下划线为真的下划线为真ElseElse LblSample.FontUnderline = False LblSample.FontUnderline = False 标签标签LblSampleLblSample的下划线为假的下划线为假End IfEnd IfEnd SubEnd SubPrivate Sub LstFontStyle_Click() Private Sub Ls

41、tFontStyle_Click() 设置字形过程设置字形过程 Select Case LstFontStyle.ListIndex Select Case LstFontStyle.ListIndex 判断字形列表框的项目索引判断字形列表框的项目索引值值 Case 0: Case 0: 当索引当索引ListIndex=0ListIndex=0，即，即“常规常规时时 LblSample.FontBold = False LblSample.FontBold = False 标签粗体为假标签粗体为假 LblSample.FontItalic = False LblSample.FontItali

42、c = False 标签斜体为假标签斜体为假 Case 1: Case 1: 当索引当索引ListIndex=1ListIndex=1，即，即“粗体粗体时时 LblSample.FontBold = TrueLblSample.FontBold = True LblSample.FontItalic = False LblSample.FontItalic = False Case 2: Case 2: 当索引当索引ListIndex=2ListIndex=2，即，即“斜体斜体时时 LblSample.FontItalic = TrueLblSample.FontItalic = True L

43、blSample.FontBold = False LblSample.FontBold = False Case 3: Case 3: 当索引当索引ListIndex=3ListIndex=3，即，即“粗体粗体 斜体斜体时时 LblSample.FontBold = TrueLblSample.FontBold = True LblSample.FontItalic = True LblSample.FontItalic = True End Select End SelectLblSample.FontStrikethru = False LblSample.FontStrikethru

44、= False 标签标签LblSampleLblSample的删除线为假的删除线为假End IfEnd IfEnd SubEnd SubPrivate Sub ChkUnderLine_Click() Private Sub ChkUnderLine_Click() 设置字体下划线过程设置字体下划线过程If ChkUnderLine.Value = 1 ThenIf ChkUnderLine.Value = 1 Then LblSample.FontUnderline = True LblSample.FontUnderline = True 标签标签LblSampleLblSample的下划

45、线为真的下划线为真ElseElse LblSample.FontUnderline = False LblSample.FontUnderline = False 标签标签LblSampleLblSample的下划线为假的下划线为假End IfEnd IfEnd SubEnd SubPrivate Sub LstFontStyle_Click() Private Sub LstFontStyle_Click() 设置字形过程设置字形过程 Select Case LstFontStyle.ListIndex Select Case LstFontStyle.ListIndex 判断字形列表框的项

46、目索引值判断字形列表框的项目索引值 Case 0: Case 0: 当索引当索引ListIndex=0ListIndex=0，即，即“常规常规时时 LblSample.FontBold = False LblSample.FontBold = False 标签粗体为假标签粗体为假 LblSample.FontItalic = False LblSample.FontItalic = False 标签斜体为假标签斜体为假 Case 1: Case 1: 当索引当索引ListIndex=1ListIndex=1，即，即“粗体粗体时时 LblSample.FontBold = TrueLblSamp

47、le.FontBold = True LblSample.FontItalic = False LblSample.FontItalic = False Case 2: Case 2: 当索引当索引ListIndex=2ListIndex=2，即，即“斜体斜体时时 LblSample.FontItalic = TrueLblSample.FontItalic = True LblSample.FontBold = False LblSample.FontBold = False Case 3: Case 3: 当索引当索引ListIndex=3ListIndex=3，即，即“粗体粗体 斜体斜体

48、时时 LblSample.FontBold = TrueLblSample.FontBold = True LblSample.FontItalic = True LblSample.FontItalic = True End Select End Select第五节第五节 文件系统控件文件系统控件一、驱动器列表控件一、驱动器列表控件DriveListBoxDriveListBox）图图3-24 20 3-24 20 驱动器列表框驱动器列表框驱动器列表框是一种下拉式列表框，能够自动列出计算机上所驱动器列表框是一种下拉式列表框，能够自动列出计算机上所有的硬有的硬 图图3-20 3-20 驱动器列

49、表框驱动器列表框盘、软盘和光盘驱动器。且用户不能修改其中条目。如图盘、软盘和光盘驱动器。且用户不能修改其中条目。如图3-203-20所示。用户常一个重要属性所示。用户常一个重要属性DriveDrive。DriveDrive属性：该属性用来在程序运行期间返回或设置当前显示属性：该属性用来在程序运行期间返回或设置当前显示的或用户选择的驱动器号及卷标，默认值为当前驱动器。该的或用户选择的驱动器号及卷标，默认值为当前驱动器。该属性设计时不可用。当属性设计时不可用。当DiveDive值改变时，会引发其值改变时，会引发其ChangeChange事件。事件。格式：对象格式：对象.Drive=.Drive=

50、指定所选择的驱动器。如指定所选择的驱动器。如“A:”A:”、“C:”C:”等。等。从列表框中选择驱动器并不能改变计算机系统当前的工作驱动从列表框中选择驱动器并不能改变计算机系统当前的工作驱动器。但可以通过器。但可以通过ChDriveChDrive语句来实现。如语句来实现。如ChDrive ChDrive Drive1.DriveDrive1.Drive。二、目录列表控件二、目录列表控件DirListBoxDirListBox）图图3-25 21 3-25 21 目录列表框目录列表框目录列表框以层次结构显示指定目录下所有的一级子目录列表框以层次结构显示指定目录下所有的一级子目录。如图目录。如图3

51、-213-21所示。用户常用属性所示。用户常用属性PathPath。PathPath属性：用于返回或设置当前属性。默认值是当前属性：用于返回或设置当前属性。默认值是当前路径。该属性设计时是不可用的。当路径。该属性设计时是不可用的。当PathPath值改变时，值改变时，会引发其会引发其ChangeChange事件。事件。格式：对象格式：对象.Path=.Path= 表示路径名的字符串表达式。如表示路径名的字符串表达式。如“C:mydir”C:mydir”。从列表框中选择目录并不能改变计算机系统当前的工从列表框中选择目录并不能改变计算机系统当前的工作目录。但可以通过作目录。但可以通过ChDirCh

52、Dir语句来实现。语句来实现。 图图3-21 3-21 目录列表框目录列表框 三、文件列表控件三、文件列表控件FileListBoxFileListBox）1.Path1.Path属性。用于返回或设置文件列表框当前目录，设计时不可用。如属性。用于返回或设置文件列表框当前目录，设计时不可用。如“C:Program FilesJava”C:Program FilesJava”。当。当PathPath值改变时，会引发其值改变时，会引发其ChangeChange事件。事件。2.Pattern2.Pattern属性。用于返回或设置文件列表框所显示的文件类型。可在设计属性。用于返回或设置文件列表框所显示的

53、文件类型。可在设计状态或在程序运行时设置。如状态或在程序运行时设置。如File1.Pattern= File1.Pattern= * *.bmp;.bmp;* *.jpg;.jpg;* *.gif.gif。默认值为默认值为“* *. .* *”，表示显示所有的文件。当，表示显示所有的文件。当PatternPattern值改变时，会引发值改变时，会引发其其PatternChangePatternChange事件。事件。3.FileName3.FileName属性。用于返回或设置被选定文件的文件名，设计时不可用属性。用于返回或设置被选定文件的文件名，设计时不可用。图图3-22 3-22 文件列表框

54、文件列表框 四、文件系统控件的联动四、文件系统控件的联动例题例题3-163-16：新建一个窗体，界面如图：新建一个窗体，界面如图3-233-23所示。要求程序运行所示。要求程序运行时，文件系统控件联动；在文件列表框中选择每个文件，都时，文件系统控件联动；在文件列表框中选择每个文件，都能显示出其完整的路径和文件名。能显示出其完整的路径和文件名。图图3-23 3-23 文件系统控件联动示例文件系统控件联动示例表表3-203-20各对象的主要属性设置各对象的主要属性设置对象对象属性属性( (属性值属性值) )属性属性( (属性值属性值) )窗体窗体Name(Form1)Name(Form1)Capt

55、ion(“Caption(“文件系统控件联动文件系统控件联动示例示例”) )标签标签1 1Name(Label1)Name(Label1)C a p t i o n ( “ ” ) , C a p t i o n ( “ ” ) , BorderStyle(1-fixed single)BorderStyle(1-fixed single)标签标签2 2Name(Label2)Name(Label2)Caption(“Caption(“当前选中的文件当前选中的文件”) )框架框架Name(Frame1)Name(Frame1)Caption(“”)Caption(“”)驱 动 器驱 动 器控件

56、控件Name(Drive1)Name(Drive1) 目 录 控目 录 控件件Name(Dir1)Name(Dir1) 文 件 控文 件 控件件Name(File1)Name(File1) 程序代码如下：程序代码如下：Option ExplicitOption ExplicitPrivate Sub Dir1_Change()Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Path = Dir1.Path 设置文件列表框与目录列表框联动设置文件列表框与目录列表框联动End SubEnd SubPrivate Sub Drive1_C

57、hange()Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Dir1.Path = Drive1.Drive 设置目录列表框与驱动器列表框联动设置目录列表框与驱动器列表框联动End SubEnd SubPrivate Sub File1_Click()Private Sub File1_Click() Dim Fname As String Dim Fname As String If Right(File1.Path, 1) = Then If Right(File1.Path, 1) = Then Fname = File1.Pa

58、th & File1.FileName Fname = File1.Path & File1.FileName Else Else Fname = File1.Path & & File1.FileName Fname = File1.Path & & File1.FileName End If End If Label1.Caption = Fname Label1.Caption = FnameEnd SubEnd SubPrivate Sub Form_Load()Private Sub Form_Load() ChDrive App.Pa

59、th ChDrive App.Path 设置当前驱动器设置当前驱动器 ChDir App.Path ChDir App.Path 设置当前目录设置当前目录End SubEnd Sub第六节第六节 定时器控件定时器控件1.1.属性属性（1 1IntervalInterval属性：该属性表示两个定时器事件这间的时间属性：该属性表示两个定时器事件这间的时间间隔，是定时器最重要的属性。其属性值以毫秒间隔，是定时器最重要的属性。其属性值以毫秒msms为单为单位，取值范围为位，取值范围为064767064767之间包括这两个数值）。当之间包括这两个数值）。当Interval=1000Interval=10

60、00时，表示时间间隔为时，表示时间间隔为1 1秒钟。当秒钟。当Interval=0Interval=0时，时，表示屏蔽定时器。因为计时器在表示屏蔽定时器。因为计时器在1 1秒钟内最多产生秒钟内最多产生1818个事件，个事件，所以两个事件之间的时间间隔精确度不超过所以两个事件之间的时间间隔精确度不超过1/181/18秒。秒。（2 2EnabledEnabled属性：只要属性：只要Enabled=TrueEnabled=True并且并且Interval0Interval0，则定，则定时器工作；当时器工作；当Enabled=FalseEnabled=False时，定时器停止工作。时，定时器停止工作。2.Timer2.Timer事件：定时器只能响应这一事件。当事件：定时器