Public Function HyperJump(ByVal URL As String) As Long
HyperJump = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function
Гиперсылка в новом окне
Здрасте!
Для открывания какой-либо html-страницы использую такую функцию:
Код:
Но она открывает, если браузер был до этого уже открыт, в последнем окне браузера. Как сделать так, чтобы запускалось новое окно?
Спасибо!
Никто не знает или я что-то не то спросил...?
Код:
Public Sub shellEx(hWnd As Long, URL As String)
Dim lRet As Long, varTaskID As Variant
'First try ShellExecute
lRet = ShellExecute(hWnd, vbNullString, URL, vbNullString, vbNullString, WIN_NORMAL)
If lRet <> ERROR_SUCCESS Then
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & URL, WIN_NORMAL)
Case ERROR_OUT_OF_MEM:
MsgBox "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
MsgBox "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
MsgBox "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
MsgBox "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
End Sub
Dim lRet As Long, varTaskID As Variant
'First try ShellExecute
lRet = ShellExecute(hWnd, vbNullString, URL, vbNullString, vbNullString, WIN_NORMAL)
If lRet <> ERROR_SUCCESS Then
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & URL, WIN_NORMAL)
Case ERROR_OUT_OF_MEM:
MsgBox "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
MsgBox "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
MsgBox "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
MsgBox "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
End Sub
и все работает.
Спасибо!
Заранее благодарен!