程序设计语言VB6.0课件第10章其他控件及其应用.pptVIP

第10章 其他控件及其应用 学习重点 组合框与滚动条的常用属性、方法和事件。 文件管理控件。 公共对话框。 本章内容 10.1 组合框与滚动条 10.2 文件管理控件 10.3 公共对话框 10.2 文件管理控件 Visual Basic中提供了3种能直接浏览系统的磁盘、目录结构和文件情况的文件系统控件，即驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）。可利用这3种控件建立与文件管理器类似的窗口界面 。 10.2.1 驱动器列表框 1．Drive属性 用来设置或返回所选择的驱动器名。Drive属性不能在属性窗口中设置，只能在程序运行时，对驱动器列表框选择操作设置，或在程序代码中用语句设置。使用格式如下： 驱动器列表框名.Drive [= 驱动器名] 其中，驱动器名是字符串形式的指定所选择的驱动器，例如，A:或a:，C:\或c:等；默认情况下，Drive属性表示驱动器列表框中选中的驱动器。 从驱动器列表框中选择驱动器或用代码修改Drive属性并不能使计算机系统自动改变当前驱动器，必须通过ChDrive语句来实现，使用格式如下： ChDrive Drive1.Drive 同样，ChDrive语句不会改变驱动器列表框中的选项，仅修改系统的当前驱动器号。 10.2.1 驱动器列表框 2．Change事件 每次重新选择驱动器列表框中的选项或修改驱动器列表框的Drive属性时都会触发Change事件。示例代码如下： Private Sub Drive1_Change() ChDrive Drive1.Drive 改变计算机系统当前驱动器 End Sub 10.2.2 目录列表框 目录列表框中按目录结构层次逐层排列，层层缩进的方式显示了从根目录开始到当前目录这条路径间的所有目录，以及当前目录的下属所有的第一级子目录。对于每一个显示的列表项都有一个索引值标识，图中当前目录的索引值为-1，向上依次为-2、-3……，向下的每一个第一级子目录索引值依次为0、1、2……。通过双击某个列表项（目录），可显示其所有子目录或关闭显示，并使该目录成为当前目录。 10.2.2 目录列表框 1．Path属性 用来设置或返回目录列表框中突出显示的当前目录信息。双击某列表项目录，将该列表项目录作为当前目录赋予Path属性，同时将其索引值ListIndex属性设置为-1，并重新设置目录列表框中的显示内容。此时，Dir1.Path属性和Dir1.List(Dir1. ListIndex)属性值相同。 可以使用语句来修改当前的目录，如Dir1.Path= D:\123。 同样，修改目录文件夹的Path属性，只会改变目录列表框中的显示及目录列表框的选中目录，并不能真正改变系统中当前驱动器的当前文件夹；ChDir语句能改变系统当前驱动器的当前文件夹，使用以下语句将目录列表框中的当前目录设置为系统当前文件夹： ChDir Dir1.Path 在应用程序中，也可用Application系统对象（对象名为App）将当前目录设置成应用程序的可执行文件所在的目录。 ChDrive App.Path 设置当前驱动器 ChDir App.Path 设置当前目录 10.2.2 目录列表框 1．Path属性 一般地，在同一个窗体中将目录列表框和驱动器列表框联合起来使用表示驱动器和目录信息，并且希望在目录列表框中显示驱动器列表框的当前驱动器中的目录信息。这时，可以在驱动器列表框的Change事件中设置目录列表框的当前目录，示例代码如下： Private Sub Drive1_Change() 实现目录列表框与驱动器列表框的同步变化 Dir1.Path = Drive1.Drive End Sub 10.2.2 目录列表框 2．Change事件 每次用户双击重新选择目录列表框中的选项，或在代码中修改目录列表框的Path属性时都会触发Change事件。示例代码如下： Private Sub Dir1_Change() ChDir Dir1.Path 将目录列表框中的当前目录设置为系统当前文件夹 End Sub 10.2.3 文件列表框 1．属性 （1）Path属性 用来设置和返回文件列表框中显示文件的路径，这也是一个运行态属性，仅能在代码中通过重新赋值来改变文件列表框中的显示，代码如下： File1.Path = D:\qy File1.Path = Dir1.Path 语句使文件列表框和目录列表框同步 10.2.3 文件列表框 1．属性 （2）Pattern属性 用来设置文件列表框中显示文件的类型，可以在属性窗口中设