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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!