Ссылка в 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

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


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

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

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