A voir également:
- Créer une barre d'outils en VB
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
- Créer une liste déroulante excel - Guide
4 réponses
jlb59
Messages postés
343
Date d'inscription
mercredi 25 août 2004
Statut
Membre
Dernière intervention
8 mars 2024
5
26 août 2004 à 17:05
26 août 2004 à 17:05
Salut,
Bon, je ne vais pas dire que je suis un superman en VB, mais j'ai créé (il y qq tps) une barre d'outil avec Toolbar.
Dans l'immédiat, le code pour accéder à une procédure est le suivant :
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
'------------------- NOM DE TON IMG------------------------
If Button.Key = "(nom de ton img)" Then
For i = 1 To 5 ' Nb de boutons
Menu.Toolbar1.Buttons(i).Value = 0
Next i
Menu.Toolbar1.Buttons(1).Value = 1 ' nom de ton img
End If
Load (nom de ta form)
(nom de ta form).Show
Else
'------------------- NOM DE TON IMG------------------------
If Button.Key = "(nom de ton img)" Then
For i = 1 To 5 ' Nb de boutons
Menu.Toolbar1.Buttons(i).Value = 0
Next i
Menu.Toolbar1.Buttons(1).Value = 1 ' nom de ton img
End If
Load (nom de ta form)
(nom de ta form).Show
Else
'------------------- NOM DE TON IMG------------------------
etc...
Tu mets autant de proc que tu as d'images.
Si tu as encore des questions, n'hésites pas à préférer mon mail pour que j'envoies des exemples de ce que je sais. (j.bouchez2@tiscali.fr)
A+
Bon, je ne vais pas dire que je suis un superman en VB, mais j'ai créé (il y qq tps) une barre d'outil avec Toolbar.
Dans l'immédiat, le code pour accéder à une procédure est le suivant :
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
'------------------- NOM DE TON IMG------------------------
If Button.Key = "(nom de ton img)" Then
For i = 1 To 5 ' Nb de boutons
Menu.Toolbar1.Buttons(i).Value = 0
Next i
Menu.Toolbar1.Buttons(1).Value = 1 ' nom de ton img
End If
Load (nom de ta form)
(nom de ta form).Show
Else
'------------------- NOM DE TON IMG------------------------
If Button.Key = "(nom de ton img)" Then
For i = 1 To 5 ' Nb de boutons
Menu.Toolbar1.Buttons(i).Value = 0
Next i
Menu.Toolbar1.Buttons(1).Value = 1 ' nom de ton img
End If
Load (nom de ta form)
(nom de ta form).Show
Else
'------------------- NOM DE TON IMG------------------------
etc...
Tu mets autant de proc que tu as d'images.
Si tu as encore des questions, n'hésites pas à préférer mon mail pour que j'envoies des exemples de ce que je sais. (j.bouchez2@tiscali.fr)
A+
christofe13
Messages postés
10
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
31 mars 2008
1
14 mars 2008 à 00:33
14 mars 2008 à 00:33
salut, j'essaye actuellement de creer une barre d'outils! peux tu stp me fournir ton code afin que je regarde ça de plus pret stp (si ça te derange pas!)
je t'en remerci d'avance
je t'en remerci d'avance
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
26 août 2004 à 16:35
26 août 2004 à 16:35
d'apres moi tu associes ton action a la toolbar et non pas au bouton il faut que tu regardes quel bouton a était cliquer et que tu fasses une action en fonction du bouton choisit.
c'est clair là ? je suis pas trop sur ...
Bon courage !
JSS
c'est clair là ? je suis pas trop sur ...
Bon courage !
JSS