Filelistbox 用法

Filelistbox 用法

Private Sub Combo1_Click()

   File1.Pattern = Combo1.Text

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()

   Dim fpath As String

   If Right(File1.Path, 1) <> "\" Then fpath = File1.Path + "\"

     Label5.Caption = fpath + File1.FileName

     Image1.Picture = LoadPicture(Label5.Caption)

End Sub

Private Sub Form_Load()

   Combo1.AddItem "*.bmp"

   Combo1.AddItem "*.ico"

   Combo1.AddItem "*.gif"

   Combo1.AddItem "*.jpg"

End Sub