Question

VB做个查看图片的小程序，请高手帮忙

我在窗体上建了四个控件，分别是驱动器列表框＼目录列表框＼文件列表框和image控件．

请各位大侠看代码：
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Drive1.Drive = "C:"
End Sub

Private Sub File1_Click()
image1.picture=loadpicture？？？？？？？？？？？？？？？？？？？？？？？？？
End Sub

请问我在文件列表框中的单击代码要如何编写，才能在image1当中显示出图片．

请各位大侠不吝赐教！！！

Answer 1

用文件列表框的Filename的属性。不过要看看资料，它返回的是文件名字。在配合PATH的属性，把路径和名字一起加上就行。PATH的属性，你要看看。因为根目录里的文件和文件夹里的文件调出不一样。PATH的最后一个文件夹路径不会自动添加"\"，自己要加上（提示：用right的函数，例如if right(dir1.path,"\") then ....），自己编吧。

Answer 2

用通用对话框会方便很多。

Answer 3

Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
若要判断错误，还应加些条件