andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 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)
andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 mai 20111 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)
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 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....
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 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 !
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 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
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
'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