mouse move question

[carolyn]

I have created a label on a form, to imitate a hyperlink on browser, such that when it detects mouse movement over the label, it changes color and changed back to the original color when mouse moves out of the control, and opens the browser upon left click.

I have no problem detecting mouse movement when it's over the label. But how do I detect the mouse has left the label? Is it possible not to use API?

[axion_sa]

to do that, one uses the SetCapture and ReleaseCapture API calls (that i know of).
The problem is that the SetCapture call requires a hWnd, which the label doesn't have. if u can think of some other control that does have a hWnd then:

Static CtrMov As Boolean
 
    With objControl
      If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
        'lost mouse focus
        ReleaseCapture
        CtrMov = False
      Else
        SetCapture .hWnd
        If CtrMov = False Then
          'gained mouse focus
          CtrMov = True
        End If
      End If
    End With

[axion_sa]

forgot to give the declarations. here they are:

Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long
 
Declare Function SetCapture Lib "user32" Alias "SetCapture" (ByVal hwnd As Long) As Long

[carolyn]

I guess I can use a borderless textbox. Thank you for your help. I'll give it a try.

[Bruce Fox]

Give this ago, you will need to adapt it.

It demonstrates the Mouse over 1 of 2 buttons.
(ulimately for a Button Menu selection)

Bruce.
________
JulyaChannel

[Bruce Fox]

This should do it.
When u pass the mouse over, the lable will change colour.
When it leaves the Label it will change back.

Use the Arrow.ico I provided in the zip.

Private Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        Label1.Drag vbEndDrag
        Label1.BackColor = &H8000000F
    End If
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Drag vbBeginDrag
    Label1.DragIcon = LoadPicture(App.Path & "\Arrowbj.ico")
    Label1.BackColor = &HFF&
End Sub

And, this will change the text:

Private Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        Label1.Drag vbEndDrag
        Label1.ForeColor = &H0&
    End If
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Drag vbBeginDrag
    Label1.DragIcon = LoadPicture(App.Path & "\Arrowbj.ico")
    Label1.ForeColor = &HFF00&
End Sub

[Libero]

Hmmmm??!!

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = True
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontBold = False


End Sub

[Bruce Fox]

That works Libro,
However, you 'fire' the Form MouseMove continually when moving around

Hence, what I provided eliminates that.
________
Vapir no2 vaporizer

[Libero]

Im aware of that. I use this in many apps i made. And i dont see any difference for me anyway.

[carolyn]

The Drag-Drop method doesn't work because it doesn't capture the mouse button event, which I need to fire up some application upon clicking of a mouse button.

So I had to use the ReleaseCapture and SetCapture APIs. I used Picutre Box control to display the text. The result is exactly how I wanted. FYI, the TextBox control didn't work as well since a cursor is set in the control when mouse is clicked or got the focus.

Thank you all for your suggestions.