Открыть вэб страницу в браузере нажатием на кнопку - VB

Формулировка задачи:

Я делаю димпломную работу и мне необходимо разместить на форме кнопку что бы она открывала нужный мне сайт. Если есть какие то предложения поделитесь пожалуйста. Или же какой ни будь другой компанент. Я пишу программу про спортивный курорт надо что бы программа написанная на языке VB6.0 открывала сайт посвещенный этой теме.

Код к задаче: «Открыть вэб страницу в браузере нажатием на кнопку - VB»

textual
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)
 
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
 
Private Sub CommandButton1_Click()
    Call ShellExecute(GetDesktopWindow, "Open", _
    "http://www.cyberforum.ru", "", "c:\", SW_SHOWNORMAL)
End Sub

10   голосов, оценка 4.600 из 5


СОХРАНИТЬ ССЫЛКУ