vb list 显示图片路径读取

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:02:57
Drive1选择盘，Dir1显示文件夹，File1显示文件夹内容

如何将File1内的图片 以完整 路径 读取到list列表~

并且 picture 逐个 读取list中的地址~~~
v

就是说

文件夹内有图片，只要是图片的格式，把路径输出到list，不能添加重复项~

然后 把 list里面的路径 放到loadpicture中去~~

答案已经进行修改。单击List中的项目即可。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建一个Command1，Drive1,Dir1,File1，List1，Picture1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
List1.Clear
Dim i As Integer, p As String
p = IIf(Len(File1.Path) > 3, File1.Path & "\", File1.Path)
For i = 0 To File1.ListCount - 1
List1.AddItem p & File1.List(i)
Next
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()
File1.Pattern = "*.jpg;*.bmp;*.gif"
End Sub

Private Sub List1_Click()
Picture1.Picture = LoadPicture(List1.List(List1.ListIndex))
End Sub

把filebox的filter属性设置一下,
"*.bmp,*.jpeg,*.jpg,*.gif,*.png"

只显示图片格式文件
免得picturebox显示不了出错