Exit, instruction

Microsoft VBScript

Microsoft® Visual Basic® Scripting Edition Exit, instruction  Référence du langage 
Version 1 


Description
Quitte un bloc du code Do...Loop, For...Next, Function ou Sub.
Syntaxe
Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

La syntaxe de l'instruction Exit prend les formes suivantes :

Instruction Description
Exit Do Fournit un moyen de quitter une instruction Do...Loop. Elle ne peut être utilisée qu'à l'intérieur d'une instruction Do...Loop. Exit Do transfère le contrôle à l'instruction suivant l'instruction Loop. Quand elle est utilisée dans des instructions Do...Loop imbriquées, l'instruction Exit Do transfère le contrôle à la boucle située au niveau d'imbrication supérieur à celui de la boucle dans laquelle elle se produit.
Exit For Fournit un moyen de quitter une boucle For. Elle ne peut être utilisée que dans une boucle For...Next ou For Each...Next. Exit For transfère le contrôle à l'instruction suivant l'instruction Next. Quand elle est utilisée dans des boucles For imbriquées, l'instruction Exit For transfère le contrôle à la boucle située au niveau d'imbrication supérieur à celui de la boucle dans laquelle elle se produit.
Exit Function Quitte immédiatement la procédure Function dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Function.
Exit Property Quitte immédiatement la procédure Property dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Property.
Exit Sub Quitte immédiatement la procédure Sub dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Sub.

L'exemple ci-dessous illustre l'utilisation de l'instruction Exit :


Sub RandomLoop
Dim I, MyNum
    Do                               ' Boucle infinie.
        For I = 1 To 1000            ' Boucler 1000 fois.
            MyNum = Int(Rnd * 100)   ' Génèrer des nombres aléatoires.
            Select Case MyNum        ' Évaluer le nombre aléatoire.
                Case 17: MsgBox "Case 17"
                Exit For             ' Si 17, sortir de 
For...Next.
                Case 29: MsgBox "Case 29"
                Exit Do              ' Si 29, sortir de 
Do...Loop.
                Case 54: MsgBox "Case 54"
                Exit Sub             ' Si 54, sortir de la 
procédure Sub.
            End Select
        Next
    Loop
End Sub