| View previous topic :: View next topic |
| Author |
Message |
dieterpagel
Newbie
Joined: 08 Oct 2005
Posts: 4
|
 Posted: Nov 16th, 2005 03:25 AM Post subject: Mousepointers in VB 6 |
 |
|
| Is it possible to select the 'Link Select' mouse pointer in VB 6 (The pointer with the hand used to select an item)? |
|
| Back to top |
|
DoobieKeebler
Moderator
Joined: 17 Jun 2005
Posts: 254
Location: 181°15'2.003"W, 93°5'16.956"N
|
| Posted: Nov 17th, 2005 03:25 PM Post subject: |
|
|
It is possible. I know it involves the LoadCursor and SetCursor functions. But trying to find good, understandable, working code is darn near impossible. At best I can get 2 out of 3. All I can say is do a Google search and see if you can pop any of it into your app.
_________________
Always take into account what a user would never ever in a million years do, because someone will.
"In theory, there's no difference between theory and practice. In practice, there is." -- Yogi Berra |
|
| Back to top |
|
P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
| Posted: Dec 3rd, 2005 10:59 AM Post subject: |
|
|
Something like this? 
| Code: | Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Const IDC_HAND = 32649&
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And Y >= 0 And X < Label1.Width And Y < Label1.Height Then
SetCursor LoadCursor(0, IDC_HAND)
End If
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
| Back to top |
|
|
