appeler une procedure ds toolbar

Question

bonjour

je vx appeler une procedure d un bouton de commande dans un boutton toolbar et g pas pu

g mis: Select Case Button.Key

Case "nouveau"

call nouveau  ' le nom de la procedure

End Select

et ca ne marche pas
sp-girl

jpleroisse · Answer

Bonsoir,
Est ce que tu as bien mis ta commande dans:

Private Sub ToolBar1_ButtonClick(ByVal Button As Button)
Select Case Button.Key
Case "nouveau"
call nouveau  ' le nom de la procedure
End Select
End Sub

jpleroisse

specialgirl · Answer

oui bien sur je l ai mise, le probleme c ds l appel
sp-girl

jpleroisse · Answer

Bonsoir,
Comme je ne vois pas ton code, je pr&#233;sume que ta proc&#233;dure "nouveau" est d&#233;clar&#233;e comme ceci:


Private Sub nouveau_Click()

Si c'est le cas, tu dois mettre Call nouveau_Click
Sinon passe le bout de code de ta proc&#233;dure, peut &#234;tre alors trouver t-on le probl&#232;me


jpleroisse

specialgirl · Answer

merci bien

  c bien ce ke g fait.beh! ds chaque form g un bouton
"nouveau"  ki s appelle nouveau et ki s ecrit comme ca par exemple:

Private Sub nouveau_Click(Index As Integer)

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

end sub
g deja essay&#233; call nouveau_click et ca ne marche pas

desolee pr le derangement

merci
sp-girl

jpleroisse · Answer

Bonjour,
Ton probl&#232;me vient du fait que tu as un groupes de boutons, dans ce cas, tu doit renseigner l'index. Si tu as par exemple 3 boutons, le code serait comme ci dessous.
Bien sur, si tu n'as pas de groupe de boutons et que tu as tapp&#233;s le code toi m&#234;me, alors supprime (Index As Integer).

Private Sub nouveau_Click(Index As Integer)
Select Case Index
    Case 0
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
    Case 1
        'ici ton code
    Case 2
        'ici ton code
    End Select
    
End Sub

jperoisse

Appeler une procedure ds toolbar

5 réponses

Discussions similaires