Private Sub cmbKind_Click()
File1.Pattern = cmbKind.Text 放在click事件,filelistbox在窗体打开时能实现筛选,而放change则打开窗体时不能筛选,为何?
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
txtFile = File1.FileName
End Sub
Private Sub Form_Load()
'初始化文件类型列表
With cmbKind
.Text = ""
.AddItem "*.exe"
.AddItem "*.doc"
.AddItem "*.xls"
.AddItem "*.mp3"
.ListIndex = 0
End With
End Sub