Discussion :

[BM42]

Salut mon site vénéré !

je reviens a vous avec une question de gros nullos (Le )

dans une appli j'utilise une barre de menu dans la quelle j'ais plusieur bouton du type : Gras, italic, ...
Le problème ? ... Quand je clic sur un bouton celui ci devient Pressed et tout ce passe bien. Quand je reclic dessus il reste Pressed mais la saisie du texte elle est Ok.
Jutilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Case "Gras"
        Button.Value = tbrPressed
        Rch0(SSTab1.Tab).SelBold = Not Rch0(SSTab1.Tab).SelBold
        Button.Value = IIf(Rch0(SSTab1.Tab).SelBold, tbrPressed, tbrUnpressed)

Le Problème vient certainement du IIf .... mais la j'ai les neuronnes qui s'embrouille.

Merci cher membre Vénéré de votre aide (Le premier qui se marre .... )

[Delbeke]

Et si tu utilisait un FlipFlop ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Button.Value = (Button.Value = False)
if button.value = false then
    Rch0(SSTab1.Tab).SelBold = False
else
    Rch0(SSTab1.Tab).SelBold = True
end if

Note : en Vb False = 0 et True = -1

[BM42]

Salut et merci pour ta réponse

Mais marche pas....

désolé

A+

[Delbeke]

Bon, je viens de tester, effectivement, çà ne marche pas.
Je qualifierais le fonctionnement du bouton de la barre d'outils comme buggé.
La logique de l'etat pressé/levé est vraiement tout sauf intuitive,
Sans code, le bouton s'enfonce et se releve.
on peut le forcer a rester enfoncé en mettant tbPressed dans l'evement buttonClick. mais dés que l'on entre dans buttonclick, la valeur de button est toujours tbUnpressed.

Il faut donc ruser et ne pas utiliser la propriété value comme indiquateur d'etat. ce qui donnerait le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Button.Tag = IIf(Button.Tag = "1", "0", "1")
  If Button.Tag = "1" Then
    Button.Value = tbrPressed
  End If
  If Button.Value = tbrUnpressed Then
    MsgBox "Bouton Up", vbOKOnly, Button.Caption
  Else
    MsgBox "Bouton Down", vbOKOnly, Button.Caption
  End If
End Sub

On voit bien dans ce code je ne donne jamais la valeur unpressed au bouton.

[BM42]

Salut Delbeke

Désolé d'avoir mis du temps à répondre mais j'ais un emploie du temps relativement chargé.
En tout cas merci pour la combine qui marche nickel.
J'ais remanié la partie Selbold car mon bout de code était un peut "Bizar"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "Gras"
        Button.Tag = IIf(Button.Tag = "1", "0", "1")
        If Button.Tag = "1" Then
            Button.Value = tbrPressed
        End If
 
        If Button.Value = tbrUnpressed Then
            Rch0(SSTab1.Tab).SelBold = False
        Else
            Rch0(SSTab1.Tab).SelBold = True
        End If
    Case "Italic"
        .........
 
End Select
End Sub

Un gros
A+