求助：关于打开文件的问题

Question

怎么能做到双击image控件后链接并打开另一格式的文件？

Answer 1

Private Sub Form_Load()
    Image1.Picture = LoadPicture(App.Path & "\test.jpg")
End SubPrivate Sub Image1_DblClick()
    Image1.Picture = LoadPicture(App.Path & "\test.bmp")
End Sub

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Image1_DblClick()
'    strUrl = "www.google.com" '打开指定的网页
    strUrl = "c:\test.xls" '打开指定的文件
    ShellExecute Me.hwnd, "Open", strUrl, "", "", 1
End Sub

Answer 3

不是要装载图片，我的意思是双击图片后打开例如任何类型的文件，无论是word或是mp3等格式。

Answer 4

双击事件里打开CommonDialog显示打开对话框，然后调用Shell

Answer 5

上面给的代码就是用ShellExecute 打开文件的，它会自动的用关联文件打开指定的文件，如果你想指定文件路径，就像楼上说的，可以用CommonDialog来显示