Aide pour programmation évènementielle

[sebgo]

Bonjour tout le monde,
Je ne sais pas si le titre convient à mon problème, mais je vais essayer de m'expliquer. Je cherche à faire défiler la description (caption) d'un bouton de commande au passage de la souris dessus sur le caption d'un formulaire. En même temps je veux faire apparaître une infobulle qui décrit ce que fait le bouton si la souris marque un temps d'arrêt sur le bouton. Peut-être que mon explication n'est pas claire mais je joins un fichier qui décrit mon problème.
Merçi d'avance pour toute piste ou aide.
A+
Sebgo

 

[Pierrot93]

Re : Aide pour programmation évènementielle

Bonsoir Sebgo

essaye le code ci dessous, à placer dans le module de ton USF

Private Sub UserForm_Initialize()
'alimente la propriété gérant l'info bulle de ton bouton 1
CommandButton1.ControlTipText "ce bouton a pour effet...."
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'modifie le titre de ton USF
UserForm1.Caption = CommandButton1.Caption
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'remet le titre de ton USF
Me.Caption = "Application"
End Sub

bonne soirée
@+

 

[sebgo]

Re : Aide pour programmation évènementielle

Salut Pierrot93,
Merci pour l'aide. Il marche sauf que je n'arrive pas à faire marcher l'infobulle. Je joint le fichier que j'ai modifé. Il buggue sur l'initialisation du formulaire.
A+
Sebgo

 

[sebgo]

Re : Aide pour programmation évènementielle

Re,
C'est correct. J'ai vu l'erreur. Il s'agit du =

CommandButton1.ControlTipText [COLOR="Red"]=[/COLOR] "ce bouton a pour effet...."

Merci et bonne soirée

 

[Pierrot93]

Re : Aide pour programmation évènementielle

Re Sebgo

oui, il manquait l'opérateur "=" :

Private Sub UserForm_Initialize()
'alimente la propriété gérant l'info bulle de ton bouton 1
CommandButton1.ControlTipText = "ce bouton a pour effet...."
End Sub

désolé

bonne soirée
@+