Comments on: LinkLabel with the correct Hand Cursor

By: Peter

Peter — Mon, 01 Nov 2010 20:38:58 +0000

Nevermind, I came up with a quick and dirty workaround:

    Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_SETCURSOR As Integer = 32
        If hoveringOverMediabutton Then
            If m.Msg = WM_SETCURSOR Then
                'IDC_HAND = 32649
                'IDC_ARROW = 32512
                SetCursor(LoadCursor(0, 32649))
                'the message has been handled
                m.Result = IntPtr.Zero
                Return
            End If
        Else
            If m.Msg = WM_SETCURSOR Then
                'IDC_HAND = 32649
                'IDC_ARROW = 32512
                SetCursor(LoadCursor(0, 32512))
                'the message has been handled
                m.Result = IntPtr.Zero
                Return
            End If
        End If

        MyBase.WndProc(m)
    End Sub

hoveringOverMediabutton is a boolean defined by me. If it's true, a hand cursor is set, if it's false, the default (arrow) cursor is set. Thanks for the initial code! :)

By: Peter

Peter — Mon, 01 Nov 2010 17:12:36 +0000

Um... While using that bit of code(the same as above, just converted to VB.NET):

    Protected Overrides Sub WndProc(ByRef m As Message)
        'WM_SETCURSOR == 32
        If m.Msg = 32 Then
            'IDC_HAND == 32649
            SetCursor(LoadCursor(0, 32649))

            'the message has been handled
            m.Result = IntPtr.Zero
            Return
        End If

        MyBase.WndProc(m)
    End Sub

I noticed that the cursor is not set back to default unless I set the cursor somewhere else (e.g. by hovering over the form). Is there a simple way to fix this?

By: Ricardo Amaral

Ricardo Amaral — Sat, 15 Aug 2009 11:55:02 +0000

Yep, I was aware that LinkLabel2 derived from Control and not Label. I could change the source code and include that in my app but I didn’t want to cause if you release a new version, I need to keep updating my version, which is boring lol.

About the resizing and stuff… I’m only using this ONCE and in an about box, which is fixed size, there will be no repainting whatsoever, so, that’s not an issue in my application. The form is not that wide either, so it won’t take that long to paint the label on the form. But this is just me and how I use the control (at least for now).

And it is the only to align the label IF I don’t want to do it manually by code, that’s what I was trying to say. Of course I can always handle the more appropriate event to see if the size changed and align it manually, but that’s what I wanted to avoid.

But if that’s the only way, I guess I have no choice…