VB工程--百例48--文件过滤

概述  Option Explicit Private Sub Command1_Click(Index As Integer)         Select Case Index                    以命令按钮的索引作为测试表达式         Case 0         File1.Pattern = "*.*"         Case 1         File1.Pa

Option Explicit

Private Sub Command1_Click(Index As Integer)
Select Case Index 以命令按钮的索引作为测试表达式
Case 0
file1.Pattern = "*.*"
Case 1
file1.Pattern = "*.txt"
Case 2
file1.Pattern = "*.jpg;*.bmp;*.tif"
Case 3
file1.Pattern = "*.mp3;*.wav;*.avi;*.dat"
End Select
End Sub

Private Sub Dir1_Change()
file1.Path = Dir1.Path 目录列表改变时，文件列表也改变
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 驱动器列表改变时，目录列表页改变

End Sub

Private Sub Form_Load()
Dir1.Path = "C:windows" 显示c磁盘中的windows文件下的文件

End Sub

总结

以上是内存溢出为你收集整理的VB工程--百例48--文件过滤全部内容，希望文章能够帮你解决VB工程--百例48--文件过滤所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。