Toujours et encore le problème avec la ToolBar ... Gagnez une carte postale

Question

à toute personne qui consulte cet article :

Tu vas me reserver 5 minutes et tu vas créer un petit projet.
Sur le formulaire tu placeras une ToolBar avec un seul bouton ..
Tu vas te débrouiller pour que si tu cliques sur ce bouton (de la toolBar) un simple message s'affiche "Coucou" (MsgBox"Coucou").
Après tu va placer un Bouton de commande (CommandeButton).
Ce que je veux c'est en cliquant sur le Bouton de commande l'action du bouton de la toolBarre s'exécute : Le fameu "Coucou"

J'espère que c'est clair.

Si tu me trouve la solution, je promet de t'envoyer une carte postele ;).

Merci d'avance.
-=-[ Golden-X] -=-

cs_rene38 · Answer

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
MsgBox "Coucou"
End Sub

Private Sub Command1_Click()
'Le bouton a pour Index 1 et pour Key "bouton"
Toolbar1_ButtonClick Toolbar1.Buttons("bouton")
'ou bien
Toolbar1_ButtonClick Toolbar1.Buttons(1)
End Sub

ça marche très bien mais ça fait plusieurs fois que je te donne la solution.
J'ai donc droit à plusieurs cartes postales !

dlpxlid · Answer

tu créé ton msgbox "coucou" dans une procédure et tu peux ainsi y acceder de la tollbar ou du commandbutton.

cs_Appil · Answer

Le Msgbox "Coucou" dans mon programme est un block assez important de code ... et je veux l'utiliser diverses fois ... j'ai déjà songé à cette solution .. mais je me disais qu'il y a forcément un moyen d'appeler la procédure de la ToolBar.

Merci quand meme.

-=-[ Golden-X] -=-

cs_Appil · Answer

Désolé Rene, Mais ça ne marche pas ! l'as tu déjà essayé ? si c'est oui envoies moi un zip exemlpe à cet email golden--x@caramail.com.
Si ça marche je t'enverrai la carte avec plaisir.
et meme si ça ne marche pas je t'enverrai une c koi ton adresse ?

-=-[ Golden-X] -=-

cs_Appil · Answer

Je ne l'ai pas mentionné dans ma question :
-/ Le MsgBox "Coucou" remplace un block de code dans mon projet.

-/ Ne me dite de placer le code dans la procédure clique du CommandButton puis appeller Command1_Clique dans la procédure evenmentielle de la toolbar.

-/ Ces solutions ne marchent pas :

Private Sub Command1_Click()
     ToolBar_ButtonClick(Buttons(key))     
     ToolBar_ButtonClick(Buttons(Index))
     ' Key est l'index du bouton de la ToolBar
     ' Index est l'index du bouton de la ToolBar
End Sub

Voilà.

-=-[ Golden-X] -=-

MIKEPRO · Answer

slt tt le monde.

je cherchais la m&#234;me info que Golden-X


Merci beaucoup rene38 ...sa marche tr&#232;s bien...

Golden_X...je medemande si ton probl&#232;me ne vient pas d'ailleurs?

le code "Toolbar1_ButtonClick Toolbar1.Buttons(n)" avec n comme index de boutton &#224; soliciter; marche tr&#232;s bien...


@+

Toujours et encore le problème avec la ToolBar ... Gagnez une carte postale

6 réponses

Discussions similaires