Appeler une prcédure existanteRésolu

Question

J'ai un petit souci concernant l'appel d'une procédure existante.
En effet, en VB6, on pouvait faire :

Private Sub mnu_calculer_Click()
    ...
    code
    ...
End sub

Puis on appelle l'évènement existant

Private Sub UD_barre_Change()
    mnu_calculer_Click
End Sub

Je cherche à faire la même chose en VB2005 mais ça ne marche pas.

Merci de votre aide.

cs_casy · Accepted Answer

Pourquoi ça ne marcherait as ????

    Private Sub CalculerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculerToolStripMenuItem.Click
        MessageBox.Show("bipbip")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call CalculerToolStripMenuItem_Click(sender, e)
    End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Utilisateur anonyme · Answer

Salut,

Pour un menu, tu utilise sa fonction PerformClick






__________
Kenji

Utilisateur anonyme · Answer

Casy, ta solution marche mais c'est très à la rach. Celà dit peut être utilise dans certains cas si on veut conserver le véritable sender.

Exemple pour des simples boutons: 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Console.Beep()
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Button2.Invoke(New System.EventHandler(AddressOf Button2_Click))
End Sub



__________
Kenji

cs_casy · Answer

Je suis tout à fait d'accord Charles, c'était juste pour l'exemple.

Personellement j'essaye d'éviter ce genre de combinaison d'appel, pas très propre à mon gout.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Appeler une prcédure existante

4 réponses

Votre réponse

Discussions similaires