Åbne fil (billede) i IE
Jeg har en kanp i en form, der automatisk åbner et .jpg-billede, men billedet åbnes i programmet, der i Windows er associeret med .jpg-filer (i mit tilfælde Microsoft Photo Editor).Private Sub viewImg_Click()
Dim stAppPath As String
Dim stAppName As String
Dim result As Integer
stAppName = "D:\Image\billede1.jpg"
result = ShellExecute(0, "Open", stAppName, "", "", SW_SHOW)
End sub
---
Public 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 Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
------
Kan man ikke udbygge med en kommando, der åbner billedet i f.eks. Internet Explorer i stedet? Uanset hvad der billedvisningsprogram på brugernes maskiner?
/U.K.
