Glow the lable in From

anukagni · May 20th, 2006, 12:23 AM

Yes exactlly wat u mention mike..

i need the lable should glow till the from open...
i tried the above method wat u said but iam not getting correttly..

bye
------------------------
pap...

echovue · May 24th, 2006, 04:12 PM

Are you able to post the code that you are trying to use? That might help us better see what exactly you are trying to do.

Thanks

Mike

Mike
EchoVue.com

mmcdonal · May 25th, 2006, 12:17 PM

Here is some code I was playing around with to get this effect. You create a label, and then set its special effect to Raised, the back style to Normal, and then turn it any color you want. Then type in your button text, center it, and then set the topMargin accordingly on the form's On Current event.

Then on the labels MouseDown and Mouse Up Events you put the following code.

Private Sub Label6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.SpecialEffect = acEffectSunken
Label6.FontBold = True
End Sub

Private Sub Label6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.SpecialEffect = acEffectRaised
Label6.FontBold = False
End Sub

If you wanted the font to "glow" on mouse over, you would have to put this in the label's anf form's mouse move events, I think.

Does this help? It allows you to create "buttons" of any color you want.

mmcdonal

mmcdonal · May 25th, 2006, 12:18 PM

I just thought you could also change the font color on MouseDown and MouseUp

MouseDown
Label6.ForeColor = vbRed

MouseUp
Label6.ForeColor = vbBlack

mmcdonal

anukagni · July 26th, 2006, 06:17 AM

I have tried above said but no result thats y iam started new topic

bye
------------------------
pap...

Bronnas · October 17th, 2008, 11:36 AM

Hi echovue,
I used your code to change the colour of the labels on my form when the mouse is over them. It is great thanks! BUT

The only difference is that my labels are in the Form Header. They are in there because they are labels that run a filter which displays continuous records on the same form. If I put the labels in the Detail section they will display for every record- I don't want this.

The problem is that the Private Sub Form Header_MouseMove will only accept one argument and I have another 6 labels that I need this to work on. e.g. lblResources.ForeColor = 26367, lblEducation.ForeColor = 26367

Code:

Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblEnabling.ForeColor = 26367
End Sub

I have tried adding & to the end of each line in an attempt to reference all the labels in the one Private Sub but it's not working. Can you help with this? If there is a way to just turn all text in the header the same colour that would also be acceptable but I can't do that either!

thanks
Bronnas -