Toolbar sur visual basic 6 [Résolu]

Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
- - Dernière réponse :  soukra - 14 oct. 2012 à 11:39
bonjour
Je fais un programme je me serre d'une  simple toolbar sur une Form j'ai inclus 10 buttons et creer 10 Forms , je bloque sur l'ouverture des forms ,quand je clique sur un button sur la toolbar aucune ne s'ouvre ,avez vous une idée
Merci de me lire

dédé[8D]
Afficher la suite 

Votre réponse

13 réponses

Meilleure réponse
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
23
3
Merci
Bonjour,

Je crois que tu aurtais dû nommer différemment l'une des variables utilisées dans ton code affecté aux boutons ...
Tu ne vois pas où ? Curieux, alors... (ben... moi non plus... car sans ton code, ma foi, on ne voit rien)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmfmarques
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
3
Merci
ok voici le code


Option Explicit
Dim frm As Integer

Private Sub Main()
'affiche l'écran de démarrage
frmSplash.Show
'affiche la feuille principale de décharger l'écran de démarrage
frmMain
Unload frmSplash
End Sub

Private Sub Quitter_Click()
End
End Sub


Private Sub gestion_Activate()
Select Case frm
Case 1
Gestion.Toolbar1.Buttons(1).Value = tbrPressed
Case 2
Gestion.Toolbar1.Buttons(2).Value = tbrPressed
Case 3
Gestion.Toolbar1.Buttons(3).Value = tbrPressed
Case 4
Gestion.Toolbar1.Buttons(4).Value = tbrPressed
Case 5
Gestion.Toolbar1.Buttons(5).Value = tbrPressed
Case 6
Gestion.Toolbar1.Buttons(6).Value = tbrPressed
Case 7
Gestion.Toolbar1.Buttons(7).Value = tbrPressed
Case 8
Gestion.Toolbar1.Buttons(8).Value = tbrPressed
Case 9
Gestion.Toolbar1.Buttons(9).Value = tbrPressed
Case 10
Gestion.Toolbar1.Buttons(10).Value = tbrPressed
Case 11
Gestion.Toolbar1.Buttons(11).Value = tbrPressed
Case 12
Gestion.Toolbar1.Buttons(12).Value = tbrPressed
End Select
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)


Select Case Button.Key
Case "co"
    frm = 1
    Toolbar1.Buttons(1).Value = tbrPressed
    Toolbar1.Buttons(2).Value = tbrPressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
    Contact.Show
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
Case "cl"
    frm = 2
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrPressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
    Unload Contact
    client.Show
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
Case "de"
    frm = 3
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrPressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Devis.Show
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
Case "fa"
    frm = 4
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrPressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload.Contact
    Unload client
    Unload Devis
    Facture.Show
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
Case "tr"
   frm = 5
   Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrPressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Trésorie.Show
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
Case "sa"
frm = 6
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrPressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    salarié.Show
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
  
    Case "fo"
frm = 7
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrPressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    fournisseur.Show
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
  
    Case "Ch"
frm = 8
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrPressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Chantier.Show
    Unload Matériel
    Unload Rendez_vous
    Unload Véhicule
   
    Case "ma"
frm = 9
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrPressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Matériel.Show
    Unload Rendez_vous
    Unload Véhicule
  
    Case "re"
frm = 10
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrPressed
    Toolbar1.Buttons(11).Value = tbrUnpressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Rendez_vous.Show
    Unload Véhicule
   
    Case "vé"
frm = 11
    Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrPressed
    Toolbar1.Buttons(12).Value = tbrUnpressed
   
    Unload Contact
    Unload client
    Unload Devis
    Unload Facture
    Unload Trésorie
    Unload salarié
    Unload fournisseur
    Unload Chantier
    Unload Matériel
    Unload Rendez_vous
    Véhicule.Show


      
    End
End Select


End Sub




 


 






dédé[8D]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de andregoub
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
23
3
Merci
Mets-nous un msgbox "oui" dans chacun de tes cas Case et dis-nous s'il s'affiche dquand tu cliques sur ton bouton (1er réflexe à avoir).
J'ai bien l'impression que rien n'arrivera, moi....

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmfmarques
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
112
3
Merci
aïe ! A la vue de ton code, je ne dirais qu'on chose : vive les boucles !!!!!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_DARKSIDIOUS
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
3
Merci
Darksidious
de quoi??
si tu veus pas me dire comment ,mais moi au moins sur le chemin

jmfmarques
dés que je clic sur un bouton j'ai une erreur (membre introuvable c'est l'erreur)

dédé[8D]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de andregoub
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
23
3
Merci
Pardi !
Alors : au lieu de présenter ton problème comme tu l'as fait :
"Je fais un programme je me serre d'une  simple toolbar sur une Form j'ai inclus 10 buttons et creer 10 Forms , je bloque sur l'ouverture des forms ,quand je clique sur un button sur la toolbar aucune ne s'ouvre ,avez vous une idée"

Oublie tout le reste (y compris tes Forms) et concentre-toi uniquement sur ta Toolbar et ses boutons, jusqu'à ce que tu obtiennes la réaction toute bête de l'affichage d'une msgbox quand tu cliques sur un bouton.
Il est certain que tu ne peux pas parcourir 100 kms si tu ne peux en faire le 1er mètre !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmfmarques
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
3
Merci
Merci quand même je vois que je suis pas le seul à avoir du mal 
j'ai trouver comment faire, merci quand même pour vos paroles
dédé[8D]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de andregoub
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
112
3
Merci
Un petit exemple :
Au lieu de faire ceci :
Toolbar1.Buttons(1).Value = tbrUnpressed
    Toolbar1.Buttons(2).Value = tbrUnpressed
    Toolbar1.Buttons(3).Value = tbrUnpressed
    Toolbar1.Buttons(4).Value = tbrUnpressed
    Toolbar1.Buttons(5).Value = tbrUnpressed
    Toolbar1.Buttons(6).Value = tbrUnpressed
    Toolbar1.Buttons(7).Value = tbrUnpressed
    Toolbar1.Buttons(8).Value = tbrUnpressed
    Toolbar1.Buttons(9).Value = tbrUnpressed
    Toolbar1.Buttons(10).Value = tbrUnpressed
    Toolbar1.Buttons(11).Value = tbrPressed
    Toolbar1.Buttons(12).Value = tbrUnpressed

Fait ceci :

Dim i As Integer
for i = 1 to 12
    Toolbar1.Buttons(i).Value = tbrUnpressed
next i

Toolbar1.Buttons(11).Value = tbrPressed

Ca fait la même chose, mais c'est bien plus simple à lire, et ca te fera gagner du temps en développement !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_DARKSIDIOUS
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
0
Merci
Darksidious

Merci a toi je vais essayer et encore merci

dédé[8D]
Commenter la réponse de andregoub
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
0
Merci
Darksidious
J'ai fait la manip avec la boucle quand je clic sur un boutton exemple de deuxieme le douzieme s'enclenche et reste enfoncé

dédé[8D]
Commenter la réponse de andregoub
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
112
0
Merci
Essaye de comprendre un minimum mon code tout de même avant de remplacer le tiens...

for i = 1 to 12
    Toolbar1.Buttons(i).Value = tbrUnpressed 'on passe tout les boutons à Unpressed
next iToolbar1.Buttons(11).Value tbrPressed 'on passe le 11 ème bouton à Pressed> à adapter selon le bouton appuyé :

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Dim i As integer


for i = 1 to 12

    Toolbar1.Buttons(i).Value = tbrUnpressed 'on passe tout les boutons à Unpressed

next i

Toolbar1.Buttons(Button.Index).Value = tbrPressed

End Sub
Commenter la réponse de cs_DARKSIDIOUS
0
Merci
Voici le code le plus court que j'ai essayé avec succès pour manipuler les boutons d'un ToolBar sous VB6.
? tbrUnpressed=0
? tbrPressed=1

Code :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "Arrow"
Call ButtonUnPressed
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "ZoomIn"
Call ButtonUnPressed
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "ZoomOut"
Call ButtonUnPressed
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "Pan"
Call ButtonUnPressed
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "Ruler"
Call ButtonUnPressed
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....
End Select

End Sub

Private Sub ButtonUnPressed()

Dim i As Integer
Dim nbreButton As Integer
Dim Button As MSComctlLib.Button
nbreButton = Toolbar1.Buttons.Count
For i = 1 To nbreButton
Toolbar1.Buttons(i).Value = 0
Next i
Toolbar1.Refresh

End Sub

habib saadi
Commenter la réponse de soukra
0
Merci
'Voici le code le plus court que j'ai essayé
'avec succès pour manipuler les boutons
'd'un ToolBar sous VB6 :
? tbrUnpressed=0
? tbrPressed=1

'Code amélioré :
'Appel de la procédure ButtonUnPressed() pour
'remettre les boutons à l'état initial
Call ButtonUnPressed

'Les cas
Select Case Button.Key

Case "Arrow"

Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "ZoomIn"
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "ZoomOut"
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "Pan"
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....

Case "Ruler"
Toolbar1.Buttons(Button.Index).Value = 1
'Action à faire....
End Select

End Sub

' Procédure
Private Sub ButtonUnPressed()
'Remettre les boutons à l'état initial

Dim i As Integer
Dim nbreButton As Integer
Dim Button As MSComctlLib.Button
nbreButton = Toolbar1.Buttons.Count
For i = 1 To nbreButton
Toolbar1.Buttons(i).Value = tbrUnpressed
Next i
Toolbar1.Refresh

End Sub

'habib saadi
Commenter la réponse de soukra

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.