Как в VB сделать ссылку на сайт?

Узнай цену своей работы

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

Может кто это уже делал... Ну, надпись светится, рука появляется и грузится Explorer на нужной странице. Буду признателен за помощь.

Решение задачи: «Как в VB сделать ссылку на сайт?»

textual
Листинг программы
Public Declare Function ShellExecute Lib 'shell32' 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 Enum ShowCommands
    SW_HIDE = 0
    SW_SHOWNORMAL = 1
    SW_NORMAL = 1
    SW_SHOWMINIMIZED = 2
    SW_SHOWMAXIMIZED = 3
    SW_MAXIMIZE = 3
    SW_SHOWNOACTIVATE = 4
    SW_SHOW = 5
    SW_MINIMIZE = 6
    SW_SHOWMINNOACTIVE = 7
    SW_SHOWNA = 8
    SW_RESTORE = 9
    SW_SHOWDEFAULT = 10
    SW_MAX = 11
End Enum
'--------------------------------------------------------------
Private Sub LblInformation_Click()
OpenBrowser 'http://www.microtelecom.narod.ru', Me.hWnd
End Sub
'--------------------------------------------------------------
Public Function OpenBrowser(strURL As String, lngHwnd As Long)
    OpenBrowser = ShellExecute(lngHwnd, vbNullString, strURL, vbNullString, 'c: ', SW_SHOWDEFAULT)
End Function
'--------------------------------------------------------------

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


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

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

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