Créer une barre d'outils en VB
franchesco
-
as -
as -
Salut,
J'ai créer une barre d'outils avec l'objet toolbar de VB, elle comporte 5 boutons (nouveau,enregistrer...).le problème c'est que je ne parviens pas à écrire le code de chaque bouton, par exemple quand je double clic sur nouveau et que j'écris le code, ce code s'exécute aussi lorsque je clic sur enregistrer.Comment faire?
Merci
J'ai créer une barre d'outils avec l'objet toolbar de VB, elle comporte 5 boutons (nouveau,enregistrer...).le problème c'est que je ne parviens pas à écrire le code de chaque bouton, par exemple quand je double clic sur nouveau et que j'écris le code, ce code s'exécute aussi lorsque je clic sur enregistrer.Comment faire?
Merci
A voir également:
- Créer une barre d'outils en VB
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer une adresse hotmail - Guide
- Créer un lien pour partager des photos - Guide
- Barre d'outils windows 10 - 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
