如何用在文件列表框上的选定的图像文件替换在IMAGE控件中的图像？

Question

我是新手，大家多多指教啊，我在线等待

Answer 1

Option ExplicitPrivate Sub File1_Click()
    Dim path As String
    If Right(File1.path, 1) = "\" Then
        path = Left(File1.Parent, Len(File1.path) - 1)
    Else
        path = File1.path
    End If
    Image1.Picture = LoadPicture(path & "\" & File1.FileName)
End Sub

Answer 2

在文件列表框的双击事件中写上如下语句就可以了Private Sub File1_DblClick()
    On Error Resume Next
    Image1.Picture = LoadPicture(File1.FileName)  '这句就是加栽选定的图像文件到image控件中
End Sub

Answer 3

zjcxc(邹建) 
你的方法好象不行啊。