Гиперссылки

[NeOz]

Ребят помогите - как можно просто сделать гиперссылку, например из надписи Label ?

[Amed]

Куда делись VB и VB для новичков!? Убью!

[NeOz]

ну помоги, думаю это делается очень просто, но убей не найти это )

[Amed]

Есть плохой вариант. Ставим таймер, проверяем каждые 10 мс, над чем находится курсор мыши. Если над лейблом, то лейблу меняем фонт и цвет. Если нет, то возвращаем лейблу его начальные параметры.

Можно отслеживать MouseMove на лейбле. Если MouseMove, то над ним провели мышкой. Одновременно придется поставить отработку MouseMove на все другие контролы, чтобы сбрасывать параметры "ссылки".

Это все крайне криво, лучше найти готовый контрол-гиперссылку. В яндекс

[ADD]
Если делать совсем правильно, то надо отрабатывать сообщения MOUSELEAVE и MOUSEENTER.
Вот, даже ссылку отрыл. http://bbs.vbstreets.ru/viewtopic.php?p ... 5b3c550af5
Слушай GSerg'а, а меня там не слушай.

[NeOz]

Не, оформление гиперссылки не важно, я незнаю как саму ее сделать)
Чтобы при нажатии на текста открывался браузер с заданным адресом

[Amed]

Куда делись VB и VB для новичков!? Убью!

http://bbs.vbstreets.ru/viewtopic.php?t=16243&highlight=shell+http

[NeOz]

так идею понял, а вот синтаксис команды отикрытия веб-паги какой?

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
здесь идет команда открытия странички, но какая...?
End Sub

[VVitafresh]

Можна так, например:

Код: Выделить всё

Public Declare Function ShellExecute Lib "shell32.dll" 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

Dim sCommand As String

Private Sub lblLink_Click()
    sCommand = "www.vbstreets.ru"
    ShellExecute Me.hwnd, "Open", sCommand, vbNullString, vbNullString, vbNormalFocus
End Sub   



[NeOz]

Куда делись VB и VB для новичков!? Убью!

http://bbs.vbstreets.ru/viewtopic.php?t=16243&highlight=shell+http

все работает спасибо!!!

[Хакер]

Прим.: протокол бы лучше указывать.