第26讲b VB课件new.pptVIP

文件操作控件 为了适应在应用程序中处理文件的需要，VB提供了3种文件系统控件： 1. 驱动器列表框（DriveListBox） 2. 目录列表框（DirListBox） 3. 文件列表框（FileListBox） 1 驱动器列表框 驱动器列表框最重要的属性是Drive属性，它用来设置当前驱动器，但不能在设计阶段使用此属性，必须在程序中设置或引用，格式如下： [对象.]drive[=drive] Drive属性可以用来设置当前驱动器，也可以接收并返回用户选定的驱动器名。例如： Drive1.drive=a“ 每次Drive属性的改变都会引发Change事件。 2 目录列表框 目录列表框用于显示当前磁盘驱动器下的目录。 目录列表框有一个重要属性——Path（路径），用来设置和返回当前的路径。Path属性也不能在设计状态时设置。格式如下： [对象.]Path[=pathName] 其中，对象是指目录列表框或文件列表框。pathName是一个路径名字符串。 Path属性的改变都会引发Change事件。 3 文件列表框 文件列表框列出在当前目录下的文件名。由于文件数量多，无法在列表框中全部显示出来，VB自动加上垂直滚动条用以浏览。 文件列表框有3个重要属性：Path，Pattern，FileName。 1．Path属性 用来指定当前路径，缺省值为系统的当前路径。 2．Pattern属性 该属性用来指定在文件列表框显示的文件类型，它的缺省值为“*.*”。 3．FileName属性 用来在程序运行时设置或返回所选中的文件名。 【例1】设计一个如图所示的“打开可执行文件”的管理界面。 其它控件属性均使用默认值。 程序如下： Dim fullName As String Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Command1_Click() File1_DblClick End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Dir1_Change() Text1.Text = Dir1.Path File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Text1.Text = Drive1.Drive Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() If Right$(Dir1.Path, 1) = \ Then sep = Else sep = \ End If fullName = Dir1.Path + sep + File1.FileName Text1.Text = fullName End sub Private Sub File1_DblClick() fid = Shell(fullName, 1) End Sub Private Sub Form_Load() Combo1.AddItem *.exe Combo1.AddItem *.com Combo1.AddItem