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
【Filelistbox 用法】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

文章插图

Filelistbox 用法

推荐阅读

新鲜螃蟹怎么存放新鲜螃蟹存放的方法

怎样简单画钢笔

苹果怎么换自定义铃声，换自己想要的铃声这样做！

夫妻债务一方不知情能不承担吗？

“明月清风”壶纪念周恩来诞辰110周年

wps表格中如何不改变顺序来排名次

纯情罗曼史小说全纯爱罗曼史小说

月子风水禁忌有关月子风水禁忌

正能量语录正能量短句有什么正能量的说说

活大龙虾怎么保存长时间不死（活大龙虾的保存方法）

黎冬最后和谁在一起

香菜和芹菜能一起吃香菜和芹菜一起吃的好处

忘却的意思忘却的意思是什么

口碑好的蓝牙耳机品牌推荐蓝牙耳机100左右性价比最好

跟谁都能聊不停》 txt格式的有吗

杜鹃花干叶掉叶怎么补救

氧化反应和氧化还原反应有什么区别？

来自民间故事的成语来自民间故事的成语及释义

豆腐块|《养生厨房》今日菜谱——“韭香豆腐”

葫芦巴的功效与作用（葫芦巴有什么功效）