none
Goto ou Gosub vers une Private Sub RRS feed

  • Question

  • Bonjour,

    J'ai une Private Sub qui contient des instructions que je dois recalculer selon l'action réalisée.

    (La private Sub est celle qui se lance lors d'un clic sur mon bouton1).

    Je souhaiterai lancer ces mêmes instructions lors d'une action avec un ou d'autres boutons.

    Plutôt que de recopier à chaque fois les instructions, comment puis je faire pour lancer les instructions d'une private sub à partir d'une autre private sub ?

    L'instruction "Goto" ne semble pas fonctionner...

    Pouvez vous m'aider sur ce point ?

    Bonne journée.

    dimanche 10 mai 2015 15:03

Réponses

  • Bonjour,

    Je ne comprends pas trop la question mais dans l'exemple ci-dessous une "Sub Test1()" qui peut être appelée d'un bouton ou d'un label.

     Sub Test1()
            MsgBox("Bonjour")
        End Sub
     
     
     Private Sub btnUn_Click(sender As System.Object, e As System.EventArgsHandles btnUn.Click
            Test1()
     End Sub
     
     Private Sub lblInfo_Click(sender As System.Object, e As System.EventArgsHandles lblInfo.Click
            Test1()
     End Sub


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    dimanche 10 mai 2015 19:24

Toutes les réponses

  • Bonjour,

    https://msdn.microsoft.com/fr-fr/library/69whc95c.aspx?f=255&MSPPError=-2147217396


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    dimanche 10 mai 2015 17:13
  • Bonjour,

    J'avais bien vu cette explication mais elle reste restreinte :

    "<span data-guid="582c3d8c9cec63445f744baafe26dbbf" data-source="The GoTo statement can branch only to lines in the procedure in which it appears." id="mt4" style="text-decoration:underline;">L'instruction GoTo ne peut créer une branche que vers des lignes qui appartiennent à la procédure dans laquelle elle est utilisée."

    Dans mon cas, je souhaite renvoyer vers une autre private sub, ce que goto ne semble pas accepter et la fonction call me renvoie une erreur.Comment donc demander l’exécution d'une private sub depuis une autre private sub ?

    Exemple :

    Public Class Form1

        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

            'Le Goto Ci dessous ne fonctionne pas..
        GoTo Label1_Click ()

        End Sub

        Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

        End Sub

    End Class

    La question reste entière...

    Merci quand même de votre réponse.

    dimanche 10 mai 2015 18:31
  • Bonjour,

    Je ne comprends pas trop la question mais dans l'exemple ci-dessous une "Sub Test1()" qui peut être appelée d'un bouton ou d'un label.

     Sub Test1()
            MsgBox("Bonjour")
        End Sub
     
     
     Private Sub btnUn_Click(sender As System.Object, e As System.EventArgsHandles btnUn.Click
            Test1()
     End Sub
     
     Private Sub lblInfo_Click(sender As System.Object, e As System.EventArgsHandles lblInfo.Click
            Test1()
     End Sub


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    dimanche 10 mai 2015 19:24