simuler un "onmouseover"

  • Initiateur de la discussion popeye
  • Date de début
P

popeye

Guest
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
 
J

Jean

Guest
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.
 
P

Popeye

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG