VBNet - Форум - как открыть ссылку на страницу в новом окне???

Вопрос: как открыть ссылку на страницу в новом окне??? Добавлено: 26.06.04 19:36

Автор вопроса: Yan007

Народ подскажите пожалуйста как открыть ссылку на страницу в нете в новом окне web-браузера.

Код :

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_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOW = 5

Private Sub Command1_Click()
Dim Ret As Long

Ret = ShellExecute(Me.hwnd, "Open", "http://vc-studio.org/", vbNullString, vbNullString, SW_SHOWMAXIMIZED)

End Sub

НЕПОМАГАЕТ !!!

Заранее спасибо
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Eddie Вопросов: 11 Ответов: 120	Профиль \| \| #1	Добавлено: 27.06.04 02:18
	Сделай так : Ret = ShellExecute(Me.hwnd, "Open", "C:\Program Files\IExplorer\IE.exe + vc-studio.org", vbNullString, vbNullString, SW_SHOWMAXIMIZED) Ответить

Номер ответа: 2 Автор ответа: Yan007 Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 27.06.04 14:26
	НЕПОМАГАЕТ У меня стоит XP. А вообще-то этот код должон пахать под любую win ! Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 27.06.04 15:00
	ShellExecute 0,"open","http://ya.ru","","",1 У меня работает Ответить

Номер ответа: 4 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #4	Добавлено: 27.06.04 15:41
	2Sharp, в новом! обычно когда имеется открытое окошко, ссылка открывается в нем... не раз уже так с нужного мне сайта попадал на сайт какого-нить производлителя... Ответить

Номер ответа: 5 Автор ответа: Eddie Вопросов: 11 Ответов: 120	Профиль \| \| #5	Добавлено: 29.06.04 01:10
	To Yan007 : Ты говоришь не помогает, всмысле не открывает или не открывает в новом окне ? >> Ret = ShellExecute(Me.hwnd, "Open", "C:\Program Files\IExplorer\IE.exe + vc-studio.org", vbNullString, vbNullString, SW_SHOWMAXIMIZED) Ответить

Номер ответа: 6 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #6	Добавлено: 29.06.04 21:40
	Парни, я только что мучался с ShellExecute из под ХР!!! Она запускает пустое окно браузера,но не грузит указанную стриницу! Решенение оказалось банально простым!!! Вместо второго параметра vbNullString в ХР необходимо ОБЯЗАТЕЛЬНО указать путь к рабочему каталогу!! например "C:\"в других виндах этого делать не обязательно, а в ХР критично) После этого все стало работать как положено... Ответить

Страница: 1 |