vb6.0 单击fileListBox控件指定图片内容，显示在image控件上

Question

添加fileListBox控件 然后我用file1读取到指定的文件夹内的指定类型文件，比如图片，然后我想单击file1读取到的文件名，右边的Image控件就会显示出图片

Answer 1

Private Sub File1_Click()
Image1.Stretch = True
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_Load()
File1.Path = "d:\" '假设指定文件夹问d盘
File1.Pattern = "*.jpg" '假设指定文件类型为jpg格式
End Sub追问

都不行！

Answer 2

我这个可以显示图片以及图片类型

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
如果有疑问可以回复本回答被提问者采纳

Answer 3

你试试使用File1.Name属性，看看得到什么结果追问

我是新手，可以讲的详细一些吗？谢谢你

追答

就是说，你在程序中，比如按钮的代码中加入：
msgbox File1.Name
看看这个显示出来的是文件名，还是文件完整路径
然后再根据这个判断如何设置加载图片的路径