VBA - Istruzione Switch

Quando un utente desidera eseguire un gruppo di istruzioni che dipendono da un valore di un'espressione, viene utilizzato Switch Case. Ogni valore è chiamato Case e la variabile viene attivata in base a ciascun caso. L'istruzione Case Else viene eseguita se l'espressione di test non corrisponde a nessuno dei Case specificati dall'utente.

Case Else è un'istruzione opzionale all'interno di Select Case, tuttavia, è una buona pratica di programmazione avere sempre un'istruzione Case Else.

Sintassi

Di seguito è riportata la sintassi di un'istruzione Switch in VBScript.

Select Case expression
   Case expressionlist1
      statement1
      statement2
      ....
      ....
      statement1n
   Case expressionlist2
      statement1
      statement2
      ....
      ....
   Case expressionlistn
      statement1
      statement2
      ....
      ....   
   Case Else
      elsestatement1
      elsestatement2
      ....
      ....
End Select

Esempio

A scopo dimostrativo, troviamo il tipo di numero intero con l'aiuto di una funzione.

Private Sub switch_demo_Click()
   Dim MyVar As Integer
   MyVar = 1
  
   Select Case MyVar
      Case 1
         MsgBox "The Number is the Least Composite Number"
      Case 2
         MsgBox "The Number is the only Even Prime Number"
      Case 3
         MsgBox "The Number is the Least Odd Prime Number"
      Case Else
         MsgBox "Unknown Number"
   End Select
End Sub

Quando il codice precedente viene eseguito, produce il seguente risultato.

The Number is the Least Composite Number