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

来源:百度知道 编辑:UC知道 时间:2024/05/14 06:24:06
我在窗体上建了四个控件,分别是驱动器列表框\目录列表框\文件列表框和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当中显示出图片.

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

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

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

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