Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Гиперсылка в новом окне

296
12 ноября 2007 года
Virtuoso
331 / / 31.07.2005
Visual Basic 6.0

Здрасте!
Для открывания какой-либо html-страницы использую такую функцию:
 
Код:
Public Function HyperJump(ByVal URL As String) As Long
HyperJump = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function

Но она открывает, если браузер был до этого уже открыт, в последнем окне браузера. Как сделать так, чтобы запускалось новое окно?
Спасибо!
296
14 ноября 2007 года
Virtuoso
331 / / 31.07.2005
Никто не знает или я что-то не то спросил...?
648
16 ноября 2007 года
Tiraspolsky
220 / / 23.07.2003
Я пользую функцию
Код:
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


и все работает.
296
16 ноября 2007 года
Virtuoso
331 / / 31.07.2005
Спасибо!
296
16 ноября 2007 года
Virtuoso
331 / / 31.07.2005
эм... я чуток не всё знаю в программировании... какое значение присваивать "hWnd"?
Заранее благодарен!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог