Toolbar sur visual basic 6 [Résolu]

Question

Posez votre question Signaler

Toolbar sur visual basic 6 [Résolu]

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

- 20 mai 2007 à 17:32 - Dernière réponse : soukra - 14 oct. 2012 à 11:39

Visual Basic 6 Posez votre question Signaler

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

A voir également:

13 réponses

Signaler Commenter la réponse de andregoub

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

20 mai 2007 à 18:03

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de jmfmarques

jmfmarques

Messages postés: 7668
Date d'inscription: samedi 5 novembre 2005
Statut: Membre
Dernière intervention: 22 août 2014

18 20 mai 2007 à 18:11

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de cs_DARKSIDIOUS

cs_DARKSIDIOUS

Messages postés: 15838
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

73 20 mai 2007 à 18:18

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de andregoub

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

20 mai 2007 à 18:34

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de jmfmarques

jmfmarques

Messages postés: 7668
Date d'inscription: samedi 5 novembre 2005
Statut: Membre
Dernière intervention: 22 août 2014

18 20 mai 2007 à 18:46

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de andregoub

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

20 mai 2007 à 18:55

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de cs_DARKSIDIOUS

cs_DARKSIDIOUS

Messages postés: 15838
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

73 20 mai 2007 à 18:59

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 138 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de andregoub

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

20 mai 2007 à 19:06

0

Merci

Darksidious

Merci a toi je vais essayer et encore merci

dédé[8D]

Signaler Commenter la réponse de andregoub

andregoub

Messages postés: 84
Date d'inscription: vendredi 25 juin 2004
Statut: Membre
Dernière intervention: 19 mai 2011

20 mai 2007 à 19:40

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]

Signaler Commenter la réponse de cs_DARKSIDIOUS

cs_DARKSIDIOUS

Messages postés: 15838
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

73 20 mai 2007 à 20:01

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

Signaler Commenter la réponse de soukra

soukra 14 oct. 2012 à 10:53

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

Signaler Commenter la réponse de soukra

soukra 14 oct. 2012 à 11:39

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

Répondre Posez votre question

jmfmarques · Accepted Answer · 2007-05-20T17:47:37+0200

Meilleure réponse

Signaler Commenter la réponse de jmfmarques

jmfmarques

Messages postés: 7668
Date d'inscription: samedi 5 novembre 2005
Statut: Membre
Dernière intervention: 22 août 2014

18 20 mai 2007 à 17:47

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 138 internautes nous ont dit merci ce mois-ci

Toolbar sur visual basic 6 [Résolu]

Votre réponse