Zestaw etykiet VB6 kursor ręczny

Question

Sposób ustawiania kursora ręcznego dla sterowania etykietą w języku Visual Basic 6

Moja etykieta powinna działać jak przycisk Link.

Zmieniłem ForeColor do vbBlue podkreślają styl i tak dalej ..

teraz muszę ustawić kursor rękę dla tej etykiety .. Jak to zrobić?

Answer 1

Można użyć wywołań API, aby uzyskać kursor ręki System

umieścić następujący kod w module

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 

aw przypadku mouseMove z etykieta, umieścić następujący kod

SetCursor LoadCursor(0, IDC_HAND) 

innych stałych kursor: http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx

Answer 2

Musisz mieć plik ICO lub CUR z kursorem ręki, a następnie ustawić jako niestandardowy MouseIcon w projektancie (również zestaw MousePointer na 99 - Custom).

Możesz wyszukać w internecie wolną wersję kursora, jeśli jej nie masz.

Answer 3

Będziesz musiał wykonać niestandardowe MouseIcon. Dowiesz się, że kursor ręki znajduje się w folderze graficznym instalacji programu Visual Studio 6. Oto kod, aby to zrobić:

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