Метки в VB6 установлен Курсор в виде руки

Как установить ручной курсор для элемента управления Label в Visual Basic 6

мой ярлык должен действовать как кнопка ссылки.

Я изменил ForeColor до vbBlue , подчеркнут стиль и так далее..

теперь я должен установить курсор руки для этой метки.. Как это сделать?

6
vb6

3 ответов

вы можете использовать вызовы API, чтобы получить системный курсор

поместите следующий код в модуле

Public Const IDC_HAND = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

и в событии MouseMove метки поместите следующий код

SetCursor LoadCursor(0, IDC_HAND)

другие константы курсора: http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx

13

вам придется сделать пользовательский MouseIcon. Вы найдете курсор руки в графической папке установки Visual Studio 6. Вот код для этого:

Private Sub Form_Load()
     Label1.MousePointer = vbCustom
     Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur")
End Sub
3

У вас должен быть файл ICO или CUR с курсором руки, а затем установите его как пользовательский MouseIcon в конструкторе (также установите MousePointer to 99 - Custom).

вы можете искать в интернете бесплатную версию курсора, если у вас его нет.

1