Открыть вэб страницу в браузере нажатием на кнопку - VB
Формулировка задачи:
Я делаю димпломную работу и мне необходимо разместить на форме кнопку что бы она открывала нужный мне сайт. Если есть какие то предложения поделитесь пожалуйста. Или же какой ни будь другой компанент. Я пишу программу про спортивный курорт надо что бы программа написанная на языке VB6.0 открывала сайт посвещенный этой теме.
Решение задачи: «Открыть вэб страницу в браузере нажатием на кнопку»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д