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

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

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

3、滚动条等常用控件。第一章文本框和标签框第一章文本框和标签框 程序运行中，需要通过键盘接收用户输入的信息，或把程序运行中，需要通过键盘接收用户输入的信息，或把有关的信息显示在屏幕上。在有关的信息显示在屏幕上。在Visual BasicVisual Basic中，可以用文本中，可以用文本框和标签框实现信息的输入和输出。本节介绍文本框和标签框和标签框实现信息的输入和输出。本节介绍文本框和标签框的特点以及使用方法。框的特点以及使用方法。一、文本框一、文本框 文本框（文本框（TextBoxTextBox）是程序中最常用的输入和输出控件，是程序中最常用的输入和输出控件，用户可以在文本框中输入、编辑和显示文

4、本内容。文本框在用户可以在文本框中输入、编辑和显示文本内容。文本框在工具箱中的图标为。工具箱中的图标为。关于属性、事件和方法的概念已在前面作了介绍。关于属性、事件和方法的概念已在前面作了介绍。“属属性性”用来表示对象的特性。用来表示对象的特性。“事件事件”是指由是指由VBVB系统事先设定系统事先设定的、能为对象感知、识别和响应的动作。的、能为对象感知、识别和响应的动作。“方法方法”是是VBVB提供提供的一种特殊的子程序，用来完成特定的操作。接下来，主要的一种特殊的子程序，用来完成特定的操作。接下来，主要通过例题来介绍文本框的常用属性、事件和方法及其应用。通过例题来介绍文本框的常用属性、事件和方

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

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

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

8、设置对象对象属性设置属性设置窗体窗体Caption=Caption=文本框的文本框的ChangeChange事件事件，（名称），（名称）为为frmChangefrmChange文本框文本框Text=Text=，（名称）为，（名称）为txtShow1txtShow1文本框文本框Text=Text=，（名称）为，（名称）为txtShow2txtShow2命令按钮命令按钮Caption=Caption=清除清除，（名称）为，（名称）为cmdClearcmdClear命令按钮命令按钮Caption=Caption=退出退出，（名称）为，（名称）为cmdExitcmdExit（3 3）编写事件过程代码如

9、下：）编写事件过程代码如下：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 Private Sub cmdClear_ClickcmdClear_Click()()txtShow1=txtSh

10、ow1=txtShow2=txtShow2=End SubEnd SubPrivate Sub Private Sub cmdExit_ClickcmdExit_Click()()End EndEnd SubEnd Sub2.2.KeyPressKeyPress事件事件 我们在文本框内输入数据时，难免会出现错误的数据。怎样判断、检我们在文本框内输入数据时，难免会出现错误的数据。怎样判断、检查输入数据是否正确有效呢？文本框控件支持查输入数据是否正确有效呢？文本框控件支持KeyPressKeyPress事件，该事件识别事件，该事件识别从键盘上输入的字符。每当用户从键盘上敲入一个字符，就触发从键盘上

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

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

13、2）编写事件代码如下：）编写事件代码如下：Dim t As String Dim t As String 定义窗体级变量定义窗体级变量t tPrivate Sub Private Sub txtInfo_ChangetxtInfo_Change()()txtInfotxtInfo=t=tEnd SubEnd SubPrivate Sub Private Sub txtInfo_KeyPress(KeyAsciitxtInfo_KeyPress(KeyAscii As Integer)As Integer)c=c=Chr$(KeyAsciiChr$(KeyAscii)If(c=a And c=A

14、 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()Private Sub Command1_Click()选择课程选择课程 Dim i As Integer Dim i As Integer 定义整型变量定义整型变量

15、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的第的第i i项是被选中项是被选中的那么的那么 List2.AddItem List1.List(i)List2.AddItem List1.List(i)在在List2List2中添加中添加

16、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添加完代码后运行窗体，从左边列表中选中几项，再单击添加完代码后运行窗体，从左边列表中选中几项，再单击Command1Command1，看看效果如何？是否如图看看效果如何？是否如图3-18 3-18 所示。所示。在步骤（在步骤（3 3）中，我们又用到了列表框）中，我们又用到了列表框3 3个新的属性：个新的属性：L

17、istList、ListCountListCount、SelectedSelected和新方法和新方法RemoveItemRemoveItem。下面分别介绍一下它们的用法。下面分别介绍一下它们的用法。ListList属性：属性：字符串数组。列表框和组合框的字符串数组。列表框和组合框的ListList属性含有多个值，这些属性含有多个值，这些值构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：值构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：ListList属性：属性：字符串数组。列表框和组合框的字符串数组。列表框和组合框的ListList属性含有多个值，这些属性含有多个

18、值，这些值构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：值构成一个数组，数组的每一项都是一个列表项目。引用项目的语法为：对象名对象名.List(i).List(i)其中，对象名为列表框或组合框名，其中，对象名为列表框或组合框名，i i为项目的索引号，取值范围是为项目的索引号，取值范围是0ListCount-10ListCount-1。在设计模式下，可以通过属性窗口的在设计模式下，可以通过属性窗口的ListList下拉框中输入项目。若要连续输下拉框中输入项目。若要连续输入多个项目，在每输入一项后，可以按入多个项目，在每输入一项后，可以按Ctrl+EnterCtrl+Enter，便

19、可继续输入下一便可继续输入下一个项目。当所有项目输入后，再按个项目。当所有项目输入后，再按EnterEnter键。键。ListCountListCount属性：属性：整型数值，用于返回列表框或组合框中列表项目的个整型数值，用于返回列表框或组合框中列表项目的个数即数即ListList数组中的元素个数。数组中的元素个数。SelectedSelected属性：属性：返回或设置列表框控件中的一个项目的选择状态（注意，返回或设置列表框控件中的一个项目的选择状态（注意，组合框控件无此属性）。该属性是一个逻辑类型的数组，数组元素个数组合框控件无此属性）。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项

20、目数相同，其下标的变化范围与与列表框中的项目数相同，其下标的变化范围与ListList属性相同。属性相同。ListIndexListIndex属性属性：整型数值，用于返回或设置列表框控件或组合框控件：整型数值，用于返回或设置列表框控件或组合框控件中当前选择项目的索引，第一个项目的索引为中当前选择项目的索引，第一个项目的索引为0 0，而最后一个项目的索引为，而最后一个项目的索引为ListCount-1ListCount-1。如果没有选中，则如果没有选中，则ListIndexListIndex属性值为属性值为-1-1。表表3-18 3-18 各对象的主要属性设置各对象的主要属性设置对象对象属性属性

21、(属性值属性值)属性属性(属性值属性值)窗体窗体Name(FrmSamplName(FrmSample e)Caption(“Caption(“选择控件示例选择控件示例”),),BorderStyle(1-Fixed Single)BorderStyle(1-Fixed Single)标签标签1 1Name(LblSamplName(LblSample e)Caption(“Caption(“字体设置示例字体设置示例”),),Alignment(2 Center)Alignment(2 Center)标签标签2 2Name(Label2)Name(Label2)Caption(“Caption

22、(“字体字体”)标签标签3 3Name(Label3)Name(Label3)Caption(“Caption(“字号字号”)标签标签4 4Name(Label4)Name(Label4)Caption(“Caption(“颜色颜色”)标签标签5 5Name(Label5)Name(Label5)Caption(“Caption(“字形字形”)选框选框1 1Name(ChkUnderName(ChkUnderLineLine)Caption(“Caption(“下划线下划线”)选框选框2 2Name(ChkStrikName(ChkStrikethroughethrough)Caption(“

23、Caption(“删除线删除线”)合框合框1 1Name(CboFontNName(CboFontNameame)Style(2 Dropdown List)Style(2 Dropdown List)合框合框2 2Name(CboFontSName(CboFontSizeize)Style(2 Dropdown List)Style(2 Dropdown List)合框合框3 3Name(CboFontCName(CboFontColorolor)Style(2 Dropdown List)Style(2 Dropdown List)表框表框1 1Name(LstFontSName(LstF

24、ontStyletyle)Style(0 Standard)(Style(0 Standard)(默认值默认值)程序代码如下：程序代码如下：Option ExplicitOption ExplicitPrivate Sub Form_Load()Private Sub Form_Load()LblSample.AutoSizeLblSample.AutoSize=True=True 为字形为字形LstFontStyleLstFontStyle列表框添加项目列表框添加项目 With With LstFontStyleLstFontStyle .AddItemAddItem 常规常规 .AddIt

25、emAddItem 粗体粗体 .AddItemAddItem 斜体斜体 .AddItemAddItem 粗体粗体 斜体斜体 End With End With 令令LstFontStyleLstFontStyle第一项被选中第一项被选中 LstFontStyle.TextLstFontStyle.Text=常规常规 给字体给字体CboFontNameCboFontName下拉列表框添加项目下拉列表框添加项目 Dim i As IntegerDim i As Integer For i=0 To For i=0 To Screen.FontCountScreen.FontCount-1-1 Cb

26、oFontName.AddItemCboFontName.AddItem Screen.Fonts(i)Screen.Fonts(i)Next i Next i 令默认字体为令默认字体为“宋体宋体”CboFontName.TextCboFontName.Text=宋体宋体 LblSample.FontNameLblSample.FontName=宋体宋体 给字号给字号CboFontSizeCboFontSize下拉列表框添加项目下拉列表框添加项目 For i=10 To 40 Step 2For i=10 To 40 Step 2 CboFontSize.AddItemCboFontSize.

27、AddItem Str(iStr(i)Next i Next i 令默认字号为令默认字号为1010 CboFontSize.ListIndexCboFontSize.ListIndex=0=0 LblSample.FontSizeLblSample.FontSize=10=10 给颜色给颜色CboFontColorCboFontColor下拉列表框添加项目下拉列表框添加项目 With With CboFontColorCboFontColor .AddItemAddItem 黑色黑色 .AddItemAddItem 红色红色 .AddItemAddItem 绿色绿色 .AddItemAddIt

28、em 黄色黄色 .AddItemAddItem 蓝色蓝色 .AddItemAddItem 紫红色紫红色 .AddItemAddItem 青色青色 .AddItemAddItem 白色白色 End With End With 令默认颜色为黑色令默认颜色为黑色 CboFontColor.TextCboFontColor.Text=黑色黑色 LblSample.ForeColorLblSample.ForeColor=vbBlackvbBlack vbBlackvbBlack 为为VBVB保留字保留字,表示黑色。表示黑色。End SubEnd SubCboFontName.TextCboFontNa

29、me.Text=宋体宋体 LblSample.FontNameLblSample.FontName=宋体宋体 给字号给字号CboFontSizeCboFontSize下拉列表框添加项目下拉列表框添加项目 For i=10 To 40 Step 2For i=10 To 40 Step 2 CboFontSize.AddItemCboFontSize.AddItem Str(iStr(i)Next i Next i 令默认字号为令默认字号为1010 CboFontSize.ListIndexCboFontSize.ListIndex=0=0 LblSample.FontSizeLblSample

30、.FontSize=10=10 给颜色给颜色CboFontColorCboFontColor下拉列表框添加项目下拉列表框添加项目 With With CboFontColorCboFontColor .AddItemAddItem 黑色黑色 .AddItemAddItem 红色红色 .AddItemAddItem 绿色绿色 .AddItemAddItem 黄色黄色 .AddItemAddItem 蓝色蓝色 .AddItemAddItem 紫红色紫红色 .AddItemAddItem 青色青色 .AddItemAddItem 白色白色 End With End With 令默认颜色为黑色令默认颜

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

32、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黄色黄色vbB

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

35、lSample.ForeColorLblSample.ForeColor=vbBlackvbBlack Case Case 红色红色:LblSample.ForeColorLblSample.ForeColor=vbRedvbRed Case Case 绿色绿色:LblSample.ForeColorLblSample.ForeColor=vbGreenvbGreen Case Case 黄色黄色:LblSample.ForeColorLblSample.ForeColor=vbYellowvbYellow Case Case 蓝色蓝色:LblSample.ForeColorLblSample

36、.ForeColor=vbBluevbBlue Case Case 紫红色紫红色:LblSample.ForeColorLblSample.ForeColor=vbMagentavbMagenta Case Case 青色青色:LblSample.ForeColorLblSample.ForeColor=vbCyanvbCyan Case Case 白色白色:LblSample.ForeColorLblSample.ForeColor=vbWhitevbWhite End Select End SelectEnd SubEnd SubPrivate Sub Private Sub CboFon

37、tName_ClickCboFontName_Click()()设置字体名过程设置字体名过程 LblSample.FontNameLblSample.FontName=CboFontName.TextCboFontName.TextEnd SubEnd SubPrivate Sub Private Sub CboFontSize_ClickCboFontSize_Click()()设置字号过程设置字号过程 LblSample.FontSizeLblSample.FontSize=Val(=Val(CboFontSize.TextCboFontSize.Text)End SubEnd SubPr

38、ivate Sub Private Sub ChkStrikethrough_ClickChkStrikethrough_Click()()设置字体删除线过程设置字体删除线过程 If If ChkStrikethrough.ValueChkStrikethrough.Value=1 Then=1 Then LblSample.FontStrikethruLblSample.FontStrikethru=True =True 标签标签LblSampleLblSample的删除线为真的删除线为真ElseElse LblSample.FontStrikethruLblSample.FontStrik

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

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

41、形列表框的项目索引值值 Case 0:Case 0:当索引当索引ListIndexListIndex=0=0，即即“常规常规”时时 LblSample.FontBoldLblSample.FontBold=False =False 标签粗体为假标签粗体为假 LblSample.FontItalicLblSample.FontItalic=False =False 标签斜体为假标签斜体为假 Case 1:Case 1:当索引当索引ListIndexListIndex=1=1，即即“粗体粗体”时时 LblSample.FontBoldLblSample.FontBold=True=True Lbl

42、Sample.FontItalicLblSample.FontItalic=False=False Case 2:Case 2:当索引当索引ListIndexListIndex=2=2，即即“斜体斜体”时时 LblSample.FontItalicLblSample.FontItalic=True=True LblSample.FontBoldLblSample.FontBold=False=False Case 3:Case 3:当索引当索引ListIndexListIndex=3=3，即即“粗体粗体 斜体斜体”时时 LblSample.FontBoldLblSample.FontBold=

43、True=True LblSample.FontItalicLblSample.FontItalic=True=True End Select End SelectLblSample.FontStrikethruLblSample.FontStrikethru=False =False 标签标签LblSampleLblSample的删除线为假的删除线为假End IfEnd IfEnd SubEnd SubPrivate Sub Private Sub ChkUnderLine_ClickChkUnderLine_Click()()设置字体下划线过程设置字体下划线过程If If ChkUnder

44、Line.ValueChkUnderLine.Value=1 Then=1 Then LblSample.FontUnderlineLblSample.FontUnderline=True =True 标签标签LblSampleLblSample的下划线为真的下划线为真ElseElse LblSample.FontUnderlineLblSample.FontUnderline=False =False 标签标签LblSampleLblSample的下划线为假的下划线为假End IfEnd IfEnd SubEnd SubPrivate Sub Private Sub LstFontStyle

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

46、 =False 标签斜体为假标签斜体为假 Case 1:Case 1:当索引当索引ListIndexListIndex=1=1，即即“粗体粗体”时时 LblSample.FontBoldLblSample.FontBold=True=True LblSample.FontItalicLblSample.FontItalic=False=False Case 2:Case 2:当索引当索引ListIndexListIndex=2=2，即即“斜体斜体”时时 LblSample.FontItalicLblSample.FontItalic=True=True LblSample.FontBoldLb

47、lSample.FontBold=False=False Case 3:Case 3:当索引当索引ListIndexListIndex=3=3，即即“粗体粗体 斜体斜体”时时 LblSample.FontBoldLblSample.FontBold=True=True LblSample.FontItalicLblSample.FontItalic=True=True End Select End Select第五节第五节 文件系统控件文件系统控件一、驱动器列表控件（一、驱动器列表控件（DriveListBoxDriveListBox）图图3-24 20 3-24 20 驱动器列表框驱动器列表

48、框驱动器列表框是一种下拉式列表框，能够自动列出计算机上所有的硬驱动器列表框是一种下拉式列表框，能够自动列出计算机上所有的硬 图图3-20 3-20 驱动器列表框驱动器列表框盘、软盘和光盘驱动器。且用户不能修改其中条目。如图盘、软盘和光盘驱动器。且用户不能修改其中条目。如图3-203-20所示。用户常一个重要属性所示。用户常一个重要属性DriveDrive。DriveDrive属性：该属性用来在程序运行期间返回或设置当前显示属性：该属性用来在程序运行期间返回或设置当前显示的或用户选择的驱动器号及卷标，默认值为当前驱动器。该的或用户选择的驱动器号及卷标，默认值为当前驱动器。该属性设计时不可用。当属

49、性设计时不可用。当DiveDive值改变时，会引发其值改变时，会引发其ChangeChange事件。事件。格式：对象格式：对象.Drive=.Drive=指定所选择的驱动器。如指定所选择的驱动器。如“A:”A:”、“C:C:”等。等。从列表框中选择驱动器并不能改变计算机系统当前的工作驱动从列表框中选择驱动器并不能改变计算机系统当前的工作驱动器。但可以通过器。但可以通过ChDriveChDrive语句来实现。如语句来实现。如ChDriveChDrive Drive1.DriveDrive1.Drive。二、目录列表控件（二、目录列表控件（DirListBoxDirListBox）图图3-25 2

50、1 3-25 21 目录列表框目录列表框目录列表框以层次结构显示指定目录下所有的一级子目录。如图目录列表框以层次结构显示指定目录下所有的一级子目录。如图3-213-21所示。所示。用户常用属性用户常用属性PathPath。PathPath属性：用于返回或设置当前属性。默认值是当前路径。该属性设计时属性：用于返回或设置当前属性。默认值是当前路径。该属性设计时是不可用的。当是不可用的。当PathPath值改变时，会引发其值改变时，会引发其ChangeChange事件。事件。格式：对象格式：对象.Path=.Path=表示路径名的字符串表达式。如表示路径名的字符串表达式。如“C:C:mydirmyd