Как сделать ссылку...?

[Neo1]

Помогите люди. Как сделать так, что бы когда подводишь курсором мыши на Label курсор был как на ссылках?

Заранее спасибо!

[Rainbow]

Есть соответствующие апишные функции

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

Private Declare Function SetCursor Lib "user32" (ByVal hcursor As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Использовать так:

На событие MouseMove лейбла
SetCursor LoadCursor(0, IDC_WAIT)

Только со всеми курсорами у меня нормально прокатывает, а вот с IDC_HAND почему-то не хочет...
Можно использовать еще LoadCursorFromFile вместо LoadCursor - тогда точно получится

SetCursor LoadCursorFromFile(YourCursorFilePath)

[RayShade]

Вы что? Какое API? Есть стандартные средства.

Label.MousePointer = 99

И в дизайнере высталяем нужный Label.MouseIcon.

[Rainbow]

Упс! Мда, наверняка в этом случае этого будет вполне достаточно - просто и без всякого апи

Но в принципе, легко можно придумать случай, когда красивее было бы реализовать с использованием АПИ. Если есть много форм и лейблов, то реализуется одна public функция и вызывается, когда нужно...

Но все равно это наворот...

[gaidar]

Упс! Мда, наверняка в этом случае этого будет вполне достаточно - просто и без всякого апи

Если быть проще, то люди потянутся. Только жить без экстрима не интересно .

Но в принципе, легко можно придумать случай, когда красивее было бы реализовать с использованием АПИ. Если есть много форм и лейблов, то реализуется одна public функция и вызывается, когда нужно...

Ага, а ты думала какие дополнительные торможе появятся, когда много лейблов и форм? Если к каждой еще накидать вызовы API?

Хотя я обычно, все равно через API делаю , просто потом проще добавлять красивости вроде теней и т.д. и т.п.

[goro]

На событие MouseMove лейбла
SetCursor LoadCursor(0, IDC_WAIT)

А у меня этот код не работает. Вместо заданного курсора, он просто пропадает
Что делать?

[gaidar]

А курсор в ресурсах у тебя есть? Должен быть именно с таким ID .

Все должно работоть.

(Вот ведь, теперь Таню защищать приходится).

2goro

Ты куда пропал? В смысле ты на new vbs уже забил?