Ссылка в label

@Cricket93 · Регистрация: 06.11.2012

Author24 — интернет-сервис помощи студентам

Подскажите как сделать гиперссылку в label 1, чтоб открывалась в браузере который стоит по умолчанию

SoftIce · 17.07.2013, 06:53

Visual Basic

Private Sub Form_Load()
    With Label1
        .ForeColor = vbBlue
        .FontBold = True
        .FontUnderline = True
        .Caption = "https://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

Ещё MousePointer нужно сделать в виде указательного пальца

@Cricket93 145 / 46 / 1 Регистрация: 06.11.2012 Сообщений: 283
		1
	Ссылка в label 17.07.2013, 00:44. Показов 1209. Ответов 1 Метки нет (Все метки) Подскажите как сделать гиперссылку в label 1, чтоб открывалась в браузере который стоит по умолчанию 0

	17.07.2013, 06:53

Ссылка в label

Решение