Открыть вэб страницу в браузере нажатием на кнопку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.6 из 5
Похожие ответы