In the previous article, you have learned about the if-then-else statements and how you can build a program in VB 6 that work on conditions. The problem with if-then-else structure is that it is very difficult to keep a track of all codes.
The Select-Case is a VB 6 feature that allows to select a case when the condition is met and execute a code. It is a more simplified version of if-then-else statements.
The syntax for Select-Case is given below.
Select Case expression Case 1: some expression; Case 2: some expression; Case 3: some expression; Case 4 To 8: some expression; Case Is <= Total: some expression; Case Else: some default expression; End Select
Select Case ‘expression‘ – Here the Select Case wants a variable or an expression to check if any Case match with it. If there is a match then execute codes under that case.
Case ‘value’ – A case has a number or expression that evaluates to a number. The code under case is executed when the
Select Case condition is met.and its value match with the
End Select – This terminates the
Select Case block.
Each of the case has a value associated with it. It may be in the form of number, or an expression.Let us see few examples below:
Case with number
Case 4: //Case with number and a colon
Case with range of values (expression)
Case 4 To 10: // Gives option to choose number between 4 and 10
Case with logic (expression)
Case Is >= 20: //Case condition evaluates to true, and code gets executed
When the case does not match, the last case is Case Else which executes the default statement.
Example Program: Calculator
Private Sub Command1_Click() Dim physics_mark As Integer, maths_mark As Integer Dim english_mark As Integer, average As Integer Dim result As String physics_mark = Val(Text3.Text) maths_mark = Val(Text2.Text) english_mark = Val(Text1.Text) average = (physics_mark + maths_mark + english_mark) / 3 Select Case average Case Is <= 50: Text4.Text = "You Passed" Case Is <= 70: Text4.Text = "Good Marks" Case Is <= 90: Text4.Text = "Top Student" Case Is < 100: Text4.Text = "Exceptional" Case Else Text4.Text = "Sorry! You Failed" End Select End Sub
In the above program, students enter marks for 3 subjects –
English, Mathematics, and Physics. The average of the marks is computed and using
Select-Case the appropriate result is displayed.
Output – Select-Case
Visual Basic 6 For Dummies 1st Edition
Create your own custom Visual Basic programs fast for Windows 95, Windows 98, and Windows NT!
If you want to develop business applications for Windows, then Microsoft’s Visual Basic 6 programming environment is for you. With its powerful and friendly object-oriented interface, Visual Basic 6 is the ideal tool for creating easy-to-use and attractive interfaces of your own. Whether you want to build original programs from the ground up or take advantage of existing wizards, Visual Basic 6 For Dummies will help you design and debug your work – and accomplish all your goals!
- Covers using Visual Basic 6 with Windows 95, Windows 98, and Windows NT
- Walks you through the ins and outs of object-oriented programming in Visual Basic and using the Visual Basic toolset
- Shows you how to make use of menus and submenus, write subprograms that everyone can share, save and retrieve information in databases, integrate ActiveX controls into your applications, and build attractive user interfaces with buttons, boxes, and scroll bars
From the fundamentals of writing BASIC code to the thrill of distributing your very own custom applications, Visual Basic 6 For Dummies brings a fresh perspective to programming in Visual Basic 6 that everyone can understand.