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

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

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

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

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

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

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


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

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

12   голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы