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 用法

推荐阅读

快乐大本营翔霖是哪一期快乐大本营翔霖多少期

小度的所有功能介绍小度智能音箱使用说明

食用红莲子要不要去皮

茶叶中游离氨基酸含量的荧光光度法测定

空腹喝柠檬水的功效与作用早上空腹喝柠檬水的功效与作用

月饼|中秋将至，这10种口味的月饼你会选择谁？五仁月饼还是排名第一？

鬣狗，狮子，犬鼠，斑马和角马之间的敌对关系？

二哈和阿拉斯加哪个贵

Python使用while循环花式打印乘法表

1微安等于多少安 1微安的介绍

连接appleid服务器时出错怎么办服务器时出错解决办法

金钱草的繁殖方法金钱草如何繁殖

活的大闸蟹怎么保鲜

什么是电度表？

pr怎么设置转场？仅需要八步

杜鹃圆舞曲歌词杜鹃圆舞曲介绍

20寸行李箱可不可以带上飞机 20寸行李箱能够带上飞机吗

养德国宾沙犬要注意什么

TRM|自身免疫性肝炎进展和停药后易复发原因获解析

word怎么打对勾