picturebox控件显示图片问题？

[flytrap1]

drive dirlist filelist picturebox 四个控件

运行时想要点击filelist中的jpg文件 picturebox能马上显示出来。

[tony_jian]

picture1.loadpicture 路径

[jokingjun]

在filelist_click中加入
picture1.picture=loadpicture("filelist1.filename")

[COOL099]

Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

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

Private Sub File1_Click()
Set Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub

[footballboy]

现编了一个，自己完善吧
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

Private Sub File1_Click()
If Right$(Dir1.Path, 1) <> "\" Then
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Else
Picture1.Picture = LoadPicture(Dir1.Path & File1.FileName)
End If
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg"
End Sub

[footballboy]

现编了一个，你自己完善吧
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

Private Sub File1_Click()
If Right$(Dir1.Path, 1) <> "\" Then
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Else
Picture1.Picture = LoadPicture(Dir1.Path & File1.FileName)
End If
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg"
End Sub

[pl5th2001]

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1 & "\" & File1.FileName)

End Sub