Library tutorials & articles

Select Case statement

Usage

Sub Command1_Click()
   Select Case Text1.Text
      Case "Hello"
         Msgbox "Welcome!"
      Case "Goodbye"
         Msgbox "See you again soon!"
      Case Else
         Msgbox "You said something else"
   End Select
End Sub

This retrieves the value of Text1.Text and then tests it against each case. If Text1.Text is equal to "Hello" then a message box is displayed saying "Welcome".  If Text1.Text is equal to "Goodbye" then a message box is displayed saying "See you again soon". If Text1.Text is equal to something else then a message box is displayed saying "You said something else".

' Initialise variable
Dim Number As Integer
Number = 8
Select Case Number    ' Evaluate Number.
Case 1 To 5    ' Number between 1 and 5.
    Msgbox "Between 1 and 5"
Case 6, 7, 8    ' Number between 6 and 8.
    Msgbox "Between 6 and 8"
Case Is > 8 And Number < 11    ' Number is 9 or 10.
    Msgbox "Greater than 8"
Case Else    ' Other values.
    Msgbox "Not between 1 and 10"
End Select

This code evaluates the variable Number, and then runs the appropriate code. Note you need to use the statement Is if you are using comparison operators (i.e. = ,<=, > )

Comments

  1. 12 Sep 2004 at 16:46

    You want Case "SomeString", "NoString".

  2. 17 Mar 2004 at 06:37

    This below code segment throws casting exception
    Select Case str1
               Case "SomeString" Or "NoString"
                   Response.Write("OK")
               Case "SmallString" And "BigString"
                   Response.Write("AND here")
           End Select


    Can you please explain the structure of Case statement in detail ?
    Thanx in Adv.

  3. 27 Jan 2002 at 22:17

    If you put the Case Is statement first, will it run this message box and not look at the others?

  4. 01 Jan 1999 at 00:00

    This thread is for discussions of Select Case statement.

Leave a comment

Sign in or Join us (it's free).

James Crowley James first started this website when learning Visual Basic back in 1999 whilst studying his GCSEs. The site grew steadily over the years while being run as a hobby - to a regular monthly audience ...
AddThis

Related discussion

Related podcasts

  • Christian Beauclair

    14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...

Want to stay in touch with what's going on? Follow us on twitter!