Как сделать из Label ссылку (всмысле Hyperlink)

[Perf2k2]

Еще раз привет.

Знаете в Винде ХР есть такие менюшки слева - там сделаны ссылки на другие разделы (типа "Создание нового подключения" в "Сетевых подключениях"). При наводе на ссылку она подчеркивается, а при нажатии он открывает новое окно.

Вот как это реализовать в ВБ (ссылки). Я сначала повесил на MouseMove такую строчку: link1.FontUnderline = True. А какже тогда сделать, чтобы подчеркивание пропадало? Ведь на Лэйбле нету LostFocus, прально?

Или может есть какой-нибудь спец. контрол?

[lord0n]

вообще на сайте http://www.vbrussian.com есть то что те надо

лостфокус не пойдет
надо проверять где находится мыша (x и y)

[Perf2k2]

надо проверять где находится мыша (x и y)

Блин, жалко - так и думал. Гимор просто...

[lord0n]

надо проверять где находится мыша (x и y)

Блин, жалко - так и думал. Гимор просто...

не вижу ничего гиморного

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


if x = 0 or y = 0 or y = 100 or x = 100 then
......................
end if


[lord0n]

вот как я сделал

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


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontUnderline = True
If X <= 0 + 70 Or Y <= 0 + 70 Or X >= Command1.Width - 70 Or Y >= Command1.Height - 70 Then Command1.FontUnderline = False
End Sub


[Perf2k2]

вот как я сделал

Спасибо! Но может я конечно и очень тупой, просто не понятно что означает "70". Это расстояние от чего до чего?

[alibek]

Рамка. Только это неправильно, должно быть 60 или 85.

[lord0n]

Рамка. Только это неправильно, должно быть 60 или 85.

просто при 50, если быстро двинуть мышкой, у меня не успевает сработать маус мув, поэтому от балды поставил 70

[Perf2k2]

просто при 50, если быстро двинуть мышкой, у меня не успевает сработать маус мув, поэтому от балды поставил 70

У меня, честно говоря, и так и так не успевает сработать. Ни при 70, на при 60, ни при 85. Ни при 160 даже... Может поставить таймер, который будет каждые пол секунды сбрасывать подчеркивание

[lord0n]

тогда если у тебя не двигается мыша, текст не будет подчеркиваться
можешь выложить проект?

[d3drm]

на MouseMove по Label underline делай тру, а на самой ворме при маусмув поставь false и все.

[lord0n]

на MouseMove по Label underline делай тру, а на самой ворме при маусмув поставь false и все.

во блин, голова
а я не додумался

[Amed]

Не идеальное решение. Попробуйте выставить сенсу мышки на максимум и очень резко дернуть с лейбла на область вне формы. Маусмув не сработает.

[d3drm]

Amed, а ты не критикуй, ты научи как надо =)

[Amed]

По таймеру проверяем координаты курсора. Если курсор внутри элемента управления, то выполняем соответственные действия.

См. GetCursorPos, CreateTimerQueue, CreateTimerQueueTimer.

[SHURUP]

Не идеальное решение. Попробуйте выставить сенсу мышки на максимум и очень резко дернуть с лейбла на область вне формы. Маусмув не сработает.

Мой вариант:
Вместо Лейбла использовать заLOCKченный TextBox без границы и цвета фона (это позволит выделить/скопировать текст ссылки)
Затем по таймеру проверять, является ли окно под курсором - нужным текстбоксом (API) и если ДА - подсвечивать.
Это удобно если на форме по мимо ссылки имеется еще и куча других контролов - тогда отследить резкий переход с лейбла на другой контрол весьма гемороидально.

[tyomitch]

Опять все проблемы решаются таймером?
А как же WM_MOUSELEAVE?

[Amed]

А если надо лейбл выцепить?

Народ не гуглит вообще. На форуме уже много раз писали.