Select Case, instruction

Microsoft VBScript

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


Description
Exécute un groupe d'instructions parmi plusieurs, en fonction de la valeur d'une expression.
Syntaxe
Select Case testexpression
    [Case expressionlist-n
        [statement-n]] . . .
    [Case Else expressionlist-n
        [elsestatements-n]]
End Select

La syntaxe de l'instruction Select Case comprend les éléments suivants :

Élément Description
testexpression Toute expression numérique ou de chaîne.
expressionlist-n Requis si Case apparaît. Liste délimitée d'une ou de plusieurs expressions.
statements-n Une ou plusieurs instructions exécutées si testexpression correspond à un élément de expressionlist-n.
elsestatements-n Une ou plusieurs instructions exécutées si testexpression ne correspond à aucune des clauses Case.

Notes
Si testexpression correspond à une expression Case expressionlist, les instructions suivant cette clause Case sont exécutées jusqu'à la clause Case suivante ou, pour la dernière clause, jusqu'à End Select. L'instruction suivant End Select prend ensuite le contrôle. Si testexpression correspond à une expression expressionlist dans plusieurs clauses Case, seules les instructions suivant la première correspondance sont exécutées.

La clause Case Else est utilisée pour indiquer les elsestatements à exécuter si aucune correspondance n'était trouvée entre l'expression testexpression et une expressionlist dans toutes les autres sélections Case. Bien que ce ne soit pas obligatoire, il est judicieux d'insérer une instruction Case Else dans votre bloc Select Case pour gérer les valeurs testexpression imprévues. Si aucune Case expressionlist ne correspond à testexpression et s'il n'y a pas d'instruction Case Else, l'exécution continue à partir de l'instruction suivant End Select.

Les instructions Select Case peuvent être imbriquées. Chaque instruction Select Case imbriquée doit avoir une instruction End Select correspondante.

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

Dim Color, MyVar
Sub ChangeBackground (Color)
	MyVar = lcase (Color)
   	Select Case MyVar
            Case "rouge"  document.bgColor = "rouge"
            Case "vert"   document.bgColor = "vert"
            Case "bleu"   document.bgColor = "bleu"
            Case Else     MsgBox "choisissez une autre couleur"
      End Select
End Sub