Toolbar sur visual basic 6 [Résolu]

Question

Toolbar sur visual basic 6 [Résolu]

Signaler

andregoub

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

- 20 mai 2007 à 17:32
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

A voir également:

13 réponses

Réponse 2 / 13

andregoub

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

20 mai 2007 à 18:03

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]

Réponse 3 / 13

jmfmarques

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

26
20 mai 2007 à 18:11

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....

Réponse 4 / 13

cs_DARKSIDIOUS

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

111
20 mai 2007 à 18:18

aïe ! A la vue de ton code, je ne dirais qu'on chose : vive les boucles !!!!!

Réponse 5 / 13

andregoub

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

20 mai 2007 à 18:34

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]

Réponse 6 / 13

jmfmarques

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

26
20 mai 2007 à 18:46

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 !

Réponse 7 / 13

andregoub

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

20 mai 2007 à 18:55

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]

Réponse 8 / 13

cs_DARKSIDIOUS

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

111
20 mai 2007 à 18:59

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 !

Réponse 9 / 13

andregoub

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

20 mai 2007 à 19:06

Darksidious

Merci a toi je vais essayer et encore merci

dédé[8D]

Réponse 10 / 13

andregoub

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

20 mai 2007 à 19:40

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]

Réponse 11 / 13

cs_DARKSIDIOUS

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

111
20 mai 2007 à 20:01

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

Réponse 12 / 13

soukra
14 oct. 2012 à 10:53

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

Réponse 13 / 13

soukra
14 oct. 2012 à 11:39

'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

Réponse 1 / 13

jmfmarques

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

26
20 mai 2007 à 17:47

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)

Votre réponse