Discussion :

[peaceandloveman01]

(Re)Bonjour,

J'aimerai utiliser le bouton ? sur un userform mais je ne sais pas comment le programmer pour afficher une info-bulle suivant le contrôle de mon userform sur lequel je clique par la suite. Un peu comme sous windows ... Pouvez-vous m'aider ?

Mercid'avance

Lyonel

[patbou]

bonjour

que veux tu faire?
creer un userform sur lequel tu ajoute un bouton de commande?

[peaceandloveman01]

non en fait si dans les propriétés de ton userform tu bascule la propriété WhatThisButton en True alors une icône avec ? apparait à côté de la croix. Je voudrais pouvoir l'utiliser comme on l'utilise sous windows pour savoir à quoi correspond un bouton par exemple.

[patbou]

si je resume et si j ai bien compris
tu voudrais lorsque tu survol le bouton avec la souris qu un message
t annonce la fonction du bouton survolé.

[patbou]

une idee j ai essayé sur un bouton
dans ton userform pour chaque bouton d on tu desire recuperer une indication


dans ton userform affecte les propriété
WhatsThisHelp et WhatsThisButton a true
tu autorise le passage de l un a l autre avec l evenement click du user

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Click()
' Transforme le pointeur de la souris en point
' d'interrogation (Qu'est-ce que c'est).
    WhatsThisMode
End Sub

et pour chaque bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
private sub lebouton_mosemove (ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
msgbox " bouton1 activation ........"

a chaque survole (avec la souris avec le pointeur par defaut) tu declenche
tes procedures

[ouskel'n'or]

Ce ne serait pas "lebouton_mousemove" ?
On veut aller vite, on veut aller vite
De mon côté, j'utiliserais la propriété ControlTipText qui éviterait tout ça