单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第,10,章 其他控件及其应用,本章主要内容,10,.1,组合框与滚动条,10.2,文件管理控件,10.3,公共对话框,2,10,.1,组合框与滚动条,1,组合框（,ComboBox,）,组合框是文本框和列表框的组合方式，它包含一个文本框和一个列表框。用户可在文本框部分输入选项，也可用列表框部分选择选项。,属性,Style,：,外观属性。,组合框有三种外观,方法：,同列表框。,事件：,Style=0,时，响应,Click,Change,事件。,Style=1,时，响应,DbClick,，,Change,事件。,Style=2,时，响应,Click,事件。,3,2.,水平滚动条与垂直滚动条,VB,滚动条的主要功能也是用于解决显示信息过大时的定位问题。,当使用滚动条作为数量或速度的指示器时，可以利用滚动条的,Max,与,Min,属性设置控件的变化范围；,在单击滚动条或单击滚动条两端的箭头时，滚动条的,Value,属性值将随之递增或递减。,LargeChange,属性用于返回或设置在单击滚动条区域时，,Value,属性值的改变量；,SmallChange,属性则用于返回或设置当用户单击滚动条两端的箭头时,Value,属性值的改变量。,4,10.2,文件管理控件,VB,提供了驱动器列表框,、,目录列表框和文件列表框等三个特殊的控件。可将它们组合起来使用，创建与文件操作有关的自定义对话框，从而方便地查看系统的磁盘、目录和文件信息。,例子,5,驱动器列表框,驱动器列表框是一个下拉式列表框。缺省状态时，顶端突出显示用户系统当前驱动器名称。当用户单击列表框右侧的箭头时，列表框下拉列出系统所有的有效驱动器名称。,6,常用属性,Name,属性,缺省时，,Name,属性值为“,Drive1”,。,Drive,属性,Drive,属性是在程序,运行中所使用的属性,，用于返回用户在驱动器列表框中选取的驱动器。,可通过赋值改变,DRIVE,属性值，指定出现在列表框顶端的驱动器。,例如,Drive1.Drive,“,C:”,7,常用事件,Change,事件是驱动器列表框中最常用的事件。每当用户在驱动器列表框的下拉列表中选择一个驱动器，或者输入一个合法的驱动器标识符，或者在程序中给,Drive,属性赋一个新的值都会,改变列表框顶端显示的驱动器名,，,Change,事件就会发生，并激活,Change,事件过程。,8,ChDrive,语句（自学）,ChDrive,的功能是改变当前工作驱动器。,语句格式为：,ChDrive,Drive,格式中,Drive,参数是一个字符串型的参数，应为系统有效的磁盘驱动器名。使用该语句不会改变驱动器列表框的,Drive,属性值，不会引发,它的,Change,事件，也不会改变列表框的文本框显示的内容，只是改变当前工作驱动器。即指定对文件进行存取操作时的缺省驱动器。,示例,Drive,9,示例,Private Sub Chang_Drive(),ChDrive,D:,将当前工作驱动器改为,D,盘,Open ABC.txt For Input As#14,ChDrive,C:,将当前工作驱动器改为,C,盘,Open ABC.txt For Output As#15,End Sub,10,目录列表框,目录列表框显示用户系统的当前驱动器的目录结构，并突出显示当前目录。,-4,0,-3,-2,-1,1,2,11,常用属性,Name,属性,-,缺省时，,Name,属性为“,Dir1,”,。,Path,属性,-,用来设置和返回目录列表框中的当前目录。,Path,属性只能在程序代码中设置即它是一个运行时属性，不能在属性窗口中设置,。在应用程序中可以使用下述语句格式改变当前目录。,目录列表框名,.PATH=,路径,当驱动器列表框控件,(Drive1),的,Drive,属性被改变,时，发生驱动器列表框的,Drive1_Change,事件,;,在这个事件中，写入代码,Dir1.Path =Drive1.Drive,语句，就保证了驱动器列表框与目录列表框的同步,即显示该驱动器上的目录内容,.,12,常用事件,同驱动器列表框一样，,Change,事件是目录列表框控件的最基本的事件之一。,当用户双击目录列表框中的目录项，或在程序代码中通过赋值语句改变,Path,属性值，均会发生,Change,事件。,13,ChDir,语句（自学）,ChDir,语句的,功能是设置当前工作目录。,语句格式为：,Chdir,path,语句中的参数,Path,是一个字符串型表达式，用来指明哪个目录或文件夹将成为新的缺省工作目录或文件夹。也就是说改变了系统存、取文件的缺省路径。,Path,中可以包含驱动器符号。如果不指明驱动器符号，,ChDir,则改变当前工作驱动器上的缺省的工作目录或文件夹。特别要注意的是，,ChDir,语句改变的是缺省的工作目录而不是缺省的工作驱动器。,Path,14,文件列表框,文件列表框在运行时列出由文件列表框控件的,Path,属性指定目录中的文件,15,常用属性,Name,属性,缺省时，,Name,属性为“,File1”,16,Path,属性,文件列表框的,Path,属性是用来设置和返回文件列表框中所显示文件的路径。它是一个运行时属性,，在程序代码中可以通过下面的赋值语句重新设置,Path,属性的值。例如：,File1.Path=,路径,或,File1.Path=Dir1.Path,当目录驱动器列表框控件,(Dir1),的,Path,属性被改变,时，发生目录列表框的,Dir1_Change,事件,;,在这个事件中，写入代码,File1.Path =Dir1.Path,语句，就保证了目录列表框与文件列表框的同步,17,一旦文件列表框控件的,Path,的属性发生改变时，就会引发文件列表框控件的,Path Change,事件。文件列表框中内容被更新，显示由,Path,属性指定目录中的文件。,18,Pattern,属性,(,自学,),Pattern,属性用来设置程序运行时文件列表框中需要显示的文件种类。缺省值为*,.*,。若将,该,属性设为*,.EXE,，,则只显示扩展名为,EXE,的文件。在程序代码中设置,Pattern,属性的格式为：,窗体,.Pattern=,属性值,;,属性值,例如：,File1.Pattern=,“,*.EXE,”,File1.Pattern=,“,*.EXE;*.,Frm,”,Visual Basic,支持,?,通配符。当,Pattern,属性发生改变时，将产生,PatternChange,事件,19,FileName,属性,(,自学,),FileName,属性用来设置和返回文件列表框中将显示的文件名称,(,可以带有路径,，,也可以包含通配符,）,。,该,属性是运行时属性。设置,FileName,属性的语法格式：,窗体名,.,.FileName=,文件名称,例如：在程序代码中有如下语句：,File1.FileName=,“,D:*.EXE,”,执行该语句后，在文件列表框中显示,D,盘根目录下的所有扩展名为,EXE,的文件。同时,FilePath,的属性值也改变为“,d:”,，,且产生,File1_PathChange,事件,20,ListCount,属性,(,自学,),ListCount,属性，可用于组合框、驱动器列表框、目录列表框和文件列表框。它返回控件内所列项目的总数。该属性是运行时属性，只能在程序代码中使用。例如：,Print Dir1.ListCount,该语句功能是在窗体中显示目录列表框,Dir1,中所列目录数。,21,ListIndex,属性,(,自学,),ListIndex,属性可用于组合框、列表框、驱动器列表框、目录列表框和文件列表框。用来设置或返回当前控件上所选择的项目的“索引值”。该属性是,运行态属性。,驱动器列表框和文件列表框的索引值依次为,0,，,1,，,2,，,目录列表框的当前目录的索引值为,1,，向上依次为,2,3,；向下依次为,0,1,2,22,示例,Dir1.ListIndex=-2,执行该语句，在目录列表框中突出显示当前目录的上一层目录，但并不改变,Dir1.Path,的属性。,Drive1.ListIndex=2,执行该语句后，在驱动器列表框顶端突出显示驱动器列表框中的第三个项目,(,假定为,D:),。,Drive1.Drive,属性值设置为“,D:”,，,并触发了,Change,事件。,23,常用事件（自学）,PathChange,事件,当文件列表框的,Path,属性改变时，就会产生,PathChange,事件,。有,两种情况均会改变文件列表框控件的,Path,属性,：,改变驱动器列表框中的当前驱动器或在目录列表框中重新选取当前目录,在程序代码中给文件列表框控件的,FileName,属性重新赋值,PatternChange,事件,当文件列表框的,Pattern,属性在程序代码中被改变时就发生,PatternChange,事件。,24,使用文件属性（自学）,可以使用文件属性,(Archive,、,Normal,、,System,、,Hidden,和,Readonly,),来指定在文件列表框中显示哪一类的文件。,System,和,Hidden,属性的缺省值为,False,。而,Archive,、,Normal,和,Readonly,属性的缺省值为,True,。,25,4.,组合使用文件管理控件,1.,驱动器、目录和文件列表框控件通常组合在一起使用,2.,组合使用这三种文件系统控件时，要注意保持它们的同步,(1),当驱动器列表框控件,(Drive1),的,Drive,属性被改变,时，发生驱动器列表框的,Drive1_Change,事件,;,在这个事件中，写入代码,Dir1.Path =Drive1.Drive,语句，就保证了驱动器列表框与目录列表框的同步,(2),当目录驱动器列表框控件,(Dir1),的,Path,属性被改变,时，发生目录列表框的,Dir1_Change,事件,;,在这个事件中，写入代码,File1.Path =Dir1.Path,语句，就保证了目录列表框与文件列表框的同步,26,10,.3,公共对话框,公共对话框控件,CommonDialog,属于,ActiveX,控件,使用方法：,“工程”菜单,/“,部件”命令，打开“部件”对话框,选择“,Microsoft Common Dialog Control 6.0”,项目,CommonDialog,控件的特点：,大小不可改变,设计时可见，运行时不可见,使用时根据,Show,方法打开对应的文本框,27,公共对话框控件应用,调用,CommonDialog,控件的,ShowOpen,和,ShowSave,方法即可打开“文件打开”和“文件保存”对话框,与文件相关的属性有：,DialogTitle,：,对话框标题属性,FileName,：,文件名属性,InitDir,：,初始化路径,FileTitle,：,文件名称属性,FiLter,：,过滤器属性：返回或设置在对话框的类型列表框中所显示的过滤器，格式如下：,Object.Filter,=Description1|Filter1|Description2|Filter2,28,公共对话框控件应用,属性设置方法,控件的属性列表窗口,公共对话框的,属性页窗口,CommonDialog,控件本身并不能打开或保存文件，只是返回一个文件名和这个文件的绝对路径,29,