[AC-2007] Zoom d'une zone de texte au passage de la souris [Résolu]

[Lionel69260]

Bonjour,

J'ai créé un menu avec l'outil intégré de Acces 2007.

J'aimerais, lors du passage du pointeur de la souris sur une option du menu :

soit faire changer la couleur du texte,

soit zoomer le texte.

Avez vous une solution ?

merci par avance

[Philippe JOCHMANS]

Bonjour

Que nommes-tu menu ? Le ruban ?

Tu parles de zone de texte dans le titre

Merci d'éclaircir nos lanternes.

Philippe

[Lionel69260]

Bonsoir,

Non, il ne s'agit pas du ruban.

Il s'agit du menu créé avec l'outil intégré d'accès 2007, le gestionnaire de menu général.

En fait je voudrais obtenir le même résultat que dans la liste des sujets du forum, c.a.d. que le texte des options de mon menu change de couleur au survol du pointeur de la souris, ou bien, le grand luxe, que ce texte zoom au survol du pointeur de la souris.

Merci par avance

[Lionel69260]

Ca y est, j'ai trouvé la solution

En fait il faut agir sur Option1, Option2, etc...
et non pas sur OptionLabel1, OptionLabel2, etc...
etc... varie en fonction du nombre d'options du menu

En plaçant ce code sur la propriété "Souris déplacée" du contrôle Option1,
j'agis également sur le contrôle OptionLabel1 qui contient le texte à modifier

Code :

1
2
3
4
5
6
7
8
9
Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    OptionLabel1.ForeColor = vbWhite
    OptionLabel1.FontBold = True
    OptionLabel1.FontSize = 13
    OptionLabel2.ForeColor = vbYellow
    OptionLabel2.FontSize = 10
 
End Sub

Le seul soucis étant que lorsque le pointeur de la souris quitte une option du menu, celui reste modifié, dans mon exemple en blanc, gras, taille 13.

Il faut donc en plus mettre du code pour forcer les autres "label" à rester dans leur couleur, leur taille d'origine.

Cela fonctionne, j'ai un "effet Zoom" avec un changement de couleur