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