Ссылка в label - VB
Формулировка задачи:
Подскажите как сделать гиперссылку в label 1, чтоб открывалась в браузере который стоит по умолчанию
Решение задачи: «Ссылка в label»
textual
Листинг программы
Private Sub Form_Load()
With Label1
.ForeColor = vbBlue
.FontBold = True
.FontUnderline = True
.Caption = "http://www.cyberforum.ru/visual-basic/thread924350.html"
End With
End Sub
Private Sub Label1_Click()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run Label1.Caption, 1, False '
Set objShell = Nothing
Label1.ForeColor = RGB(120, 0, 200)
End Sub