Простейший вопрос :)

[DDK]

Как сделать так, что б при нажатии мышью на опр. объекте открывалось окно осла с заданным адресом ? Т.е. часто в меню делают пункт Хелп, ведущий по опр. адресу в инете... ?!

[Amed]

Код: Выделить всё

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
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.ya.ru", vbNullString, "C:\", SW_SHOWNORMAL
End Sub


[Крост]

Дефолт папки IE - [windisc]\Program Files\Internet Explorer\

А открыть можно так:

Код: Выделить всё

Private Sub Open_Url(Url as string)
dim WnDir as String
WnDir=Environ("Windir")
shell mid(WnDir,1,3) & "\Program Files\Internet Explorer\IExplore.exe " & url,vbNormalFocus
End sub


[vvs_adm]

Private sub определенный_объект_MouseDown()
Shell "путь к ослу\осел.ехе(пробел)URL сайта"
End sub

[Крост]

=)

[Amed]

Мой код имеет один недостаток - если уже есть открытые окна осла, то страница загружается в первом открытом...

[vvs_adm]

Мой код имеет один недостаток - если уже есть открытые окна осла, то страница загружается в первом открытом...

Не знаю, как мой код... Не пробовал, да и забыл дописать св-во запускаемого окна vbNormalFocus, но вот недостаток в твоем коде иногда так бесит

[vvs_adm]

to Amed

Кстати, у твоего кода есть еще один ОЧЕНЬ большой недостаток - с его помощью можно попасть только на яндекс, а с помощью моего на ЛЮБОЙ сайт

[DDK]

спасибо всем ! благодарствую...

[HotKitten]

Shell "explorer.exe http://HotKitten.narod.ru"

а вот так у меня в новом окне открылось

[Крост]

Точно... =)

[HotKitten]

всё леко и просто! это же VB!

[HotKitten]

всё леко и просто! это же VB!

[SHURUP]

А первый способ самый лучший! ибо открывает браузером по умолчанию (а иногда это не "ослик") Хотя в топике указан именно "ИЭ", но рекомендовал бы автору отказаться от выбора браузера за пользователя…
Ачто касается

Private sub определенный_объект_MouseDown()
Shell "путь к ослу\осел.ехе(пробел)URL сайта"
End sub

и

Кстати, у твоего кода есть еще один ОЧЕНЬ большой недостаток - с его помощью можно попасть только на яндекс, а с помощью моего на ЛЮБОЙ сайт

это при условии, что на форме есть объект с именем "определенный_объект"

[ism]

Дефолт папки IE - [windisc]\Program Files\Internet Explorer\

А если у юзера Opera, Netscape или еще что? Кому нужен осел?
Способ Amed'а универсален

ЗЫ
IE - самый распространенный браузер, но далеко не лутший

[tyomitch]

Ну-ну... И чем же IE так плох?
В последний раз, когда эту тему обсуждали, нашли только отсутствие докачки.

[SHURUP]

Ну-ну... И чем же IE так плох?
В последний раз, когда эту тему обсуждали, нашли только отсутствие докачки.

Дык сравнивать оперу и експлорер это тоже самое, что сравнивать ежа и морскую свинку! Вот кто лучше ёж или свинка?!

Но страничка должна грузится броузером по умолчанию. Как-то оно так спокойнее. У меня ИЕ вообще не настроен для работы в интернете - я его использую только для просмотра ШТМЛок (он с ними сасоциироват). А по-умолчанию - опера!

[Vanil]

Подскажите пожалуйста где найти каталог объектов

[A.A.Z.]

Каких объектов? Можно немного поточнее?

[Vanil]

Получить информацию о некотором объекте можно также из каталога
объектов, который содержит список всех объектов Visual Basic,
сгруппированный по категориям. Эти категории называются библиотеками
объектов. Где искать эти библиотеки?

[tyomitch]

F2 нажми, будет тебе "каталог объектов"

[Vanil]

Спасибо Тема, у меня получилось, Алису я тоже уважаю