label effect
Hi,
A question from a friend of mine. Hope you understand this, cause it's in dutch. I've tried to translate it at the bottom. Ik heb een formulier in Vba met een label. Als ik er een commandbutton bijzet met de code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" bij dan krijgt mijn label nen "boebel" als ik op de nop klik. De bedoeling is echter dat dit gebeurt als ik met de muis over het label ga. Enig idee iemand? Translation: I have a form in vba wich contains a label. When i put a commandbutton in with the code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" then the label gets a bump everytime i press the button. However this should only happen when i put the cursor on top of the label. Any ideas anyone? regards, Peter |
label effect
Hi Peter
CommandButton1_Click is the "when I click this button" event. Mousecursor over is the MouseMove event: Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.SpecialEffect = fmSpecialEffectRaised End Sub Note that there is no MouseOut event, so you must find another event to detect when the mouse is no longer over it. HTH. Best wishes Harald "Peter" skrev i melding ... Hi, A question from a friend of mine. Hope you understand this, cause it's in dutch. I've tried to translate it at the bottom. Ik heb een formulier in Vba met een label. Als ik er een commandbutton bijzet met de code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" bij dan krijgt mijn label nen "boebel" als ik op de nop klik. De bedoeling is echter dat dit gebeurt als ik met de muis over het label ga. Enig idee iemand? Translation: I have a form in vba wich contains a label. When i put a commandbutton in with the code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" then the label gets a bump everytime i press the button. However this should only happen when i put the cursor on top of the label. Any ideas anyone? regards, Peter |
label effect
But you move the cursor to the commandbutton1 to click it. So it would no
longer be over the label. Are you looking for a mousemove event? The problem there is that you would need to put the label on top of another control to use the mouseover for that control to return the label to its former configuration. Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.SpecialEffect = fmSpecialEffectRaised End Sub Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.SpecialEffect = fmSpecialEffectFlat End Sub Label1 is above, centered and inside the boundaries of Textbox1. Textbox1 is visible, has specialeffect set to flat, no boarders, background color matches the userform so it is not noticeable. Tabstop set to false. Play with it. Worked for me. -- Regards, Tom Ogilvy "Peter" wrote in message ... Hi, A question from a friend of mine. Hope you understand this, cause it's in dutch. I've tried to translate it at the bottom. Ik heb een formulier in Vba met een label. Als ik er een commandbutton bijzet met de code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" bij dan krijgt mijn label nen "boebel" als ik op de nop klik. De bedoeling is echter dat dit gebeurt als ik met de muis over het label ga. Enig idee iemand? Translation: I have a form in vba wich contains a label. When i put a commandbutton in with the code "Private Sub CommandButton1_Click() Label1.SpecialEffect = fmSpecialEffectRaised End Sub" then the label gets a bump everytime i press the button. However this should only happen when i put the cursor on top of the label. Any ideas anyone? regards, Peter |
All times are GMT +1. The time now is 04:39 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com