Как в 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
- '--------------------------------------------------------------
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д