Library tutorials & articles
Select Case statement
- Introduction
- Syntax
- Usage
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. = ,<=, > )
Related articles
Related discussion
-
VB6 Runtime error 381 subsript out of range Error
by Uncle (2 replies)
-
passing and reading parameters from using Shell
by jigartoliya (0 replies)
-
Convert C++ code to VB6
by mawcot (4 replies)
-
listbox scrollbar
by Dennijr (10 replies)
-
Can you describe Above simple VB6 code?
by pramodmca09 (0 replies)
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...
You want Case "SomeString", "NoString".
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.
If you put the Case Is statement first, will it run this message box and not look at the others?
This thread is for discussions of Select Case statement.