Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.219.22.169] |
|
Сообщ.
#1
,
|
|
|
Народ, помогите, как сделать что-бы без подключения дополнительных управляющих элементов при щелчке на кнопке запускался IExplorer уже открытым на страничке www.soft4fun.ru
|
Сообщ.
#2
,
|
|
|
Ну, есть 3 способа:
1) (для ещё больших ламеров, чем я, хотя очень понятен весь механизм.) Установи в компонентах ссылку на Microsoft Internet Controls. На панели появиться элемент в виде земного шара. Помести его на форму. Назови его скажем webBrowser. Присвой атрибуту Visible = False. И в какой-то процедуре вызови его метод Navigate [url], [flags], … например, так: webBrowser.Navigate "www.microsoft.com", 1. Ослик IE откроет страницу microsoft в новом окне (благодаря флагу = 1). 2) Или более практичный. Установи ссылку на библиотеку Microsoft Internet Controls. И следующий код будет работать аналогично предидущему: Dim webBrowser As New InternetExplorer webBrowser.Navigate "www.microsoft.com", 1 3) Я лично пользуюсь всегда этим способом. Здесь уже участвует функция API. Вот процедура вызова которую можно поместить в любом модуле. 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 Public Sub OpenSite(Frm as Form) ShellExecute Frm.hwnd, "open", "", vbNullString, vbNullString, 1 End Sub Желаю удачи!!! Если что-то не получиться, напиши (если захочешь). |
Сообщ.
#3
,
|
|
|
Но, поскольку в 1 и 2 используются дополн. элементы и библиотека, то думаю устроит тебя 3-й способ!
|
Сообщ.
#4
,
|
|
|
Большое спаибо как и нета вылезу сразу попробую, а пока не врубаюсь: куды адресок вписывать? Ж:-|
|