simuler un "onmouseover"

[popeye]

Bonjour

je voudrais faire une application assez "design" et j'aimerai que mes boutons change quand la souris passe au dessus
ya deja l'evenement onmousemove ou un truc comme ca qui le permet mais ya pas d'evenement qui permet de detecter quand la souris quitte la zone

si quelqu'un a une astuce (VBA ou VB)
merci

 

[Jean]

Essaie quelque chose comme ça :
j'ai un UserForm avec un bouton (btn1)
quand la souris est sur le bouton, la police est en gras,
elle redevient normale quand la souris quitte le bouton.

Dim flag as boolean
Private Sub btn1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
flag = True
btn1.Font.Bold = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If flag = True Then
flag = False
btn1.Font.Bold = False
End If
End Sub

A plus.

 

[Popeye]

Ah oui c bien ca
merci beaucoup

 

[Popeye]

en fait j'ai trouvé un composants activeX qui le fait tout seul

anybutton25
c reellement genial

 

[petchy]

salut popeye

ton composant activeX "anybutton" tu la trouver ou ?

merci
petchy

 

[Popeye]

Salut petchy

regarde la

http://fred.just.free.fr/francais/index.html

ya pas que ca
franchement c pas mal ce que le mec fait
ya plein d'autres choses bien sympatoche completement compatible VB6 etVBA excel et autres

 

[petchy]

merci,c'est sympa

@plus