Discussion :

[jacma]

Bonjour
Existe-t-il une possibilité de passer le contenu d'une variable à la procédure évènementielle ci-dessous?

Code :

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

Sub tbOutilsClients_ButtonClick(ByVal Button As MSComctlLib.Button)

J'ai essayé, sans y croire, d'ajouter à la déclaration "..., optional myVar as string", et j'avais raison de ne pas y croire

Pour l'instant, j'utilise une variable déclarée au niveau du module, et donc accessible depuis cette procédure, mais je voudrais l'éviter.
Merci.

[AlainTech]

Je ne vois pas comment "passer" une variable puisqu'on n'"appelle" pas une procédure événementielle.

C'est l'événement qui appelle et passe ses paramètres à la procédure.

Or, on ne peut pas programmer l'événement (du moins, pas que je sache).

[jacma]

Je ne vois pas comment "passer" une variable puisqu'on n'"appelle" pas une procédure événementielle.

Bonjour
Essayes celà...

Code :

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

1
2
3
Private Sub Command1_Click()
  Command1.Caption = "Bonjour"
End Sub

[Xo]

cf : http://xo.developpez.com/tutoriel/vb6/poo_vb6/#Lc

Bon, je n'ai pas trop détaillé, ni même illustré par un exemple mais les Optional ne sont effectivement pas autorisés

[jacma]

Merci.
Je me contenterai donc d'une variable globale...

[zazaraignée]

Salut

Je crois que tous les contrôles de VB ont une propriété Tag de type Variant. Ta procédure appelante peut pousser la valeur voulue dans la propriété Tag de ton bouton. Quand l'utilisateur clique sur le bouton, ton programme peut lire le contenu de la propriété Tag et agir en fonction de cette valeur.

Reste à savoir si les boutons des barres d'outils ont une propriété Tag.

[zazaraignée]

Salut

C'est encore moi!
Je viens de tester avec une barre d'outils, une VScrollBar et un TextBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button.Index = 1 Then
        Text1.Text = Button.Tag
    End If
End Sub
 
Private Sub VScroll1_Scroll()
Toolbar1.Buttons(1).Tag = VScroll1.Value
End Sub

Et ça marche impec!

[jacma]

Merci.
Dommage que j'utilise cette propriété pour autre chose. Mais je vais probablement changer mon fusil d'épaule et la consacrer à cette foutue variable.