A voir également:
- Créer une barre d'outils en VB
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
- Créer un lien pour partager des photos - Guide
- Créer une liste déroulante excel - Guide
4 réponses
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+
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