Åben i et nyt vindue
HejsaJeg sidder og roder lidt med et script som skal åbne et link når man dobbeltklikker på det.
Koden ser således ud:
Declerations:
'Forsøg med default browser
Dim strURL As String
Dim NodeNr As Integer
'Dim webBrow As New InternetExplorer
'Option Explicit
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 Long
Private Const SW_SHOW = 5
---------
Private Sub Text3_dblClick()
strURL = Text3.SelText
ShellExecute hwnd, "open", Text3.SelText, vbNullString, vbNullString, SW_SHOW
End Sub
Nu åbner den altså i default browseren, men mit problem er at den åbner i det aktive vindue. Jeg vil gerne have den til at åbne et nyt. Nogle der har nogle gode ideer?
På forhånd tak :)
Hygge
