[RESOLVED] Label color change

[shakti5385]

Hi all
I am changing color of label on mouse move event
But my question is how to get back the previous color when mouse in not on the label
Miss I want when mouse is on the label then its color is red otherwise previous color

See my code

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &HFF&
End Sub

help

[vivek_master146]

Hey it is simple. U can get the current color by this code

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = 'type your previous color here
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbRed
End Sub

[shakti5385]

u don't understand what i want to do

i dont want any event on form load
when mouse is on then label then label color is rad
when mouse is other place of the form miss not on the label then it's color is previous color

[Joacim Andersson]

The usual solution to do this kind of stuff is to use the SetCapture API function. Unfortunatly that only works with controls that have a hWnd, which a Label doesn't. There is however another little trick you can use that involves setting the DragIcon property to a mouse pointer of your choice. This is an important step otherwise this whole thing will look very funny. I've attached a hand icon you can use if you like.

Now for the trick, in the MouseMove event you start a Drag & Drop operation, this is because the Label will then start to fire the DragOver event, and this event will let you know when the mouse leaves the control, in which case you stop the dragging. You will actually never move the Label, you just start this operation to fire the DragOver event. The downside to this is that the MouseMove or Click events will not fire anymore. So if you use the Click event move that code into the DragDrop event instead, since that will fire when you press the mouse button.

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.BackColor = vbRed
    Label1.Drag vbBeginDrag
End Sub
 
Private Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        Label1.BackColor = vbButtonFace
        Label1.Drag vbEndDrag
    End If
End Sub
 
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
    'Use this event instead of the Click event
    Debug.Print "Label1_Click"
End Sub

Just remember to set the DragIcon property (during design-time) before using this code.

[vivek_master146]

Ok I have edited my post. Hope it helps.

[bushmobile]

unfortunately the Form_MouseMove method is unreliable.

one alternative is to use a textbox and make it look like a label and then use code like this to simulate a mouse_leave event.

[vivek_master146]

Hi bushmobile there is no such mouse_leave or mouseout event in textbox.

[shakti5385]

hi joacim ur coding is good but label is going with the mouse

vivek ur coding is not working well coz there r mdi form menu also toolbar also

bush sir in ur coding label color is not changing
please help me again

bush and joacim help me again

[Joacim Andersson]

hi joacim ur coding is good but label is going with the mouse

That's because you haven't set the DragIcon property, which I mentioned twice that you'll have to set, otherwise you get that ugly outline of the label when you move the mouse over it.

[shakti5385]

Hi joacim I went on drag icon property but window opening
What I do???
Help again

[vivek_master146]

Hey!!! Shakti u are not understanding what anderson is saying. U first download the
hand.zip file and then apply the icon in ur dragicon property. The window is not opening.
It is a common dialog.

[bushmobile]

Hi bushmobile there is no such mouse_leave or mouseout event in textbox.

I know, you have to simulate one using setcapture as is demonstrated in the link i provided.

[Joacim Andersson]

Hi joacim I went on drag icon property but window opening
What I do???
Help again

In the Open dialog box that appears select an icon or cursor file of your choice. You may used one of those Hand cursors I attached in the zip file.

[shakti5385]

thanks all

[vivek_master146]

Thats great!!! I can use it in my project. But what about label1. It does not have any hwnd property. It is showing error.

[bushmobile]

Thats great!!! I can use it in my project. But what about label1. It does not have any hwnd property. It is showing error.

Is that directed at me?
If so: that is why i said that you'd have to make a textbox look like a label.
If not: ignore me

[Joacim Andersson]

Thats great!!! I can use it in my project. But what about label1. It does not have any hwnd property. It is showing error.

I mentioned this fact in my first post in this thread and that is also why I described a work-around using the Drag method.

[vivek_master146]

No i am referring to bushmobile not anderson. Thank u bushmobile. I also want to ask that how much experienced u r in VB programming. Bloooahaha

[Joacim Andersson]

Yes, but I mentioned SetCapture in my first post. I also mentioned that a Label doesn't have a hWnd so you can't use it. So I posted another work-around, and you asked what how to use it with a Label. The answer is already available in this thread.

[bushmobile]

As i was going to say, JA was answering the same question. He'd already mentioned the SetCapture stuff. He suggested a work-around avoiding SetCapture, I suggested a work-around using SetCapture.

I also want to ask that how much experienced u r in VB programming.

umm, learnt a bit out of necessity when in a data entry job a couple of years back then took a break. decided to make an app for my g/f that would help her manage her teaching (she's a teacher) last year and have just learnt stuff as i go along. In the grand scheme of things probably v. little experience.

[shakti5385]

Any one who is helping other is the best
But I got the solution by joacim
Thanks joacim