Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

QTP

Download as pdf or txt
Download as pdf or txt
You are on page 1of 88

QTP Environment Variables

by seetaram on October 17, 2011 A test automation suite might be containing lot of tests / actions. Hence, while executing the test cases in batch mode we might need to refer to the Iteration, name of the test, Results directory, etc. But how to get them? QTP provides global variables called Built-in Environment Variables through which we can access these data. There is one more type of environment variable that is User-defined Environment Variable. Below are the different Built-in Environment Variables available: 1. ActionIteration 2. ActionName 3. LocalHostName 4. OS 5. OSVersion 6. ProductDir 7. ProductName 8. ProductVer 9. ResultDir 10. SystemTempDir 11. TestDir 12. UserName 13. TestName 14. TestIteration 15. UpdatingActiveScreen 16. UpdatingCheckPoints 17. UpdatingTODescriptions 18. ScenarioId 19. VUserId 20. ControllerHostName 21. GroupName I do not think that explanation is needed for these variables as they are self explanatory. Let us execute the below script and see the result.
spc=20 EnvVal="Env Variable"&space(spc+spc)&"Value"&vbnewline EnvVal=EnvVal&"____________________________________________________________ __"&vbnewline EnvVal=EnvVal&"ActionIteration"&space(spc+spc)&Environment.Value("ActionIte ration")&vbnewline EnvVal=EnvVal&"ActionName"&space(spc+spc+2)&Environment.Value("ActionName") &vbnewline EnvVal=EnvVal&"LocalHostName"&space(spc+spc4)&Environment.Value("LocalHostName")&vbnewline EnvVal=EnvVal&"OS"&space(spc+15)&Environment.Value("OS")&vbnewline

EnvVal=EnvVal&"OSVersion"&space(spc+24)&Environment.Value("OSVersion")&vbne wline EnvVal=EnvVal&"ProductDir"&space(spc+4)&Environment.Value("ProductDir")&vbn ewline EnvVal=EnvVal&"ProductName"&space(spc+13)&Environment.Value("ProductName")& vbnewline EnvVal=EnvVal&"ProductVer"&space(spc+28)&Environment.Value("ProductVer")&vb newline EnvVal=EnvVal&"ResultDir"&space(spc+5)&Environment.Value("ResultDir")&vbnew line EnvVal=EnvVal&"SystemTempDir"&space(spc+8)&Environment.Value("SystemTempDir ")&vbnewline EnvVal=EnvVal&"TestDir"&space(spc+7)&Environment.Value("TestDir")&vbnewline EnvVal=EnvVal&"UserName"&space(spc+15)&Environment.Value("UserName")&vbnewl ine EnvVal=EnvVal&"TestName"&space(spc+15)&Environment.Value("TestName")&vbnewl ine EnvVal=EnvVal&"TestIteration"&space(spc+25)&Environment.Value("TestIteratio n")&vbnewline 'EnvVal=EnvVal&"UpdatingActiveScreen"&space(spc)&Environment.Value("Updatin gActiveScreen")&vbnewline 'EnvVal=EnvVal&"UpdatingCheckPoints"&space(spc)&Environment.Value("Updating CheckPoints")&vbnewline 'EnvVal=EnvVal&"UpdatingTODescriptions"&space(spc)&Environment.Value("Updat ingTODescriptions")&vbnewline 'EnvVal=EnvVal&"ScenarioId"&space(spc)&Environment.Value("ScenarioId")&vbne wline 'EnvVal=EnvVal&"VUserId"&space(spc)&Environment.Value("VUserId")&vbnewline 'EnvVal=EnvVal&"ControllerHostName"&space(spc)&Environment.Value("Controlle rHostName")&vbnewline 'EnvVal=EnvVal&"GroupName"&space(spc)&Environment.Value("GroupName")&vbnewl ine print EnvVal

In the code above, I have commented out some of the variables because they contain blank or no values. User-defined Environment Variable:

These act more or less like global variables in other programming / scripting languages. Some of the examples of these are as below: 1. Maximum wait period 2. Framework root folder 3. Application username / password How to set User-defined Environment Variable? Click File > Settings > Environment Tab Select User-defined from the Variable type dropdown

As per the above figures, we have created two variables username and password. To refer these variables in the test action, we need to use Environment.Value("variable name")

There is one more way of adding user-defined environment variables dynamically that is using xml file. Create a xml file containing variables, then load the variables by uploading the external xml file. To do this, check the checkbox Load the variables and value from external file and then upload the corresponding file.
<Environment> <Variable> <Name>username</Name> <Value>admin</Value> </Variable> <Variable> <Name>password</Name> <Value>mercury</Value> </Variable> <Variable> <Name>MaxWait</Name> <Value>120</Value> </Variable> </Environment>

Save this file as ScriptsSettings.xml and then upload the file. Then, click Apply and OK.

Now, we can see the variables inserted into the table. This is an excellent feature provided by the QuickTest Professional, which needs to be utilized whenever necessary.

Tagged as: Environment Variables, QTP Fundamentals

-1Building Your First Application


Writing Your First Application Starting Visual Basic Building the Calendar Feature Adding a Clock Feature Configuring the Timer Control Using the Label Control to Display the Time Adding a Message Improving Your First Application

Who is the end user? An end user is the person for whom the program was made--the person who uses the program.

Writing Your First Application The best way to learn programming is to do programming. Therefore, let's create a program. Your first program will be a Visual Basic Calendar, which allows the end user to

View a calendar of the present month Browse months View a clock that presents the current time Read a secret message

If you think that this is too much functionality to implement for a beginner's program, don't worry; it's not. Visual Basic does most of the work for you. Unlike other languages, such as C++, where you have to program every little thing, Visual Basic brings a high degree of automatic programming to your fingertips. Thus, you can do a lot with not a lot of code. However, don't misinterpret "not a lot of code" to mean "not a lot of power." Visual Basic is a very powerful language. You can write Visual Basic code that does "every little thing" if you want or need it to. You also can exploit the labor-saving nature of VB to implement a program quickly. The choice is yours. Visual Basic is versatile enough to be useful to a broad range of programmers--from beginner to seasoned professional.

Starting Visual Basic The first thing you need to do is open a Visual Basic program. From the Windows Start menu, choose Programs, Microsoft Visual Studio 6.0, and then Microsoft Visual Basic 6.0. When you start VB, you're taken to the Visual Basic Integrated Development Environment (IDE). This is your programming workbench, the place where you create your programs. Notice that the IDE presents what looks like an empty window containing some dots and a title bar with the word Form1. This window is a form, the primary building block of a Visual Basic application. An application can have many forms or one form; the application we're developing for this example has one form. ActiveX controls Another name for the little programs that come with Visual Basic is ActiveX controls. The calendar program that you add to your application is an ActiveX control.

Building the Calendar Feature Now let's build the features of your application. First, you need a calendar. You could build one from scratch, or you could add the calendar program that comes within VB to your application. Let's use the one that comes with VB (if you don't have a few years to learn VB at the expert level, it makes the most sense). Get the calendar program into the Visual Basic IDE 1. From the Project menu, choose Components All the ActiveX Controls that come with VB aren't automatically loaded by default. You have to select some from the Components menu. 2. In the Components dialog, select Windows Common Controls 2-6.0 and click OK Visual Basic comes with many ActiveX components that you can use in your projects. Some need to be added to the IDE. What is ActiveX? ActiveX is a brand name from Microsoft that lets you create little programs, formally known as components andcontrols, that you can add to larger programs. These larger programs that you can add ActiveX components and controls to can be standalone programs or programs that run on the Internet. You can use Visual Basic to make your own ActiveX components and controls.

These steps added the calendar control to the Visual Basic ToolBox. The formal name for the control that you've inserted into your first application is the MonthView ActiveX control. We'll use this terminology from here on. Now you need to add the control to the form. Add the MonthView control to your form 1. Select the MonthView control icon from the Visual Basic ToolBox 2. Double-click the MonthView control icon to add the control to the main form You've just created your first program. Press F5 or choose Start from the Run menu to run it . Click the End button or chooseEnd from the Run menu to terminate the program. Adding a Clock Feature The next feature to implement into your practice program is the capability to display the time. You'll use the Timer ActiveX control, which is intrinsic, meaning that it's standard to Visual Basic (built right into the core code). You never have to add it to the ToolBox; the Timer is always there Look at Table 1.1 to see the ToolBox icons and their associated ActiveX control. TABLE 1.1 The Visual Basic Controls ActiveX Control Not a control; enables the mouse pointer Label TextBox CommandButton Timer PictureBox Frame CheckBox OptionButton ComboBox ListBox Vertical scrollbar Horizontal scrollbar DriveListBox DirListBox FileListBox

Shape Line Data OLE Animation UpDown MonthView DateTimePicker FlatScrollBar The latest additions to your IDE Animation, UpDown, MonthView, DateTimePicker, and FlatScrollBar are all Windows common controls. When you selected Windows Common Controls 2-6.0 in the earlier steps, you put all these controls into your ToolBox.

Add the timer to your application 1. Make sure that the Pointer icon in the ToolBox is selected. 2. Put the mouse pointer on the MonthView control on the form, press your left mouse button down, and drag the control over to the right 3. Double-click the Timer control in the ToolBox to add it to the form You can move an ActiveX control around a form at design time by dragging it. Controls appear in the middle of a form when you add them by using the double-click technique. What's a windowless control? If the Timer appears over the MonthView ActiveX control, don't fret; the Timer is a windowless control. A windowless control appears during design time but is invisible when you run your code. Don't mistake controls that can be made invisible at runtime as windowless controls; they aren't. You never see a windowless control at runtime.

Configuring the Timer Control Although you've added the Timer to the form, it won't really do anything until you configure it to report time the way you want it to. Configure the Timer to report the time

1. Select the Timer control on the form. (Make sure that the Pointer is selected in the ToolBox.) 2. In the Properties window, select the Interval property and enter the number 500. The Properties window is where you configure the settings for a selected ActiveX control. Measuring a second with the Timer You set the increment of time measured by the Timer by using the Interval property. The Timer measures time in intervals of 1/1000 of a second. Therefore, to measure time in halfsecond intervals, set the value of the Interval property to 500.

Setting the value of the Timer's Interval property to 500 is operationally the same as configuring the Timer to do something every half a second. Now you have to program what you want the Timer to do every half second: to report the current time. You need a place in which to display the time. For this, use a Label control. Using the Label Control to Display the Time Add a Label control to the form 1. Select the Label control icon in the ToolBox. 2. Rather than double-click, draw a box on Form1 by dragging the mouse . You also can add a control to a form by selecting the control in the ToolBox and dragging to size. 3. In the Properties window, scroll to the BorderStyle property. Click the property and then select 1-Fixed Single from the drop-down list. Some properties, such as the Label control's BorderStyle property, have values that you can set from drop-down menus. What's an event procedure? An event procedure is a piece of code that you write to execute a programming event. For example, when a user clicks a CommandButton, a Click() event is generated. Visual Basic provides a CommandButton_Click() event procedure that you can program to react to the CommandButton click. The same is true with the Timer. When a Timer's interval is reached, a Timer() event is fired. You can think of the code that you write in the Timer() event as "do this when the Timer's interval has been reached." Some controls have many events; some have only a few. It depends on the control. You can learn more about event procedures in Chapter 6, "Working with Properties, Methods, and Events."

Code the instructions that display the time in the Label control 1. Double-click the Timer control on the form. The Code window appears. 2. Add the following line of code to the Timer1_Timer() event procedure in the blank space between the line Private Sub Timer1_Timer() and End Sub : Label1.Caption = Time 3. Run the code by pressing F5. Adding a Message For this program, a message appears when you click the CommandButton on the form. To implement this feature, first you must add a CommandButton to the form. Add a CommandButton 1. Select the CommandButton control in the ToolBox. 2. Add a CommandButton to the form by dragging your mouse cursor across the form. The Timer event procedure is fired every time its Interval is reached. If you set the value of the Interval property to 500, the Timer event is fired every half second. The Timer assigns the present time to the Caption property of the Label control in its Timer() event procedure. Add a control by dragging if you want to custom-size it at a specific location. A control's Name property All controls have a unique name. By default, VB assigns the value of the Name property to be the control's type name plus a number. For example, the default value of the CommandButton's Name property is Command1. If the value Command1 is already in use, VB names the new CommandButton Command2 (and so on). You can change the default value of a control's Name property only at design time. Also, the Name property of the control isn't something that end users see when the program is running. 3. Use the drag technique in Step 2 to add a TextBox above the CommandButton. 4. Double-click the CommandButton to expose the Click() event procedure. 5. Add the code in Listing 1.1 to the Command1_Click() event procedure . LISTING 1.1 01LIST01.TXT--The Code that displays a secret message in the TextBox 01 Dim strMsg As String 02 strMsg = WeekdayName(Weekday(Date), _ False, vbUseSystemDayOfWeek) 03 strMsg = strMsg & " is the first day of the rest"

04 strMsg = strMsg & " of your life!" 05 Text1.Text = strMsg 6. In the Properties window, set the Caption property for the Command1 CommandButton to Click for a Secret. Notice that the code for the Command1_Click() event procedure doesn't have line numbers, which are used in this book for reference purposes. You shouldn't use them in code.

When you change the value of the CommandButton's Caption property, you change the text that the CommandButton displays within itself. Saving projects When you save a project, you should create a directory to hold all the parts of the project-project file (.prj) and forms (.frm and .frx). FRX files contain information about embedded graphics in a form. 7. Save the code by selecting Save Project from the File menu. 8. Run the code by pressing the F5 key . The code in Listing 1.1 shows you how to work with variables. You can think of a variable as a storage container for unknown information that's to be provided at a later time or at another place in code. Line 1 of Listing 1.1 shows you how to declare a variable by using the Dim keyword as shown in Line 1. Line 1 creates the variable strMsg. When you create a variable, it doesn't contain any data. To give the variable some value, you must assign some data to it. Lines 2 through 4 of Listing 1.1 assign value to the strMsg variable by continually adding new data to existing data. Finally in Line 5, the information stored in the variable strMsg is assigned to be the value for the Text property of the Text1 TextBox. For more information on variables, what they are, and how to use them, see Chapter 7, "Using Data Types, Constants, and Variables." Improving Your First Application As you review the work that you've done so far, notice that some things need improvement. Make the clock more readable 1. Press Shift+F7 to view the Object window. 2. Select the Label control in the main form. 3. In the Property window, scroll down to the Font property. 4. Click the ... button to the right of the Font property. 5. Select the Bold Font Style from the Font dialog.

Improve the TextBox 1. Select the TextBox. 2. Scroll down the Properties window to the MultiLine property. Set it to True. 3. Keep scrolling down the TextBox properties to the ScrollBars property. Set it to 2-Vertical. 4. Scroll to the Text property and delete the text Text1 from the drop-down list (highlight it and press Delete). 5. Increase the vertical size of the TextBox a small amount to accommodate the capability to display multiple lines of text. Restrict resizing and assign a title to the form 1. Click the form. Be careful not to click any ActiveX control on the form; otherwise, you'll get the properties for the control rather than the form in the Properties window. 2. Select the BorderStyle property and set it to 3-Fixed Dialog. 3. In the Properties window, set the form's Caption property to First App. 4. Save your work by choosing Save Project from the File menu. Then run the code by pressing F5. Congratulations! You've made a very powerful program in Visual Basic by using the tools and building blocks that the language provides. Granted, a lot is going on behind the scenes that we might have covered in more detail, but you'll get more in-depth coverage in the following chapters. For more information about the intrinsic controls that come with VB, read Chapter 4, "Using the Intrinsic Controls." To learn how to get around the VB IDE, read Chapter 3, "Working in the Visual Basic 6 Programming Environment." To get a clear understanding of properties, methods, and events, and how they relate to Visual Basic programming, read Chapter 6, "Working with Properties, Methods, and Events." Finally to get an in-depth view of the Timer control, read Chapter 16, "Working with Time and Timers."

What's New with Visual Basic 6

Getting a Quick Overview of VB6 If you're new to Visual Basic, the title of this chapter might be a little confusing. Clearly if you are a novice to the language, everything about VB is new. Even so, you shouldn't avoid this chapter. There's something in it for you, particularly in the sections focusing on the new ActiveX controls. For those of you who have done some work in other versions of Visual Basic, you'll find this chapter very relevant. What's Omitted

Keep in mind that some new features in VB6 have been omitted from this discussion. These features require more than an introductory knowledge to fully understand them. Many of these features that weren't discussed, however, are covered in later chapters, whereas others are described in the documentation that comes with the product.

Saying that Visual Basic 6 has some interesting new features is nothing short of an understatement. Visual Basic 6 has so many amazing new features that overstatement is next to impossible because so much is new in so many areas. New controls allow your applications to incorporate the look, feel, and function of Office 97 applications and Internet Explorer. No more do you have to have at least one instance of a control on your form to create controls on-the-fly. With VB6, you add controls to your project dynamically with only code, and you can make custom ActiveX controls leaner and meaner than ever. You can even write server-side applications that use Dynamic HTML embedded with Internet Information Server DLLs. This chapter gives some new features a bit more attention than others. Some new improvements involve working with larger-scale data access programs that might involve hundreds--if not thousands--of users on a corporate network or on the Internet. These types of Visual Basic applications, known as enterprise applications, are usually written with the Enterprise Edition of VB. These new enterprise features are referenced here but fall outside the scope of this book. Working with the Windows common controls Most controls discussed in this chapter are not intrinsic (standard) ActiveX controls. Therefore, they must be added to your project from the Components dialog (choose Components from the Project menu). When you open the Components dialog, select Microsoft Windows Common Controls, Microsoft Windows Common Controls-2, and Microsoft Windows Common Controls-3 from the list.

Getting More Power from Enhanced Controls Before we look at the completely new additions to VB6, let's look at some enhancements to the features from the previous version. The Validate Event and the CausesValidation Property The first enhancement that affects just about all intrinsic ActiveX controls is the addition of the Validate event and the CausesValidation property. Before VB6, if you had to check to see if a word was typed properly in a TextBox, you most likely would program the TextBox's LostFocus event handler to see if, indeed, the user entered correct data. If they hadn't, you could invoke the control's SetFocus method in which validation was occurring to keep the user from proceeding. Sometimes the logic of this programming could cause your users problems. If they never entered the right data, they would be locked into that one control--

they couldn't even click a Help button. The new Validate event procedure and the CausesValidation property address this issue. Listing 2.1 shows how to use the Validate event procedure to check a TextBox's data. If users don't type the word Cherries in the first TextBox, they can't proceed to the second TextBox. However, because the value CausesValidation property of the CommandButton is set to False, users can click it to help determine the right word to enter. Using the CausesValidation property Notice the Cancel parameter on Line 1. Visual Basic provides this parameter within the control's Validate event procedure. If you set the value of Cancel to True (Line 7), the program's focus won't be allowed to leave the control except to go to other controls that have their CausesValidation property set to False.

LISTING 2.1 02LIST01.TXT--Allowing Some Controls During Data Validation 01 Private Sub Text1_Validate(Cancel As Boolean) 02 `Make it so that if the user does not 03 `enter the word, "Cherries" in the TextBox 04 `the cursor will be returned this TextBox 05 If Text1.Text <> "Cherries" Then 06 MsgBox "You cannot go on!" 07 Cancel = True 08 End If 09 End Sub 10 Private Sub Command1_Click() 11 Dim strMsg As String 12 Dim strQuote As String 13 strQuote = """" 14 `Make an instructional message 15 strMsg = "You must type the word," & strQuote 16 strMsg = strMsg & "Cherries" & strQuote & " " 17 strMsg = strMsg & "in the first TextBox." 18 MsgBox strMsg, vbInformation, "Instructions" 19 `The reason that you can click on this 20 `CommandButton even though the Cancel parameter 21 `of the Validate event handler is set to True 22 `is because the value of CauseValidation 23 `property of this CommandButton is set to false. 24 End Sub Commenting code

Event

Handling

Activity

The apostrophe (`) before a line of code denotes a commented line. That line of code isn't run by Visual Basic.

The Validate event procedure allows you to check for correct data while still allowing you to access other controls during the validation process. Adding Excitement with the New Graphical Enhancements Visual Basic, as always, allows you to use graphics to make your programs come alive, and Microsoft has enhanced the graphical capabilities of many controls. First, the ImageList control now supports .gif files. This enhancement is substantial because just about every control that uses graphics has an ImageList control associated with it. The ListView and TabStrip controls have been enhanced to allow you to use pictures and icons for decoration and description.. The background picture can be centered, tiled, or placed at any corner. You can add check boxes to ListItems child objects within the control by setting the ListView's CheckBoxes property to True. Also, you can make the scrollbars of the ListView appear in the new flat style by setting the FlatScrollBars property to True.

You now can have a background graphic in the ListView control client area. The new TabStrip control, which now allows you to place graphics in each tab. The control also has a new property, HotTracking, that you can assign at design time. If you set the value of HotTracking to True, the tab highlights when you pass the mouse pointer over it. As mentioned earlier, as with all the new controls, the TabStrip control has a Validate event procedure. The TabStrip control has been enhanced to allow for icons on each tab. The Slider control has a new property, Text. When you set a string to the value of the Text property, that string appears within a ToolTip window. The position of the ToolTip window is determined by the Slider control's new TextPosition property . The Slider control now has a Text property that shows you a ToolTip window. Many enhancements have been made to the ToolBar control. You can now add drop-down menus to the toolbar by using a ButtonMenu. The Style property supports a transparent setting (tbrTransparent) that allows you to have the buttons on your toolbar appear and behave like the buttons on the Internet Explorer toolbar. The ToolBar control is enhanced to provide ButtonsMenus and hotspots. The control's property page allows you to configure a ToolBar at a very detailed level. Working with the New Controls Visual Basic 6 ships with many new ActiveX controls. Some of these controls apply to standalone desktop programs; others pertain to enterprise-wide data access development projects. In the following sections, you'll see the new controls that relate to your desktop development efforts.

Selecting Dates with the MonthView and DateTimePicker Controls VB6 has two controls that provide you with a new way to view and select dates: MonthView and DateTimePicker. What's interesting about these controls is that they let you view and select dates within the context of a calendar. The MonthView control presents a full calendar that you can traverse from day to day or month to month. The DateTimePicker control is similar to the MonthView except that its calendar drops down when the user clicks the control's down arrow. All the new Windows common controls are embedded in the OCXs MSCOMCTRL.OCX, MSCOMCT2.OCX, and COMCT332.OCX. Making Movable Toolbars with the CoolBar The new CoolBar control is similar to the Coolbars you've been using in Office 97 and Internet Explorer. A CoolBar is a toolbar that you can move on a form, and the CoolBar control is a container for other ActiveX controls. Thus, you can offer your users more flexibility and utility by embedding other controls within the CoolBar. At runtime you can move the Bands around the Coolbar's client area any way you want. CoolBar bands A band is a bar within a CoolBar. A CoolBar can have many bands that can be moved about in the CoolBar client area.

Using Graphics with an ImageCombo Working with ImageLists An ImageList is a "windowless" control that you use to store different types of graphics: bitmaps, gifs, icons, and so on. You associate an ImageList with a control by assigning the ImageList in question to a control's ImageList property. For example, to assign an ImageList named ImageList1 to an ImageCombo, the code is ImageList1.ImageList = ImageList1.

The ImageCombo control, new with Visual Basic 6, allows you to embed graphics within a ComboBox. To accomplish this, Visual Basic introduces a new object, the ComboItem, which encapsulates all layout and data properties that are needed to work with an ImageCombo. A ComboItem has a Text property for string display of a line within the ImageCombo and an Image property that can define the graphic to show on a line within the ImageCombo. As with most of the new graphical ActiveX controls, the ImageCombo has an ImageList from which it references images and pictures. Use the code in Listing 2.2 to add a ComboItem that has a graphic to an ImageCombo. This code is from the cmdAddCbo_Click() event procedure of the CommandButton cmdAddCbo,

which is part of the code from the project WhatsNew.vbp. You can download the code from the Web side dedicated to this book. LISTING 2.2 02LIST02.TXT--Creating ComboItems ImageCombo 01 Static i% `A counting integer 02 Static imgi% `A index for a graphic 03 `within an ImageList 04 Dim ci As ComboItem `Object variable for a 05 `ComboItem 06 07 `Get a reference to ComboItem object using 08 `a ComboItems Add method. 09 Set ci = ImageCombo1.ComboItems.Add 10 `Assign some data a line of text 11 `ci.Text = "My Caption " & CStr(i%) 12 `Add a graphic by referencing an index in the 13 `associated ImageList 14 ci.Image = imgi% + 1 15 `Make sure that you haven't exceeded the number 16 `of images in the ImageList 17 If imgi% = ImageList1.ListImages.Count - 1 Then 18 imgi% = 0 19 Else 20 imgi% = imgi% + 1 21 End If 22 `Increment the string counter 23 i% = i% + 1 Code for the ComboItem If you're beginning programmer, the code shown in Listing 2.2 is probably a little beyond your needs right now. This code is provided to show those with some VB background how to work with the newer features of the ComboItem object. and Adding Them to an

Figure 2.6 shows you the result of clicking the cmdAddCbo button. Notice that the ImageCombo contains a graphic and a string. The FlatScrollBar Control Visual Basic 6 provides a new variation of the familiar scrollbar control: the FlatScrollBar. The FlatScrollBar is fundamentally the same as the ScrollBar, except that the FlatScrollBar has three Appearance styles: a standard style, a three-dimensional (beveled) style, and a twodimensional style that becomes beveled when the mouse pointer hovers over it.

Working with the New Language Features In addition to enhanced and new ActiveX controls, VB6 also provides new features within the Visual Basic language itself. Again, if you have no previous experience with Visual Basic, the following sections might seem a bit baffling. You still might want to read through it anyway, however; these new features will make your programming efforts easier regardless of degree of prior experience. File System Objects In older versions of Visual Basic, if you wanted to get file system information or perform file system tasks, such as writing to a file or changing a directory, you had a number of techniques available, most of which were quite laborious. In Visual Basic 6, all these chores have been contained with a new object, FileSystemObject, which is part of the Visual Basic Scripting Library. Thus, when you learn to use this object within VB6, you can easily transfer your knowledge to scripting within Internet Explorer or Internet Information Server to do system-level programming. Internet Information Server Internet Information Server (IIS) is a complex program, the function of which is to deliver information and files over the Internet. An Internet server is a physical computer, and IIS is software that runs on an Internet server. As you read in this book, you'll learn that you can use Visual Basic to write programs that are extensions of IIS, called IIS Applications. An application that runs on an Internet server is called a server-side application.

The FileSystemObject is quite complex. It's made of a number of objects and methods that encapsulate the file system functions, which you use to work with drives and files on a local machine or over the network. Table 2.1 describes the new FileSystemObject objects. Microsoft Scripting RunTime component If you plan to program with the FileSystemObject, make sure that you include a reference in your project to the Microsoft Scripting RunTime ActiveX component. You include a reference to the MS Scripting RunTime through the References dialog (choose References from the Project menu). Then select the Microsoft Scripting RunTime in the References list.

TABLE 2.1 FileSystemObject Objects Object Description Drive File Provides properties and methods for describing and working with local and network drives Provides properties and methods for working with files

Folder

Provides properties and methods for working with folders

FileSystemObject Provides properties and methods for defining and working with collections of drives, folders, and files TextStream Provides properties and methods that allow you work with text files

If you want an introduction to the FileSystemObject, the project prjFileSystem.vbp is a small program that shows you how to use the various FileSystemObject features to find out how many drives are on your computer. Also, when you select a found drive, the program reports back the amount of unused disk space on a drive. You can find the project prjFileSystem.vbp on the Web site dedicated to this book. The project prjFileSystem gives you an introduction about how to use the FileSystemObject. New String Functions Visual Basic 6 provides a number of new functions for working with strings (see Table 2.2). TABLE 2.2 The New String Functions Function Name (Return Type) Filter (string array) FormatCurrency (string) FormatDateTime (string) FormatPercent (string) InStrRev (string) Join (string) Description Allows you to filter a string for various substrings Allows you to format a string to currency Allows you to format a string to a time or date Allows you to format a string as a percent Returns the position of one string within another string; unlike InStr, InStrRev starts at the end of the string being searched Takes a string array and combines its elements into one string

MonthName (string) Returns the name of a month when you have the number of the month (for example, 1 returns January) Replace (string) Round (string) Split (string array) StrReverse (string) WeekdayByName (string) Replaces substrings within a string Returns a rounded number as specified Splits a string into an array of strings Reverses the order of a string--for example, "cat" becomes "tac" Returns the day of the week

As you can see in Table 2.2, some new string functions return string arrays. The capability of a function to return an array is also a new feature in VB6.

Each new function listed in Table 2.2 could warrant a section of a chapter dedicated solely to it. Clearly, such description is beyond the scope of this chapter, but if you need more details for how to use a specific string function, read the documentation that comes with your edition of VB6 or Chapter 12, "Working with Strings and Typecasting." True Dynamic Control Creation On-the-fly versus runtime The phrase on-the-fly is used when you are creating something while a program is running. Another term for the state when a program is running is runtime.

For those of you familiar with VB, you might know that in prior versions of VB you created controls on-the-fly by usingcontrol arrays. One drawback to creating controls with a control array was that at least one control had to be present on a form for you to create others dynamically. This is no longer true in VB6; you can create a control at runtime purely from code by using the Add method of the Controls collection. Listing 2.3 shows you the code that you must use to create a CommandButton purely from code, without having to drag a CommandButton from the ToolBox first. LISTING 2.3 02LIST03.TXT--The New Add Method for the Controls Collection 01 Option Explicit 02 `WithEvents is a way tell the program to 03 `respect all the events that are associated 04 `a CommandButton such as the click event. 05 Private WithEvents cmdMyButton As CommandButton 06 07 Private Sub Form_Load() 08 Set cmdButton = Controls.Add("VB.CommandButton", _ "Button") 09 With mdButton 10 .Visible = True 11 .Width = 3000 12 .Caption = "A real surprise" 12 .Top = 1000 14 .Left = 1000 15 End With 16 End Sub 17 18 Sub cmdButton _Click() 19 cmdButton.Caption = "At last, real OOP! 20 End Sub If you want to see this code in action, go to the project prjDynCtrl.vbp on the Web site dedicated to this book. Learning About VB and the Internet

Working with DHTML Dynamic Hypertext Markup Language is an extension of HTML (Hypertext Markup Language), the language of the Internet. All Web browsers, regardless of manufacturer, use HMTL to decode information passed through the Internet that's presented to end users. DHTML takes HTML one step further by permitting a greater degree of programmability to take place. Thus, with DHTML you can send code via the Internet that allows end users to move things around the computer monitor with a mouse, to hide things, or even to delete items.

Visual Basic has been positioned very nicely for Internet development. You can use VBScript to write applications that run on your desktop computer with Internet Explorer. Also, you can use VBScript on the server side to work with Internet Explorer. Visual Basic 6 has sharpened the focus on Internet development; it extends your ability to write serversideapplications for Microsoft's Internet Information Server by introducing a project type named IIS Applications. Also, Visual Basic extends and simplifies DHTML (Dynamic Hypertext Markup Language, the language used by all Web browsers) by introducing a project type named DHTML Applications. For more about programming with VB, VBScript, and DHTML, read Chapter 28, "Creating VB Programs for the Internet." An IIS application is a Visual Basic program that resides server side as an extension of Internet Application Server. An IIS application is called by a client computer via the Internet. Although the Visual Basic IIS Application sends data back to the calling client through HTML, the actual calculation on the server-side computer is done by using compiled Visual Basic code. This enhancement is significant; before this, IIS Applications were written in C++ or, if you wanted to program IIS, you had to do it with VBScript under Active Server Pages (ASP). VB's integrated development environment IDE stands for integrated development environment. The Visual Basic IDE is your programming workbench, where you write and debug code as well as manage your applications. You'll learn more about the Visual Basic IDE in Chapter 3, "Working in the Visual Basic 6 Programming Environment."

A DHTML application is a project that presents a Visual Basic Designer, a tool that automates the writing of VB code. The DHTML Application Designer allows you to write DHTML code within the Visual Basic IDE. You can find the actual DHTML on the IIS Web server in the form of an ActiveX DLL. This is significant because DHTML is somewhat different than VB code. Thus, you're leveraging the inner workings of IIS and VB to actually translate VB into DHTML at runtime. One problem with programming for the Internet is that the programming dynamic is stateless by nature. Interaction is analogous to a telephone call. Every time you contact a server on the Internet, it's as though you're making a telephone call to a stranger who has no prior

knowledge of the information passed in any previous call. Therefore, working with a body of data that must be transmitted from session to session is difficult. Visual Basic uses a new feature within Internet Explorer, the Global Property Bag, to allow you to share information from session to session. Microsoft has extended the Setup Wizard into a set of new tools to make publishing your application to and deploying it from a Web server easier. These tools--the Web Publishing Wizard and the Package and Deployment Wizard--come as part of your purchase when you buy your edition of Visual Basic 6. You'll take a close look at the Web Publishing Wizard and the Package and Deployment Wizard in Chapter 20, "Deploying Your Visual Basic Applications." Finding Out About the New Data Capabilities Visual Basic 6 supports ActiveX Data Objects (ADO). In prior versions of VB, data access was handled under the umbrella of Data Access Objects (DAO) and Remote Data Objects (RDO). ADO has combined and superseded these technologies. ADO is easier to use and has a broader scope of implementation. You can use ADO to connect to a database on a local desktop or to a remote database server. Also, ADO allows you to access more types of data-e-mail, for example. The current ADO technology is contained within the new ADO Data control. The ADO Data control might look the same as the familiar Data control of prior versions, but when you look at the Property Page of the control , you see a significant difference. The ADO control allows you to connect to a desktop database file or an ODBC server on a network, or you can create a new connection to another database. The ADO data control combines the functionality of DAO and RDO, as well as allows you to access non-traditional data types such as e-mail or files within the file system. In addition to ADO, Visual Basic 6 also comes with a new set of tools and technologies that make data access easier. The Data Environment Designer allows you to view and manipulate data in various databases. Because data environments are objects in their own right, you can use them as you would a Data control. You can even bind other controls, such as a TextBox or Label, to a Data control. Some new data controls allow you take advantage of the enhancements built into the ADO Data control. The DataGrid allows you to view your data in a row and column format. The DataList and DataCombo are similar to the DBList and DBCombo in earlier editions of VB; you can use them to get a pick list of data from an ADO control in a ListBox or ComboBox configuration. You also can use the more advanced FlexGrid and hierarchical FlexGrid controls to get a clear, visual view of complex data. Visual Basic also provides a new Data Setup Wizard to make deploying your larger-scale database applications easier. Visual Basic 6 enhances its reporting capabilities with the Data Report Designer , which lets you create, preview, and print reports in Visual Basic as you would in Access. (If you've worked in Access 97, you'll find the Data Report Designer familiar.) You set report controls from the new Data Reports Toolbox (VB also has some new IDE features) onto the Data Report form. Then you invoke the Data Report's PrintReport() method. Granted, as you go along, you'll find things to be more complex. You can get more details on Data Environments

and Data Reports in the chapters in Part V of this book, "Database Programming with Visual Basic 6." The Data Report Designer brings the ease of Access 97 reporting to Visual Basic. New Object Programming Additions Visual Basic 6 has made creating classes and ActiveX controls a much broader activity. You can now save your custom-made class's data from session to session in a Property Bag. You can also create two new types of data-aware custom classes, Data Sources and Data Consumers. These types of data classes behave very much as the ADO Data objects, except they allow you to have more flexibility to suit your custom needs. With regard to custom ActiveX controls, you now can make lightweight ActiveX controls in VB6. These types of controls are "windowless" and thus require fewer system resources than full-fledged ActiveX controls. To determine if an ActiveX control is indeed windowless, Visual Basic provides a new property, HasDC. Using add-ins An add-in is a Visual Basic tool that VB programmers make for other VB programmers. An add-in is written in VB and can run only within the Visual Basic IDE. The Application Wizard is an add-in, as is the Data Forms Wizard.

Probably the most helpful additions to Visual Basic 6 are all the new wizards that come bundled with it. Table 2.3 briefly describes each new wizard and add-in. TABLE 2.3 Visual Basic 6 Wizards and Add-Ins Wizard/Add-In Description All Editions Package Deployment Wizard Application Wizard and Helps you prepare and deploy your application for desktop or network use. Helps you set up a framework for your application. It automatically adds menus, toolbars, resource files, intrinsic ActiveX controls, and data controls. Helps you organize the various wizards that you can access within your IDE.

Wizard Manager Professional and Enterprise Editions Data Object Wizard Class Builder Utility

Helps you create data objects bound to data controls and custom ActiveX controls. Helps you visually build custom classes.

ToolBar Wizard Data Form Wizard Add-In Designer Property Wizard T-SQL Debugger API Viewer ActiveX Control Interface Wizard

Helps you visually create custom toolbars for your forms. Helps you create forms with controls that reference data in a database. Helps you create custom VB add-ins. Page Helps you create property dialogs for the ActiveX controls you make in VB. Helps you debug code that you write for Microsoft's SQL Server Database. Helps you work with declares (functions), constants, and types from the Windows API. Helps you make ActiveX controls.

3 Working in the Visual Basic 6 Programming Environment

Understanding the Parts of the IDE Defining IDE IDE is an acronym for Integrated Development Environment. The IDE is the workbench on which you make your programs in Visual Basic.

The Visual Basic IDE is a collection of menus, toolbars, and windows that make up your programming workbench . Each part of the IDE has features that affect different aspects of your programming activity. The menu bar lets you direct the overall activity and management of your programming. The toolbar enables you to access much of the menu bar's functionality through various toolbar buttons. Forms--the basic building blocks of Visual Basic programs-are presented in a Form window. You use the ToolBox to add controls to the forms of your project. The Project Explorer displays the projects on which you're working, as well as the different parts of each of those projects. You browse and set a control, form, and module's properties within the Properties window. Finally, you position and view a form or forms onscreen within the Form Layout window. The VB IDE is the programmer's workbench. Adding and Removing Toolbars in the Visual Basic IDE Toolbars are collections of small iconic buttons that reside in a bar underneath the menu bar. These buttons offer access to the most commonly used functions that you have in the Visual

Basic menu structure. Toolbars are useful because rather than have to negotiate menus and submenus to do what you want, you click a specific button in the toolbar to call a specific functionality in the Visual Basic IDE. ToolTips ToolTips are little windows that appear when you hold the mouse pointer over a control or toolbar button for a few seconds. Inside these windows is some text that tells you what the control or toolbar button is about.

Toolbars usually reside under the menu and can be grouped into a single bar. Also, you can drag a toolbar onto the IDE's Code and Form windows to have it "float" for more convenient access. Add or remove a toolbar to or from the IDE 1. Right-click anywhere on the menu bar, the View menu. The toolbar pop-up menu appears . or choose Toolbars from

You select a predefined toolbar type by right-clicking the VB toolbar. 2. Select the type of standard toolbar that you want from the pop-up menu. If a check is to the left of a toolbar type, that toolbar is already visible. Using the Debug Toolbar You use the Debug toolbar to test your program and resolve errors that might occur. When you debug a program, you do things such as run the code a line at a time, examine the values of variables, and stop the code at certain critical points or under certain conditions. For an indepth discussion of debugging, see Chapter 21, "Debugging Your Applications." Using the Edit Toolbar You use the Edit toolbar when you're working with code in a Code window. The features of the Edit toolbar are similar to those of the Edit menu. You can Cut and Paste text. You can manipulate the layout of your code and do text selection, searches, and replacement. Also, you can use automatic coding features such as Quick Info. An interesting VB IDE feature that the Edit toolbar uses is the Complete Word feature (also trademarked by Microsoft as Intelli-sense). This feature automatically completes a keyword for you. For example, if you were to type Ms into a code window and then invoke the Complete Word feature, Visual Basic would complete the word as MsgBox, an intrinsic Visual Basic function that displays a Windows message box. The Complete Word feature is very useful for avoiding syntax errors due to misspelling. For more information about the specifics of debugging, see Chapter 21. The Debug toolbar enables you to access the debugging functions of the Visual Basic IDE.

You can access the extended Edit menu and some Debug menu functions from the Edit toolbar. Using the Form Editor Toolbar You use the Form Editor toolbar to size, move, and align controls on a form. The Form Editor toolbar has the same set of features as the Format menu. You align and size multiple controls on a form with the Form Editor toolbar. Notice the small downward-facing arrowheads to the right of the Align, Center, and Make toolbar buttons. These arrowheads indicate that a drop-down menu will appear when you select that toolbar button. Working with forms and controls requires that sometimes you have to work with the ZOrder property of a control. ZOrder determines which control has the "right" to supersede the position of another control. Sometimes you might want one control to appear over another-an OptionButton over a PictureBox, for instance. You can accomplish this by dragging the OptionButton over the PictureBox. Alternatively, in code, you can set the value of the OptionButton's ZOrder property to 0. Then, no matter where you place the control at design time, the OptionButton will always be on top. When you place one control over another on a form, you're affecting each control's ZOrder property. The Z order determines the "top mostness" of a control. Controls with a ZOrder value of 0 are always on top; however, if two controls each have a ZOrder value of 0, they nullify each other. Using the Standard Toolbar The standard toolbar is the central toolbar in the Visual Basic IDE. The standard toolbar offers many features found in theFile, Project, Debug, and Run menus. The standard toolbar gives you fast access to often-used functionality and information. Adding Controls with the ToolBox Controls are the building blocks with which you assemble your Visual Basic program. The ToolBox is a palette of controls, and you build your user interface by selecting controls from the ToolBox and placing them on your forms. Some controls are built into Visual Basic and can't be removed from the ToolBox; these controls reside within Visual Basic itself. These controls are known as intrinsic controls. Others live outside Visual Basic and reside in files that end with the extension .ocx. These controls can be added and removed from the ToolBox. A full discussion of the ToolBox, intrinsic controls, and ActiveX controls takes place in Chapter 4, "Using the Intrinsic Controls." This ToolBox shows both intrinsic controls and the extra ActiveX controls that ship with Visual Basic 6.

Navigating Through the Form Window and Code Window Just as controls are the building blocks that you use to assemble your Visual Basic program, a Visual Basic form is the foundation on which you build with those blocks. Forms reside in the Form Designer window. You work in the Form Designer window to add controls to your form. The Form Designer window is where you create forms for your Visual Basic programs. For each Form Designer window, you can also open a Code window. Code windows are where you work with the Visual Basic code that you write "behind" your form. You open a code window by double-clicking a form or a control on the form. You also can open a code window by choosing Code from the View menu. For how to access Code windows, review the process described for the application that you made in Chapter 1, "Building Your First Application." Managing Applications with the Project Explorer The Project Explorer in Visual Basic 6 helps you manage and navigate multiple projects. Visual Basic enables you to organize multiple projects into groups called project groups. You can save the collection of projects in your Visual Basic session into a project group file. Project Group files end with the extension .vbg. The Project Explorer is a hierarchical tree-branch structure. Projects are at the top of the tree, and the project parts (forms, modules, and so on) descend from the tree. If you want to work on a particular part, you double-click the part to display it. If you want to see the part in a particular view--say, a form in a Code window--you select the form by clicking it once. Then click the View Code icon at the top of the Project Explorer window . You can work with multiple projects in the Project Explorer window. As you become a more adept programmer and the scope and size of your programs grow to include multiple projects, you'll find the Project Explorer to be an extremely useful tool for doing large-scale programming. For example, if want to add a form to your project, you can do so by using the Project Explorer. Add a form from the Project Explorer 1. Position the pointer on the white area of the Project window (not over a form or any other item on the tree view). 2. Right-click to display the Project Explorer context menu. 3. Choose Add and then Form. You can add or remove projects, forms, and modules to or from the Project Explorer by using its context menu. Controlling Settings with the Properties Window Properties and values

The programming jargon for a property's setting is a property's value.

In the Properties window, you read, configure, and control the initial settings of the ActiveX controls in your program. As you become more familiar with Visual Basic programming, a good portion of your time will be spent learning, setting, and manipulating control properties. Because controls are the building blocks of Visual Basic programs, the Properties window is an essential tool to master. You set the attributes of a control with the Properties window. Setting Form Position with the Form Layout Window The Form Layout window enables you to set the runtime position of one or more forms onscreen. You position a form by moving its representation on the "computer screen" in the Form Layout window with your mouse. As you move the pointer over the small form in the Form Layout window, the pointer changes into a four-directional, arrow-headed cross. To position the screen, hold down your mouse button and drag the form to where you want it to be on the computer screen. The Form Layout window lets you position one or more forms as they appear onscreen. The Form Layout window is a little tricky to use. Remember, the placement of a form in the Form Designer window doesn't affect the screen position of your program's form at runtime. If the IDE is in MDI display mode, you set the runtime startup position of a form in the Form Layout window. When the IDE is in SDI display move, there's no display of a Form Layout window. Thus, the position of the form onscreen is the startup position of the form at runtime. Viewing the IDE MDI versus SDI MDI stands for multiple document interface; SDI stands for single document interface. A multiple document graphical user interface is one that allows you to view multiple windows within a larger window--various Word document windows within the Word application window, for example. A single document interface is one where all windows appear independently of one another without the unification of a single parent window.

You can view the Visual Basic IDE in two ways: with the multiple document interface (MDI) or the single document interface (SDI). MDI view shows all the distinct windows of the Visual Basic IDE as member windows within one large IDE window In the SDI view, distinct windows of the Visual Basic IDE exist independently of each other. There's no master window to contain and provide a unified feel to the IDE. Some people

who've worked with previous versions of Visual Basic find working with the IDE in an SDI view a little bit easier in that it's similar to the earlier versions' environment; others find the unified layout of the MDI environment more appealing. There's no better or worse way; it's all a matter of work style. The SDI view is the way the VB IDE looked before version 5. Change from MDI view to SDI view 1. Choose Options from the Tools menu. The Options dialog box appears. 2. On the Advanced page, select the SDI Development Environment check box; then click OK. The Visual Basic IDE will reconfigure to the SDI view the next time you start a Visual Basic programming session. 3. Click OK; then terminate and restart Visual Basic. You custom configure the IDE from within the Options dialog box.

Using the Intrinsic Controls

What Are Forms and Controls? Are there programs you can't see? Although most programs you write will start with a form, not all programs use forms. These programs don't have any way for a person to use them directly; instead, other programs use them. Don't worry about this yet. Right now, just remember that people will be using your program and will use the controls you put on a form.

Distributing intrinsic controls When you distribute a program that includes intrinsic controls only, you don't need to include OCX files. All the intrinsic controls are contained within the Visual Basic runtime files, so they'll be available to your program as long as the runtime files are present on the system.

In Visual Basic, forms are the foundations you generally use to build programs. A form is where you put all the things that people interact with as they use your program. Those things you put on the form are controls, which enable the people who use your program to do things, such as enter text and click buttons.

Think of it this way: If you build a house, you start with a foundation--think of this as the form. On top of the foundation, you add all the things that allow you use the house: a floor, walls, and doors. These things are the controls. What Are Intrinsic Controls? For the most part, you'll use a relatively small set of controls when you program in Visual Basic. However, these controls are very powerful. With them, you can add buttons, check boxes, labels, and text boxes to your programs. You can use them to see files on your hard drive right from your program. You can even read a database! These basic controls areintrinsic controls, and they're available in every edition of Visual Basic 6. The intrinsic controls are available whenever you use Visual Basic. During design time, you can access them from the Toolbox Table 4.1 lists the intrinsic controls. By using only the intrinsic controls, you can create powerful programs. To select a control, just click it. TABLE 4.1 The Visual Basic 6 Intrinsic Controls Control Description Label Frame CheckBox ComboBox HscrollBar Timer DirListBox Shape Image OLE Container PictureBox TextBox Displays text on a form Serves as a container for other controls Enables users to select or deselect an option Allows users to select from a list of items or add a new value Allows users to scroll horizontally through a list of data in another control Lets your program perform actions in real time, without user interaction Enables users to select a directory or folder Displays a shape on a form Displays graphics (images) on a form but can't be a container Enables you to add the functionality of another Control program to your program Displays graphics (images) on a form and can serve as a container Can be used to display text but also enables users to enter or edit new or existing text Lets users select one choice from a group; must be used in groups of two or more Enables users to select from a list of items Enables users to scroll vertically through a list of data in another control Lets users select a disk drive

CommandButton Enables users to initiate actions OptionButton ListBox VscrollBar DriveListBox

FileListBox Line Data

Lets users select a file Displays a line on a form Lets your program connect to a database

Adding and Removing Controls You can add controls to a form in two ways: by double-clicking and by drawing. You learned about double-clicking in Chapter 1, "Building Your Application;" whenever you double-click an icon on the toolbar, the associated control appears on your form. When you do this, though, you can't control where the control goes: You're at the mercy of Visual Basic. When you draw a control on your form, you can put it wherever you want it. Draw a control on a form 1. Click the control's Toolbox icon. 2. Move the mouse pointer over your form. Notice that your pointer is now shaped as a crosshair instead of an arrow. Click (and hold) the mouse button where you want the control to go. 3. Drag the mouse down slightly and to the left. As you move the mouse, notice that a box starts to appear. 4. When the box is the proper size, let go of the mouse button. The control you selected now appears on the form. When drawing controls, use the box to approximate the size of your control.\ Remove a control from a form 1. Select the control you want to delete by clicking it. The control you select will appear with a box at each corner and side 2. Press the Delete key. You can also remove a control by right-clicking it. From the context menu that appears, select Delete. You know a control is selected when boxes called sizing handles surround it. The Importance of Naming Controls A control's name is one of its most important attributes because you literally refer to a control by its name whenever you want it to do something. Names are so important that every time you put a control on your form, Visual Basic automatically gives a name to it. If you add a CommandButton, Visual Basic names it Command1; if you add a TextBox, it's automatically named Text1. However, naming controls like this can be confusing. For example, if you add six CommandButtons to your form, Visual Basic will name them Command1, Command2, Command3, and so on. If you need 100 buttons, Visual Basic will name the last one Command100. How are you supposed to remember what Command67 does? The trick is, rather than let Visual Basic name your controls automatically, you should do it yourself.

Name a control 1. After you add a control to a form, make sure that it's selected (it has a box at each corner and side when it's selected). 2. In the Properties window, click the control's name in the right column . 3. Delete the current name and add the name you want. A better name for a control is one that tells not only what type of control it is, but also what it does within your program. Can you see the value here? If you consistently give your controls descriptive names, you'll always know what they do. Naturally, there is a convention you can use to help you with this. You can change a control's name in the Properties window. Friendly names When naming a control, the first letter of the friendly name is generally uppercase. This makes it easier to read the control's name, because you can easily differentiate between the friendly name and the control's abbreviation.

This convention is quite simple. It consists of a short (usually three-letter) abbreviation that identifies the type of control (see Table 4.2), followed by a longer, friendly name that describes what the control does within your program. The abbreviation is lowercase, and the friendly name follows it immediately, without any spaces. TABLE 4.2 Common Prefixes for Naming Visual Basic Intrinsic Controls Control Prefix Control Prefix Label Frame CheckBox ComboBox HscrollBar Timer DirListBox Shape Image lbl fra chk cbo hsb tmr dir shp img PictureBox TextBox OptionButton ListBox VscrollBar DriveListBox FileListBox Line Data pic txt opt lst vsb drv fil lin dat

CommandButton cmd

OLE Container Control ole

For example, a CommandButton (which has the abbreviation cmd) used to close a program might be named cmdClose. If you use a TextBox (which has the abbreviation txt) for users to input their name, you might call it txtName. This convention becomes especially powerful when you use the same type of control multiple times. Say that you use two text boxes to capture a user's name. If you let Visual Basic name the controls, they will be Text1 and

Text2. If you take over and name them yourself, you can name them txtFirstName and txtLastName. As you write Visual Basic programs, it's very important to name controls properly and consistently. As a programmer, though, you probably already know this. How to Size and Position a Control When you're drawing controls on a form, you don't have to be exact. It's very easy to make them bigger or smaller, and to put them in a different spot on the form. Size controls with the mouse 1. In the Toolbox, select the Pointer tool (if it isn't already selected). 2. On your form, select the control you want to resize. 3. Grab a sizing handle with the mouse by moving the pointer over it and then holding down the left mouse button. You know when you're over the sizing handle because the mouse pointer turns into a double-sided arrow. 4. While holding down the mouse button, notice that a box appears . The box shows you what the size of the control will be. When it's the right size, release the mouse button. You can resize a control by dragging a sizing handle. Changing the position of a control is also easy. Just click it to select it, and drag it to its new position. Modifying a Form's Size Every new form you start using in Visual Basic will be the same size. However, this size probably won't be right for your program, so you'll have to resize it to better fit the controls you're using. You resize a form just as you resize a control: Grab one of its sizing handles with the mouse and drag it to the proper size. Resize your forms to better fit the controls you're using. Working with Containers A container is a control that can hold other controls within it, such as a Frame or a PictureBox--or a form. Controls inside a container are child controls. Child controls exist completely within their containers. This means that they can't be moved outside their containers and that when a container is deleted, so are any child controls within it. If you try to move a child control outside its parent, part of the control will be cut off. You can add a control to a container by using the drawing method. To do so, you must select the container on your form before you click the control in the Toolbox. Then draw the control inside the container.

The concept of container controls becomes especially important when you move and resize controls through code. For now, just remember that some controls can contain other controls and that any controls you put on a form are contained within the form. Extending Visual Basic by Adding Controls Although the intrinsic controls are powerful, they won't suit all your programming needs. Luckily, Visual Basic ships with many other ActiveX controls for you to use in your programs--they just aren't shown in the Toolbox by default. You have to add them. Add controls to the Toolbox 1. From the Project menu, select Components. 2. In the Components dialog, make sure that the Selected Items Only check box is deselected on the Controls page. You then see a list of all ActiveX controls available on your computer. 3. From the list, select the control you want to add by checking its check box. You can add ActiveX controls to the Toolbox by checking boxes in the Components list. 4. Click OK. The control you selected will now appear in the Toolbox, and you can use it just as you use the intrinsic controls . After adding the calendar control, you can access it from the toolbox.

Working with Projects in VisualBasic 6 What Is a Visual Basic Project? A project isn't the same as an application

A project is the thing you use to create an application, such as a "traditional" program, a dynamic link library, or an ActiveX control. Think of creating a Visual Basic program like baking a cake: you mix ingredients together, bake them, and pull a cake out of the oven. Similarly, you put forms, modules, and controls together, compile them, and get a Visual Basic application.

In Visual Basic, a project is the group of all the files that make up your program. These might include forms, modules(blocks of code not attached to a form), graphics, and ActiveX controls. Other types of files may also be part of a project, but don't worry about that now. The first thing to keep in mind about a project is that as you create your program, each form, module, graphic, and ActiveX control is saved as an individual file (see Table 5.1).

TABLE 5.1 Common file types in a Visual Basic 6 project File Type Description FRM BAS FRX OCX CLS VBP Form Module Automatically generated file for every graphic in your project ActiveX control Class module Visual Basic project

Detailed information about all your program's files is stored in the project file. The project file lists all the files your program uses, as well as details such as the project name and how the IDE should be configured while you work on this particular project. Project files have the extension VBP. Using the Project Explorer You can keep track of all the files in your project with the Project Explorer, a window found on the right side of the Visual Basic IDE. The Project Explorer provides a method to organize your project's files and allows you to access them individually in form or code view. Use the Project Explorer to keep track of files in your project. Note that OCX and FRX files aren't listed in the Project Explorer. Most of your interaction with the Project Explorer will be with its context menu. When you right-click one of your project's files, you'll see a menu. Most of the interaction with your project will be through the Project Explorer's context menu. The context menu allows you to

View the file in a form window or code window View the properties of the file Add a form or module to the project Save the current file Delete the file from the project Print the file Make the Project Explorer float or dock it to the IDE Hide the Project Explorer

Creating a New Project Every time you run Visual Basic, you'll see the New Project dialog. From this window, you can simply select the type of project you want to create and click Open. Use the New Project dialog to create a project. It's also possible to start a new project while Visual Basic is already running.

Starting a new project 1. From the File menu, choose New Project. (You may be prompted to save the current project. If you need to save it but aren't sure how, see the later section "Saving and Naming a Project.") 2. In the New Project dialog, select the type of project you want to create and click OK. Changing a Project's Properties Many pieces of information are required to describe a project, including the project name, the version number, and the title that will appear in the title bar of the finished application. Many others can be accessed via the Project Properties dialog. You set your project's type, name, and help file on the General page. You can also add a project description. On the Make page, you can set your project's version number and version-specific information, as well as the project title and icon. Access the Project Properties dialog 1. In the Project Explorer, right-click the project file (the first file listed). 2. From the context menu, select ProjectName Properties. The Project Properties dialog appears. (Or, from theProject menu, choose ProjectName Properties.) Saving and Naming a Project When you save your project, you actually save each individual part of your project (every form, module, graphic, and so forth) as an individual file, and then save the project file itself. When you save your project for the first time, Visual Basic automatically suggests a name for each file. This filename will be the same as the name of the form (or module, graphic, and so on), with an appropriate extension for the type of file you're saving (refer to Table 5.1). Thus, a module named modStart would be named modStart.bas because modules have the extension .bas. Save a project 1. From the File menu, choose Save Project. 2. If this is the first time you've saved this project, or if you've added a form or module since the last time you've saved it, the Save File As dialog appears for each unsaved file. Visual Basic automatically suggests the filename frmFirst.frm for a form named frmFirst. Changing filenames

You don't have to use the filename VB suggests, but you should be careful to use a name that allows you to remember what the file does. If you've already named your files with friendly names, following the VB convention will help you avoid confusion when your project contains large numbers of files. You also should always use the filename extension that Visual Basic suggests, to ensure that all your files can easily be found when you open a file from within Visual Basic. 3. Enter a name for the file and click the Save button. 4. The last file to save is the project file. If you've assigned a name to your project with the Project Properties dialog (refer to the section "Changing a Project's Properties"), VB automatically suggests Project_name.vbp as the file name. If you haven't assigned a project name, VB suggests a default name, such as Project1.vbp. When this happens, you should change the default name to something more friendly, such as SaveTest.vbp. Opening an Existing Project If you've worked on the file recently, open the File menu. At the bottom of this menu is a list of the files you have most recently worked on. Select the appropriate file to open it. If the desired project doesn't appear in this list, you'll have to look for it. Opening files when you start Visual Basic When you first start Visual Basic, the New Project dialog usually appears. You can save yourself some time by selecting a recent or existing project directly from this dialog. If you don't want this dialog to appear each time you start Visual Basic, deselect the check box at the bottom of this window.

Opening an existing project 1. From the File menu, choose Open Project. The Open Project dialog appears. Open existing or recent projects with the Open Project dialog. 2. On the Existing page, switch to the folder in which you've saved your project. (If you've recently worked on the project, select your project from the list on the Recent page.) 3. Select the project and click Open. Adding Files to a Project Often, your programs will require more than one form or module. For example, if you want to have an About dialog in your program, it will require that you add a form.

You can add new files to your project in two ways: by selecting the file type (such as form or module) that you want to add from the Project menu, or by adding files from the Project Explorer. Adding new files from the Project Explorer 1. Right-click inside the Project Explorer. 2. From the context menu choose Add, and then select the type of file you want to add. Whichever method you use, you may be prompted with a dialog that allows you to pick a specific type of form or module to add. Visual Basic provides templates for commonly used files, such as an About dialog, to save you the time and effort of creating it yourself. Visual Basic contains many templates for creating commonly used forms. You can also add existing files to your project, which comes in handy if you want to use a form or module that you previously created for a different project. Adding an existing file is very similar to adding a new file, except that you chooseAdd File from the Project menu or from the Project Explorer's context menu . Removing Files from a Project Why should you remove or delete a file? If you don't remove an unnecessary file from your project, it will be included in your program after you compile it. Also, when you remove a file from a project, you don't actually delete the file from your hard drive. To delete the file completely, use Windows Explorer.

If there's a file in your project that you don't want (for example, a form you added accidentally or a module that contains a form you no longer need), you can remove it from the project list. Removing a file from a project 1. In the Project Explorer, right-click the file you want to remove. 2. From the context menu, select Remove filename. Add existing files to your project by selecting Add File. You also can highlight the file in the Project Explorer and choose Remove filename from the Project menu. Using Project Groups Visual Basic 6 allows you to work with more than one project at a time. As you might imagine, working with multiple forms and modules that are used in different projects can get pretty confusing. To keep track of everything, you can use the Project Explorer and a project

group, which is a collection of projects. Project Groups can be saved as a file, just like a form, module, or project. They have the extension .vbg. Add a project to a project group 1. Choose Add Project from the File menu. 2. In the Add Project dialog, highlight the type of new project you want to add from the New tab, or select an existing or recent project from the appropriate page of this dialog. 3. Click OK. Visual Basic automatically creates a project group and adds the new project to it, which you can see in the Project Explorer. The Project Explorer allows you to track multiple projects at one time by using project groups. The project in boldface type is the project that runs when you press F5.

Project groups don't really become important until you start creating ActiveX controls, which require you to have multiple projects open at the same time. So don't worry about project groups right now. Just keep in mind that it's possible to have more than one project open at the same time.

6 Working with Properties, Methods, and Events


What Are Properties, Methods, and Events? The Relationship Between Properties, Methods, and Events The Importance of Event-Driven Programming Using Properties, Methods, and Events in a Sample Program o Creating the Interface o Programming the Form_Load() Event Procedure o Programming the Click() Event o Adding Event Notification

What Are Properties, Methods, and Events? Using containers Remember that a container is an object--such as a form or the Frame or PictureBox controls-that can contain other controls.

Put simply, properties describe objects. Methods cause an object to do something. Events are what happens when an object does something. Every object, such as a form or control, has a set of properties that describe it. Although this set isn't identical for all objects, some properties--such as those listed in Table 6.1--are common to most controls. You can see every property for a given control by looking at the Properties window in the IDE. TABLE 6.1 Common Properties of Visual Basic Controls Property Description Left Top Height Width Name The position of the left side of a control with respect to its container The position of the top of a control with respect to its container A control's height A control's width The string value used to refer to a control

Enabled The Boolean (True/False) value that determines whether users can manipulate the control Visible The Boolean (True/False) value that determines whether users can see the control

Another important property to consider is BorderStyle, which determines the window elements (title bar, Maximize and Minimize buttons, and so forth) a form will have. Table 6.2 summarizes the six BorderStyle settings; Figure 6.1 shows the same form, displayed with each setting. TABLE 6.2 The Six Settings of the BorderStyle Property Setting Description 0-None Setting 1-Fixed Single No borders, no title bar, not movable. Use this as a backdrop for a splash screen. Description Not sizable by dragging borders but can have Maximize and Minimize buttons. Use this for any fixed-size window for which you want a button to appear in the taskbar. Sizable by dragging borders and by using Maximize and Minimize buttons. Use this for typical programs. Not sizable and no Maximize/Minimize buttons. Use this for simple forms such as a password dialog. Similar to 3-Fixed Dialog except that the title bar is shorter and the title bar font and Close button are correspondingly smaller. Use this for floating toolbars. Similar to a 4-Fixed ToolWindow except that it's sizable by dragging the border. Use this for windows such as the Visual Basic Properties window.

2-Sizable (default) 3-Fixed Dialog 4-Fixed ToolWindow 5-Sizable ToolWindow

The BorderStyle property of a form can be set to one of six different styles. Notice that some styles can look exactly the same as other styles. Methods are blocks of code designed into a control that tell the control how to do things, such as move to another location on a form. Just as with properties, not all controls have the same methods, although some common methods do exist, as shown in Table 6.3. TABLE 6.3 Common Methods of Visual Basic Controls Method Use Move Drag ZOrder Changes an object's position in response to a code request Handles the execution of a drag-and-drop operation by the user Determines the order in which multiple objects appear onscreen

SetFocus Gives focus to the object specified in the method call

Events are what happen in and around your program. For example, when a user clicks a button, many events occur: The mouse button is pressed, the CommandButton in your program is clicked, and then the mouse button is released. These three things correspond to the MouseDown event, the Click event, and the MouseUp event. During this process, the GotFocus event for the CommandButton and the LostFocus event for whichever object previously held the focus also occur. Again, not all controls have the same events, but some events are shared by many controls (see Table 6.4). These events occur as a result of some specific user action, such as moving the mouse, pressing a key on the keyboard, or clicking a text box. These types of events are user-initiated events and are what you will write code for most often. Using GotFocus and LostFocus The GotFocus and LostFocus events relate to most other events because they occur whenever a new control becomes active to receive user input. This makes GotFocus and LostFocus useful for data validation, the process of making sure that data is in the proper format for your program. Be careful, though! Improperly coding these two events can cause your program to begin an endless loop, which will cause your program to stop responding.

TABLE 6.4 Common Events of Visual Basic Controls Event Occurrence Change Click DblClick DragDrop DragOver GotFocus The user modifies text in a combo box or text box. The user clicks the primary mouse button on an object. The user double-clicks the primary mouse button on an object. The user drags an object to another location. The user drags an object over another control. An object receives focus.

KeyDown KeyPress KeyUp Event LostFocus

The user presses a keyboard key while an object has focus. The user presses and releases a keyboard key while an object has focus. The user releases a keyboard key while an object has focus. Occurrence An object loses focus.

MouseDown The user presses any mouse button while the mouse pointer is over an object. MouseMove The user moves the mouse pointer over an object. MouseUp The user releases any mouse button while the mouse pointer is over an object.

The Relationship Between Properties, Methods, and Events Right and bottom properties It's important to remember that right and bottom properties don't exist in Visual Basic. Later, you'll see how to position an object by using the Top, Height, Left, and Width properties.

Although properties, methods, and events do different things, it's important to realize that they're often interrelated. For example, if you move a control with the Move method (most likely in response to an event), one or more of the control's position properties (Top, Height, Left, and Width) will change as a result. Because the control's size has changed, the Resize event occurs. This interdependence means that you can sometimes accomplish the same task multiple ways in your code by manipulating object properties or methods. Consider the following code, which shows two ways to move a CommandButton: `************************************************ `Move the commandbutton by setting the properties `************************************************ cmdMove.Left = 100 cmdMove.Top = 100 `******************************************** `Move the commandbutton by using the Move method `******************************************** txtMove.Move 100, 100 As another example, you can make a form appear and disappear from the screen by using its Visible property or its Show and Hide methods, as follows: `*********************************************** ` Make the form visible by setting the property `*********************************************** frmMyForm.Visible=True

`*************************************** ` Hide the form by setting the property `*************************************** frmMyForm.Visible=False `********************************************* ` Make the form visible by using the Show method `********************************************* frmMyForm.Show `************************************* ` Hide the form by using the Hide method `************************************* frmMyForm.Hide The Importance of Event-Driven Programming When you create a program in Visual Basic, you'll generally be doing event-driven programming. Event-driven programming means that most of the code you write will be run as users do things within your program or even when certain things happen in Windows-when events occur. Of course, programming this way means that you have to know when events occur and have to write code that will make your program do something in response to the event. Fortunately, Windows and Visual Basic do most of the work for you. Whenever an event takes place, Windows sends out a message to your program. Your program reads this message, and then runs the code you've attached to the event. If you don't specify code for an event, your program will simply ignore the event. Generally, this code is known as a procedure, defined as any block of code that can be called from within your application. This code might be used to move objects around on a form, calculate a value from a formula, or write data to a database. No matter the purpose, a procedure always uses this format: [Public|Private] [Static] Sub|Function|Property _ function_name (arguments) [As Type] {...Your procedure code...} End Sub|Function|Property An event procedure is the place in your project where you put the code that will run when an event occurs. To write an event procedure, you must access the Code window for your object by doing one of the following:

Double-clicking the object Selecting the object with the mouse and pressing F7 Selecting the object and choosing Code from the View menu Selecting the object's form in the Project Explorer, clicking the View Code button, and choosing the object from the Code window

The code you write in an event procedure will run whenever the event occurs.

Visual Basic automatically generates an event procedure when you select an event in the Code Window. In Figure 6.2, notice that you name event procedures by joining the object's name and the event name with an underscore character (cmdExit_Click()). When the event procedure in this example is run, it will display a dialog when the user clicks the CommandButton named cmdExit. Using Properties, Methods, and Events in a Sample Program Now is a good time to bring together everything you've learned about properties, methods, and events in an application named MoveIt. The MoveIt program can be moved around onscreen when users click the buttons on its interface. MoveIt consists of the form frmMove, which contains four CommandButtons placed in its corners. When you run MoveIt, clicking one of these buttons will move the form to the corresponding corner of the screen. In the center of the form is a label that will provide event notification--in other words, it will report information such as mouse movement and which button has the focus. Create MoveIt (general steps) 1. Create the graphical user interface (GUI). 2. Program the Form_Load() event procedure. 3. Program the Click() event procedures. 4. Add the event notification. Creating the Interface Create MoveIt's GUI 1. Create a new project by choosing New Project from the File menu. Select Standard EXE from the New Project dialog. 2. In the Properties window, change the name of the project's form to frmMove. (You can call it something else if you want, but make sure that you're consistent.) 3. Add four CommandButtons to frmMove's corners and add a label in the center. You don't have to position the buttons and label exactly because you'll later put them in the proper locations by using code. 4. In the Properties window, name the label and the four buttons. Remember, you can add controls to a form by double-clicking them in the ToolBox. Form_Load() event procedure naming Whereas the event procedures for controls are named by joining the names of the object and the event with an underscore character, forms are different. No matter what you name your form, Visual Basic will always use the generic name Form instead of the name you choose. For example, even though the form in this example is frmMove, the name of the Load event procedure is Form_Load().

5. Now set the BorderStyle property of the form to 1-Fixed Single. This ensures that the form can't be resized while the program is running. Also, set the label's Alignment property to 2-Center and its BorderStyle property to 1-Fixed Single to give the label a finished appearance. 6. Save the form and the project, using friendly names such as frmMove.frm for the form and MoveIt.vbp for the project. Programming the Form_Load() Event Procedure You can use the Form_Load() event procedure to prepare the form before showing it onscreen when your program is run. You will use this procedure to

Set the Caption property of the CommandButtons Set the initial text of the label Set the form's title bar text Set the position of the four CommandButtons, the label, and the form onscreen

Open the Code window for the Form_Load() event procedure by double-clicking anywhere on the form except the buttons, label, or title bar. Then, enter the code in Listing 6.1, being careful to change the names if you named your control differently. Commenting the code You don't have to type in the comments (lines that start with the apostrophe (`)) because these lines are for your information only. Be sure to read them, though.

LISTING 6.1 The Form_Load() Event Procedure Code for MoveIt 01 `Set the Caption property of the CommandButtons 02 cmdTopLeft.Caption = "Top Left" 03 cmdTopRight.Caption = "Top Right" 04 cmdBottomLeft.Caption = "Bottom Left" 05 cmdBottomRight.Caption = "Bottom Right" 06 07 `Clear the initial text of the label 08 lblNotify.Caption = "" 09 10 `Set the form's title bar text 11 frmMove.Caption = "MoveIt" 12 13 `The rest of the code centers the form on the 14 `screen, sets the position of the four 15 `CommandButtons, and sets the size and 16 `position of the label. 17 18 `Center the form on the screen. This works by 19 `setting the Left side of the form to the center

20 `of the screen, less half the width of the form. 21 `Also, the Top of the form is set to the center 22 `of the screen, less half the height of the form. 23 frmMove.Left = (Screen.Width - frmMove.Width) / 2 24 frmMove.Top = (Screen.Height - frmMove.Height) / 2 25 26 `Set the Left edge of the buttons. The 200 setting 27 `for the left buttons sets a space between the edge 28 `of the form and the buttons. The right buttons are 29 `set by subtracting the width of the button from 30 `the width of the form, and subtracting 300 to 31 `set a space between the button and the form edge. 32 cmdTopLeft.Left = 200 33 cmdBottomLeft.Left = 200 34 cmdTopRight.Left = frmMove.Width - cmdTopRight.Width - 300 35 cmdBottomRight.Left = frmMove.Width - cmdBottomRight.Width - 300 36 37 `Set the Top edge of the buttons. This is done 38 `similar to setting the Left edge. 39 cmdTopLeft.Top = 200 40 cmdBottomLeft.Top = frmMove.Height - cmdBottomLeft.Height - 500 41 cmdTopRight.Top = 200 42 cmdBottomRight.Top = frmMove.Height - cmdBottomRight.Height - 500 43 44 `Set the size of the label 45 lblNotify.Height = 360 46 lblNotify.Width = 3000 47 48 `Center the label within the form. This is done 49 `similar to centering the form. 50 lblNotify.Left = (frmMove.Width - lblNotify.Width) / 2 51 lblNotify.Top = (frmMove.Height - lblNotify.Height) / 2 - 200 Setting these starting values is called initialization. You write event procedures by adding code to the code window within the IDE. Programming the Click() Event We'll use the Click() event procedure to move the form around the screen. To do so, doubleclick a CommandButton to view the Code window. Then, enter that part of the code from Listing 6.2 that applies to that CommandButton. Note that you don't have to enter the first and last line, because Visual Basic already creates that part of the event procedure. (Again, you don't have to type the comments.) For example, you only have to add lines 8 and 12 to the cmdBottomLeft_Click() event procedure. The Screen object

As you add the code for the Form_Load event procedure, notice a reference to an object called Screen. The Screen object refers to your monitor screen. For a detailed description of the Screen properties, read the online documentation that comes with Visual Basic.

LISTING 6.2 The Click() Event Procedures for the CommandButtons 01 Private Sub cmdBottomLeft_Click() 02 03 `Set the value of the form's TOP property 04 `to the bottom of the screen but bring 05 `it up the height of the screen so that the 06 `bottom of the form is on the bottom of 07 `the screen 08 frmMove.Top = Screen.Height - frmMove.Height 09 10 `Set the value of the form's LEFT property 11 `to the far left of the screen. 12 frmMove.Left = 0 13 14 End Sub 15 16 Private Sub cmdBottomRight_Click() 17 18 `Set the value for the form's TOP property to 19 `the bottom of the screen, but bring the TOP 20 `up the HEIGHT of the form so that the bottom 21 `of the form is on the bottom of the screen. 22 frmMove.Top = Screen.Height - frmMove.Height 23 24 `Set the value of the form's LEFT property to 25 `the right of the screen but bring it across 26 `the screen the width of the form so that the 27 `right side of the form is on the right 28 `side of the screen 29 frmMove.Left = Screen.Width - frmMove.Width 30 31 End Sub 32 33 Private Sub cmdTopLeft_Click() 34 35 `Set the value of the form's TOP property 36 `to the top of the screen. 37 frmMove.Top = 0 38 39 `Set the value of the form's LEFT property 40 `to the left of the screen. 41 frmMove.Left = 0 42 43 End Sub

44 45 Private Sub cmdTopRight_Click() 46 47 `Set the value of the form's TOP property 48 `to the top of the screen. 49 frmMove.Top = 0 50 51 `Set the value of the form's LEFT property to 52 `the right of the screen but bring it back across 53 `the screen the width of the form, so that the 54 `right side of the form is on the right 55 `side of the screen 56 frmMove.Left = Screen.Width - frmMove.Width 57 58 End Sub Moving the form to the top or left of the screen is easy--set the Top or Left property of the form to zero. This always corresponds to the top or left of your monitor, respectively. Lining up the form on the right side or bottom of the screen is a little harder because right and bottom properties don't exist. To place a form on the right side of the screen, you must set the Left property of the form to the Width property of the Screen object, minus the Width of the form (because the Width of the screen would be the right property of the screen, if the right property existed). A similar technique is used to determine the bottom of the screen. If you were to set the form's Top property equal to the screen's Height property, you wouldn't see the form because it would be just below the bottom of the screen. To set the bottom of the form to the bottom of the screen, you subtract the value of the form's Height property from the value of the screen's Height property. This raises the form so that you can see it. Adding Event Notification To finish MoveIt, let's add some code that will tell when certain events occur for the form and the CommandButtons. When users press or release the mouse button over the form, the text in lblNotify will change to reflect the state of the button. Also, when users use the Tab key or the mouse button to move from one CommandButton to another (which changes the focus from one button to the next), the text in lblNotify will change. Doing this requires you to write code in three different event procedures: the MouseUp and MouseDown event procedures for the form and the GotFocus event procedure for each CommandButton. Be careful when placing a form on the right side or bottom of the screen; otherwise, you might place it offscreen. Enter the code from Listing 6.3 into the MouseUp and MouseDown event procedures for frmMain. (Remember that you don't have to enter the first and last lines.) To do this, open the Code window for the MouseDown event procedure by double-clicking the form and selecting MouseDown from the event procedures drop-down list .

LISTING 6.3 Code for Reporting When Users Click and Release the Mouse Button 01 Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) 02 03 lblNotify.Caption = "MouseDown Event" 04 05 End Sub 06 07 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 08 09 lblNotify.Caption = "MouseUp Event" 10 11 End Sub You can select an event procedure from the object's Code window. When the program runs, if your mouse is over the form (not the CommandButtons or the label) and you click the mouse button, the text MouseDown Event appears in lblNotify. When you release your mouse button, the text MouseUp Event appears. Last, add the code that will report which CommandButton has the focus. Enter the code from Listing 6.4 into the GotFocus event procedures for each CommandButton. Do this by doubleclicking one of the CommandButtons and selecting the GotFocus event procedure (notice that Visual Basic selects the Click event by default). Repeat this procedure for each CommandButton. LISTING 6.4 Code for Reporting Which CommandButton Has the Focus 01 Private Sub cmdBottomLeft_GotFocus() 02 03 lblNotify.Caption = "cmdBottomLeft has the Focus" 04 05 End Sub 06 07 Private Sub cmdBottomRight_GotFocus() 08 09 lblNotify.Caption = "cmdBottomRight has the Focus" 10 11 End Sub 12 13 Private Sub cmdTopLeft_GotFocus() 14 15 lblNotify.Caption = "cmdTopLeft has the Focus" 16 17 End Sub 18 19 Private Sub cmdTopRight_GotFocus() 20 21 lblNotify.Caption = "cmdTopRight has the Focus" 22

23 End Sub That's it! Now you can run the program--just press the F5 key. When you click a CommandButton, it automatically receives the focus. In MoveIt, the focus is reported in lblNotify.

7 Using Data Types, Constants, and Variables

Storing Information in Variables o Declaring Variables o Naming Variables o Choosing the Correct Variable Type Making Explicit Declarations Using Type Suffixes with Variables Using Strings o Using Variable-Length and Fixed-Length Strings Determining Where a Variable Can Be Used o Making Variables Available Globally o Keeping a Variable Local Using Static Variables Using Constants o Using Constants Supplied by Visual Basic o Creating Your Own Constants Using the Assignment Statement Revisiting the Addition Program

Storing Information in Variables AddNum.EXE is from the project Addnum.prj from the file vb6cp07.zip on the Web site dedicated to this book. The program enables users to enter two numbers. When they click the + button, the program processes the total, which is then displayed in a third text box. AddNum is a simple addition program that shows you how to use variables. While the data is being processed in your program, it's stored temporarily in variables. Think of a variable as a cup that can hold various amounts of jelly beans; you never know how many jelly beans are in the cup at any given time unless you look in the cup. The same is true for a variable. A variable can hold a different value at different times. You programmatically look into it to find out its value. You use variables when you know that you'll have to deal with a quantity at some point but don't know its present value--such as the balance of your checking account. You know the account's balance today, but you have no idea what the balance will be in a week.

Declaring Variables You create (that is, declare) a variable by using the following form: Dim VarName As DataType Understanding keywords A keyword, also known as a reserved word, is a word reserved for Visual Basic's exclusive use; you can't use keywords for your own programming needs. Words such as Dim, As, New, ReDim, If, Then, Else, Loop, While, and End are all Visual Basic keywords. By default, Visual Basic uses the font color blue to show all keywords that you type in a Code window. Visual Basic has many keywords. You know a word is a keyword if the word changes color after you type it in the code window. Also, you can look in the online documentation that comes with Visual Basic to obtain a detailed list and explanation of them all.

In this syntax,

Dim is the keyword that tells Visual Basic that you want to declare a variable. VarName is the name of the variable. As is the keyword that tells Visual Basic that you're defining the data type for the variable. DataType is the data type of the variable.

Thus, the following example creates a variable, i, that's of data type Integer: Dim i as Integer Listing 7.1 shows the event procedure for the Click() event of the cmdAdd button. Three variables--x, y, and z (on lines 3, 6, and 9)--are declared. These variables are of type Integer. (Data types are discussed later in the chapter. For now, realize that you are making variables that will accommodate numbers. Also, if you type a letter such as a in a text box, the code won't work because it's expecting a number. Preventing this sort of error is addressed at the end of this chapter.) For more information about avoiding and finding errors in your code see Chapter 21, "Debugging Your Applications." LISTING 7.1 07LIST01.TXT--The cmdAdd Event Procedure 01 Private Sub cmdAdd_Click() 02 `Declare a variable for the first number 03 Dim x As Integer 04 05 `Declare a variable for the second number 06 Dim y As Integer 07 08 `Declare a variable to hold the sum of both numbers 09 Dim z As Integer 10 11 `Convert the text inputted into the text box

12 `into an integer and assign it to the first variable 13 x = CInt(txtNumOne.Text) 14 15 `Convert the text inputted into the text box 16 `into an integer and assign it to the second variable 17 y = CInt(txtNumTwo.Text) 18 19 `Add the first two variables together and assign 20 `the result to the third variable 21 z = x + y 22 23 `Convert the third variable (which is an integer) 24 `to text and assign it to the text property of the 25 `TextBox for the result. 26 txtTotal.Text = CStr(z) 27 End Sub Commenting code Notice that some lines of code begin with an apostrophe (`), which tells Visual Basic that everything on that line or following the apostrophe isn't code and should be ignored by the compiler. Such a line of text offers some remarks or information about what your programming intention is. This is called commenting your code. Well-written code is heavily commented. Commenting your code helps you remember your thinking when you come back to your code at a later time. It also helps those who must maintain your code after you've written it.

Naming Variables When you declare a variable, you must give it a name. Returning to the cup analogy, if you have two cups on a table that hold different amounts of jelly beans, you must be able to distinguish between the cups to work with them. Naming makes each variable distinct and easy to identify. In naming a variable, you have tremendous flexibility. Variable names can be simple, or they can be descriptive of the information they contain. For example, you could name a counter variable i%, or you might want to use a more descriptive name, such as NumberOfRedJellyBeansForBob or NumberOfJellyBeansForDorothy. Although you're allowed great latitude in naming, you need to know about the following restrictions:

The name must start with a letter, not a number or other character. The name can't contain a period. The name must be unique within the current procedure or module (this restriction depends on the scope of the name, which you'll learn about a little later). The name can be no longer than 255 characters.

Some examples of incorrect variable naming are as follows:

1Week--You can't begin a variable with a number. Earnings.To.Data--You can't use periods. Number One--You can't have spaces between characters.

On the other hand, the following examples work perfectly well: MyNum& i% iNumOne strInputValue Number2# To make your code easy to read, your variable names should describe their task but, to make your code easy to type, they should also be short. Many programmers use prefixes on their variables to indicate the type of data stored and the scope of the variable. For example, a prefix of g_int indicates a global or program-level variable that stores an integer. Table 7.1 describes suggested prefixes you can use with your variables. TABLE 7.1 Variable and Control Prefixes Prefix Variable/Control b c d db ds dt td h i l str s a g m ani cbo chk clp cmd com Boolean Currency Double Database Dynaset Date+time TableDef Handle Integer Long String Single Array Global Local to module or form Animation button Combo box and drop-down list box Check box Picture clip Command button Communications

Example bLightsOn cAmountDue dDollarPerGallon dbAccountsPayable dsOverDue dtDateDue Example tdEmployees hWnd iCounter lNum strMessage sPay a_iMyArray g_iTotal m_iAmount aniMain cboMyList chkDoctorIn clpEmblems cmdFirstName comLineOne

Prefix Variable/Control

ctr dat db dir dlg drv fil frm fra gau gpb grd hsb img key lbl lin lst mdi opt ole pnl shp spn txt tmr vsb

Control (used within procs when the specific type is ctrNext unknown) Data ODBC database Directory list box Common dialog Drive list box File list box Form Frame Gauge Group button Grid Horizontal scroll bar Image Keyboard key status Label Line List box MDI child form Option button OLE client 3D panel Shape Spin control Text/edit box Timer Vertical scrollbar datEmployees dbTaxpayers dirProjects dlgSettings drvMain filPictures frmMain fraTeams gauGas Example gpbApps grdMain hsbText imgMain keyASCII lblLastName linRed lstStooges mdiMain mnuEdit optGender oleMain pnlFriends shpCircle spnTemp txtAddress tmrBreak vsbComments

Prefix Variable/Control

mnu Menu

Choosing the Correct Variable Type You can store almost anything in a variable. A variable can hold a number, a string of text, or an instance of an object, including forms, controls, and database objects. This chapter looks specifically at variables that store numbers, strings, and logical values. You can use a variable to hold any type of information, but different types of variables are designed to work efficiently with different types of information.

Returning to the earlier cup example, you might want to have a type of cup that can hold only jelly beans, only cherries, or only nails. What the cup is supposed to hold greatly influences how the cup is constructed. A cup that holds cherries might have little holes in the bottom for water to pass through. A cup to hold nails might be made of tough material so that the nails don't puncture or scratch it. The same is true of variables--the type of variable must match the data it's going to hold. When you declare a variable to be of a certain type, you're giving instructions to Visual Basic about how to build the variable to accommodate the type of data that the variable will have to hold. Table 7.2 presents the types of variables available in Visual Basic. The table also shows the range of values that each variable can hold and the amount of memory required to store the information in the variable (sort of like the cup size). Understanding memory requirements is important if you want to optimize your code. To conserve system resources, you should use variables with smaller memory requirements whenever possible, but don't worry about optimizing code until you're comfortable with the concept of creating and using variables. Sizing variables At some point you may wonder whether you're using a variable of the right size, particularly with regard to numbers. A good rule of thumb is to go with the larger variable size if you don't have a very good idea of what the limit of your variable will be. For example, if you think that your program at some point might be required to use numbers with decimals or fractions, you might want to use Double and Single variable types instead of Integers and Longs.

TABLE 7.2 Variables Store Many Types of Information Type Stores Memory Range of Values Requirement Integer Long Single Whole numbers Whole numbers Decimal numbers 2 bytes 4 bytes 4 bytes -32,768 to 32,767 Approximately +/- 2.1E9 -3.402823E38 to -1.401298E-45 for negative values and 1.401298E-45 to 3.402823E38 for positive values -1.79769313486232E308 to 4.94065645841247E-324 for negative values and 4.94065645841247E-324 to 1.79769313486232E308 for positive values 922,337,203,685,477.5808 922,337,203,685,477.5807 to

Double

Decimal numbers 8 bytes (double-precision floating-point)

Currency Numbers with up 8 bytes to 15 digits left of the decimal and 4 digits right of the decimal String Text information 1 byte

per Up to 65,000 characters for fixed-length

character Byte Date Object Variant Whole numbers Date and information 1 byte 2 bytes time 8 bytes

strings and up to 2 billion characters for dynamic strings 0 to 255 True or False Jan 1st 100 to December 31st 9999 N/A

Boolean Logical values

Pictures and any 4 bytes object reference Any of preceding types

the 16 bytes + 1 N/A data byte per character

You know how to name a variable and what a variable can store, but how do you tell the program what you want to store? In reality, you don't have to tell Visual Basic what a variable will contain. Unlike other languages, Visual Basic doesn't require you to specifically declare a variable before it's used. If a variable isn't declared, Visual Basic uses a default data type known as a variant, which can contain any type of information. Read more on variants in the following section. It's a good idea to declare your variables before they're used. Declaring variables saves you time in the long run and makes your code much more reliable. Making Explicit Declarations Explicit declaration means that you must use a statement to define a variable. Each of the following statements can be used to explicitly declare a variable's type: Dim VarName [As VarType][, VarName2 [As VarType2]] Private VarName[As VarType][, VarName2[As VarType2]] Static VarName[As VarType][, VarName2[As VarType2]] Public VarName[As VarType][, VarName2[As VarType2]] Dim, Private, Static, and Public are Visual Basic keywords that define how and where the variable can be used. VarNameand VarName2 represent the names of the variables that you want to declare. As indicated in the syntax, you can specify multiple variables in the same statement as long as you separate the variables by commas. (The syntax shows only two variables, but you can specify any number.) VarType and VarType2 represent the type name of the respective variables. The type name is a keyword that tells Visual Basic what kind of information will be stored in the variable. The type can be one of those specified in Table 7.2 or a user-defined type. What's a variant? A variant is a data type that knows how to be any data type. If you declare a variable to be of type variant, it can be an Integer, Double, String...whatever. Variables have a definite use in

advanced programming. If you are a beginning programmer, however, you shouldn't use variants to avoid the labor of learning to use the proper data type for the proper situation.

As mentioned earlier, declaring a variable type is optional. If you include the variable type, you must include the keyword As. If you don't include a variable type, the Variant type (the default) is used. Using a variant for general information has two major drawbacks, however: it can waste memory resources, and the variable type can produce unpredictable default value behaviors, particularly with arrays. The following code lines show the use of these declaration statements for explicitly declared variables: Private iNumVal As Integer Private iAvgVal As Integer, dInputval As Double Static sCalcAverage As Single Dim strInputMsg As String In Visual Basic, you don't have to use the keywords Dim, Private, Static, or Public. In Visual Basic, you can use a variable name such as MyVal. If you were to put this code in your project, you would make a variable named MyVal as type Variant. MyVal would have a default value of empty. Whenever you use implicit declaration, Visual Basic considers that variable as type Variant. Using implicit declaration isn't recommended, however. Making a variable without a formal declaration is asking for trouble. If you use implicit declaration, then any time you make a spelling mistake or syntax error, Visual Basic will think that you're implicitly declaring another variable, which can lead to headaches beyond imagination. By using implicit declaration, the code below would return a zero from a "mistake" variable: `Declare a variable to hold the value fo the winner Dim iTheWinnner as Integer `Assign a value to the winner variable iTheWinner = 100 `This code will show you a message that says `The winner has won: 0 `because you typed, iTheWhiner by mistake MsgBox "The winner has won: " & CStr(iTheWhiner) You can protect yourself. You can make the Visual Basic IDE force you to explicitly declare a variable. All you need to do is enter the keywords Option Explicit in the first line of the General section of your form or module. You can also configure the IDE to automatically do this for you whenever you add a form or module. Configure the IDE to automatically require variable declaration 1. From the Tools menu, choose Options. 2. On the Editor page of the Options dialog, select the Require Variable Declaration check box. 3. Click OK.

Its always preferable to configure the VB IDE to require you to declare your variables.

After you set Option Explicit, if you fail to declare a variable, you'll receive the message Variable not defined when you try to compile your code. Visual Basic's integrated debugger highlights the offending variable and halts the compilation of your program. The benefit of this is that it helps you avoid code errors possibly caused by typographical mistakes. For example, you might declare a variable with the following statement: Dim strMyName As String If, in a later statement, you mistype the variable name, Visual Basic will catch the error for you. For example, the following statement would cause an error: strMyNme = "Clark Kent" Using Type Suffixes with Variables In previous code examples, you saw that you use the As keyword to assign a data type to a variable. You can use another method to declare a variable and assign a data type to it--datatype suffixes. With this type of declaration, a special character is used at the end of the variable name when the variable is first assigned a value. Doing this automatically "types" (assigns a type to) the variables. There's no need to use the As keyword. The characters for each variable type are shown in Table 7.3. TABLE 7.3 Variable Suffixes Variable Type Suffix Integer Long Single Double Currency String Byte Boolean Date Object Variant % & ! # @ $ None None None None None

Variable Type Suffix

The code back in the section "Using Explicit Declarations" could be rewritten with type suffixes as follows: Private NumVal% Private AvgVal%, Inputval#

Static CalcAverage! Dim InputMsg$ A controversy around suffixes A controversy within the Visual Basic developer community surrounds the use of suffixes and prefixes. Some developers support the use of suffixes; others prefer the use of prefixes only. Whether to use suffixes, prefixes, or both is a decision usually made by the programming group to which you belong. Most programming groups have a document that defines the coding standard that you use during the course of a project. If you program with others, this is the standard that you should follow. The most important thing to remember is that your code must be easy to read, easy to maintain, and predictable to others with whom you work.

Using suffixes to assign a type to your variables is a quick, handy way to declare a variable. Also, using a suffix adds a new element of readability to your variable name. For example, now when you run across the variable NumVal% in your code, you know that the variable is of type Integer (from reading the suffix) and that its function is to be a value for a number (from reading the variable name). Using Strings A string is a collection of characters. The following are examples of different string values: "Cheese" "You have made an error!" "a" "July 4, 1776" "75" Notice that each collection of characters is enclosed by quotation marks (""). The quotation marks are very important; they tell Visual Basic that the enclosed characters are a string value. Characters not enclosed in quotation marks are considered to be a variable or a part of the language. You might find the string value "75" a bit baffling. You might think that it's a value for an integer, but it's not. The following example illustrates the string-ness of "75": strNum$ = "7" & "5" Another use of strings that use numeric characters are ZIP codes and phone numbers. Notice that declaring the following ZIP code and phone number as strings allows you to use the character: strMyZipCode = "50311-0921" strPhone = "1-515-555-1212"

Also, because they aren't number data types, you wouldn't and can't perform mathematical operations on them, such as addition and multiplication. Some beginning programmers have trouble with this concept; it takes a bit of getting used to. If you look at the code in Listing 7.1, you'll see that the user's input into the text boxes is treated as numeric string characters that must be converted to integers (lines 13 and 17). Chapter 12, "Working with Strings and Typecasting," provides a more detailed look at this. Using Variable-Length and Fixed-Length Strings Most strings that you will use in your programs are of the type known as variable-length strings, which can contain any amount of text up to 64,000 characters. As information is stored in the variable, the size of the variable adjusts to accommodate the length of the string. There is, however, a second type of string in Visual Basic--the fixed-length string. As the name implies, a fixed-length string remains the same size, regardless of the information assigned to it. If a fixed-length string variable is assigned an expression shorter than the defined length of the variable, the remaining length of the variable is filled with the space character. If the expression is longer than the variable, only the characters that fit in the variable are stored; the rest are discarded. A fixed-length string variable can be declared only by using an explicit declaration of the form, such as the following: Dim VarName As String * strlength Therefore, to make a string, strMyString, that's always 128 characters long, you would declare it as follows: Dim strMyString As String * 128 Notice that this declaration varies slightly from the previous declaration of a string variable. The declaration of a fixed-length string variable contains an asterisk (*) to tell Visual Basic that the string will be a fixed length. The final parameter,strlength, tells the program the number of characters that the variable can contain. In the beginning, you probably won't have much need for fixed-length strings. As you advance, you will use them, particularly when it's time to program directly to Windows with the Windows API (Application Programming Interface). Determining Where a Variable Can Be Used Scope relates to declaration location The scope of a variable is determined by not only the type of declaration used but also the declaration's location. For instance, the Dim keyword assumes different meanings in different parts of a form's code. You can use only the Private keyword on variables in the Declaration section.

In addition to telling Visual Basic what you want to be able to store in a variable, a declaration statement tells Visual Basic where the variable can be used. This area of use is called the scope of the variable. This is analogous to your phone number. You might have a phone number 555-2576, which can be reached by anyone inside your area code. However, if anyone outside your area code calls 555-2576, they will get that number as it applies within their area code. If you want to be reached from anywhere in the country, the person trying to reach you must use your area code before your local number. Conceptually, the scope of a variable is similar. You can have variables that can be seen locally only within a procedure, for instance, and you can have variables that can be seen globally from anywhere within a form, module, or even the whole program. By default, a variable declared with a keyword such as Dim is local to the procedure in which it's created. For example, if you declare a variable in the event procedure for a CommandButton's Click() event procedure, it resides and is visible only within that event procedure. Therefore, to create variables that have a scope other than local, you must modify your declaration statement. Making Variables Available Globally In most programs, unless you have only one form and no code modules, you'll find that you need some variables that can be accessed from anywhere in the code. These are called Public variables. (Other programming languages might refer to these as global variables.) These variables are typically for holding information that's used throughout the program. They can also be used to indicate various conditions in the program. To create a Public variable, you place a declaration statement with the Public keyword in the Declarations section of a module of your program. The following line shows the Public declaration of a variable of type Boolean (True/False): Public bLightsOn as Boolean In a form, the Public keyword has a special meaning. Variables defined as Public are considered to be very much like a property of the form and can be "seen" from anywhere in the program. These properties are referenced like the built-in properties of a form or control instead of like a variable. For example, you can have a string variable, strMyName, declared Public in the form frmMain, and you would access the string variable by using the following expression: strSomeString = frmMain.strMyName You can use the Public properties to pass information between forms and other parts of your program. If you don't need to access a variable from everywhere in your program, you don't want to use the Public keyword in a declaration. Instead, you use the keyword Dim within a procedure. When the variable is declared inside a procedure, it can be used only within that procedure. This is typically known as a local variable.

The keyword Private is used within a form or module's Declaration section to make the variable visible only to the form or module within which it's created. This is typically known as a form- or module-level variable. Keeping a Variable Local At first glance, you might think that making all variables global is the easiest thing to do, but as your programs grow, this practice won't serve you well in the long run. You saw in the preceding section that each procedure in a VB program can have its own variables. Each procedure can have variable names that might be common across other procedures, but because they are local to that procedure, none of the others know about them. Thus, you avoid what are called name collisions. Think of it this way: You might have two procedures, ProcA and ProcB. ProcA creates two variables, x% and y%, and ProcB also creates two variables x% and y%. In ProcA, x% and y% are assigned values that, in turn, are passed as values to the Left and Top properties of a CommandButton, Command1. In ProcB, the variable y% is assigned a value that's twice the value of x%. Both procedures have variables of the same name. However, because each set of variables was declared local to a distinct procedure, they are available only to the procedures in which they were declared. Properly scoping your variables makes your code more reusable. Using Static Variables Most variables created inside a procedure are discarded by Visual Basic when the procedure is finished. Sometimes, however, you want to preserve the value of a variable even after the procedure runs. This often is the case when you call the procedure multiple times, and the value of a variable for one call to the procedure depends on the value left over from previous calls. Using the Static keyword when declaring a procedure If you use the Static keyword to declare a procedure, all variables in the procedure are treated as static.

To create a variable that retains its value even after the procedure is through running, you use the Static keyword in the variable declaration. This tells Visual Basic that the variable can be referenced only within the procedure but to hold on to the value because it will be needed again. For example, to declare a static variable for an integer, you use the following: Static iNumOfClicks as Integer A good use of a static variable would be where you needed to know how many times somebody clicked a CommandButton. If you Dim a counting variable in a click event

procedure, the variable disappears when the click event is over and the variable goes out of scope; thus, you couldn't know how many times it was clicked. If you made the variable static, however, the value persists from click to click. Thus, if you put the preceding line into a click event, you have a permanent way to keep track of the number of clicks: Sub MyButton_Click() Static iNumOfClicks as Integer iNumOfClicks = iNumOfClicks + 1 MsgBox "Number of Clicks: " & CStr(iNumOfClicks) End Sub Static variables are commonly used in timer event procedures. You will read more about this in Chapter 16, "Working with Time and Timers." Using Constants Variables are only one way of storing information in the memory of a computer. Another way is to use constants. Constants in a program are treated a special way. After you define them (or they're defined for you by Visual Basic), you can't change them later in the program by using an assignment statement. If you try, Visual Basic generates an error when you run your program. Constants are most often used to replace a hard-to-remember value, such as the color value for the Windows title bar. It's easier to remember the constant vbActiveTitleBar than the value 2147483646. You can also use a constant to avoid typing long strings if they're used in a number of places. For example, you could set a constant such as ERR_FILE_FOUND containing the string "The requested file was not found". Often, constants are also used for conversion factors, such as 12 inches per foot or 3.3 feet per meter. The following code example shows how constants and variables are used: Const METER_TO_FEET = 3.3 Meters# = CDbl(InputBox("Enter a distance in meters")) DistFeet# = Meters# * METER_TO_FEET MsgBox "The distance in feet is: " & CStr(DistFeet#) Using Constants Supplied by Visual Basic Visual Basic (as of version 4.0) supplies a number of sets of constants for various activities. There are color-definition constants, data-access constants, keycode constants, and shape constants, among others. The VB-supplied constants begin with the prefix vb. The constants that you need for most functions are defined in the help topic for the function. If you want to know the value of a particular constant, you can use the Object Browser. Access the Object Browser by clicking its icon in the Visual Basic toolbar or pressing the F2 key. You can use the list to find the constant that you want. When you select it, its value and function are displayed in the text area at the bottom of the dialog. Select the appropriate constants from the Classes list to view the constants internal to Visual Basic.

Creating Your Own Constants Although Visual Basic defines a large number of constants for many activities, sometimes you need to define your own constants. Constants are defined with the Const keyword statement to give the constant a name and a value, as shown in the following syntax: Const CONSTANT_NAME [As ConstantType] = value Naming conventions for constants Constants are typically named with all uppercase characters and, if necessary, with an underscore character (_) to separate the characters into words: SECRET_NUMBER = 42. Now that Visual Basic supports its own constants and constants dedicated to classes, however, it's conventional to name constants in mixed case, with a lowercase prefix: snNumber = 42.

This statement appears similar to the declaration of a variable. As with declaring a variable, you provide a name for the constant and optionally specify the type of data it will hold. The Const keyword at the beginning of the statement tells Visual Basic that this statement defines a constant. This distinguishes the statement from one that just assigns a value to a variable. In declaring the type of a constant, you use the same types as you did for defining variables (refer to Table 7.2). Finally, to define a constant, you must include the equal sign (=) and the value to be assigned. If you're defining a string, remember to enclose the value in quotes (""). What's a function? A function is a named section of code that returns a value. You can reuse functions many times within your program. For calculation purposes, you can pass information into functions. The information that you pass into a function is called a parameter, also known as an argument. For more information about functions, see Chapter 18, "Writing Reusable Code with Subs and Functions."

Using the Assignment Statement To use variables efficiently, you must also be able to assign information to the variable and manipulate that information. After you set up a variable, you need to store information in it. This is the job of the assignment statement. In theassignment statement, you specify a variable whose value you want to set. To assign a value to a variable, place an equal sign after the variable name and follow this with the expression that represents the value you want stored. The expression can be a literal value, a combination of other variables and constants, or functions that return a value. There's no limit on the complexity of the expression you use. However, even though Visual Basic will attempt to automatically convert mismatching data types, you should try to assign the correct type to the values that you assign to your program's variables. The following statements illustrate different assignment statements:

NumStudents% = 25 SumScores% = 2276 AvgScore% = SumScores% / NumStudents% TopStudent$ = "Janet Simon" BadStudent$ = txtStudent.Text You can consider most properties of forms and controls as variables. They can be set at design time but also can be changed at runtime with an assignment statement. You can also use a property on the right side of a statement to assign its value to a variable for further processing. You saw this done in Listing 7.1. After the addition program calculates the sum of the two entered numbers, it assigns the result to a third TextBox, as shown in lines 23-26: `Convert the third variable (which is an integer) `to text and assign it to the text property of the `TextBox for the result. txtTotal.Text = CStr(z) Understanding type mismatch errors A type mismatch error occurs when you try to assign a value to a variable that's not the expected data type. For example, if you create a variable x% of type Integer and try to assign a string value to it, you commit a type mismatch and receive a type mismatch error: Dim x% `Next line causes `type mismatch error x% = "Happy Birthday!" Revisiting the Addition Program Now that you've explored what variables are about and how to use them, you should have a better sense of what's going on in the addition program shown earlier in the chapter. If you look closely, though, you'll see that the programmer made an assumption about user input, which will result in a serious error. What happens when users don't enter a number into a text box but instead another sort of string value? Don't assume that users will always enter the data type that your program requires. The result is a crash. To prevent such an occurrence, you could use the Visual Basic IsNumeric() function to check the value to make sure that the entry is indeed a numeric value. For example, before line 13 in Listing 7.1, you would enter the following line to prevent users from assigning any nonnumeric character to the variable x%: If IsNumeric(txtNumOne.Text) then x = CInt(txtNumOne.Text) End if

Obviously, making sure that the right type of data is assigned to the right type of variable (what's referred to as data validation) is more than an academic exercise--it's a critical programming skill. You'll find out how to solve this problem in Chapter 9, "Working with Conditional Statements"; Chapter 21, "Debugging Your Applications"; and Chapter 12, "Working with Strings and Typecasting."

Making Statements in a Program


Using the Assignment Statement Using Variable Default Values Using Math Operators o Using Addition and Subtraction Operators o Using the Multiplication Operator o Using the Division Operator o Using Exponents Setting the Order of Precedence in Statements Concatenating Strings

Using the Assignment Statement Learning the VB language Computer programming is more than learning the Visual Basic language--it's about being able to describe and implement your ideas through the syntax of the programming language. One way to do this is by making statements, which are used to assign, compare, or calculate information in your programs. When you understand the steps your program must perform and can describe those steps through statements and the syntax of the Visual Basic language, you're ready to begin programming.

You learned in Chapter 7, "Using Data Types, Constants, and Variables," that you can create a variable by using the Dim keyword: Dim i as Integer Just because you've created a variable, however, doesn't necessarily mean that the variable has a useful value. At some point in the program, you have to give the variable an appropriate

value. This is often referred to as initializing the variable. This job is done by the first assignment statement where the variable is the target of the assignment. Making an assignment statement is easy: you specify a variable whose value you want to set, place an equal sign after the variable name, and then follow it with the expression that represents the value you want stored in the variable. The expression can be a literal value (such as the number 1 or the characters "Frank"), a combination of other variables and constants, or functions that return a value. The following statements illustrate different types of assignment statements: 01 i = 6 02 SumScores = 2276 03 AvgScore = SumScores / NumStudents 04 TopStudent = "Sonja Swanson" 05 PrintedInvoice = true 06 txtFirstName.Text = FirstName Line 6 assigns the value of a variable, FirstName, to the value of a TextBox's Text property. This type of assignment is very common. Most properties of forms and controls are variables. They can be set at design time, but they also can be changed at runtime by using an assignment statement. You also can use a property on the right side of a statement to assign its value to a variable for further processing. For example, you could change line 6 to read a name from a text box and assign it to the variable FirstName as follows: FirstName = txtFirstName.Text Using Variable Default Values When you create a variable, Visual Basic assigns a default value to it. The actual default value depends on the variable's data type, as shown in Table 8.1. TABLE 8.1 Default Values for a Variable Data Type Value Integer Long Single Double String Boolean Variant Date 0 0 0 0 "" (blank) False EMPTY 0

Currency 0 The assignment statement on line 3 of the previous example would be valid only if a prior assignment statement had been made for the last variable on the right side of the expression. If this variable, NumStudents, still had its default value of zero, the assignment statement

would create a divide-by-zero error because we used it before we initialized it to the correct value. Unfortunately, these types of errors are usually found through testing of the program at runtime, because the values in the running program caused the error. Using Math Operators Math operations are used to determine customer bills, interest due on savings or credit card balances, average scores for a class test, and many other tasks. Visual Basic supports a number of different math operations that can be used in program statements. Table 8.2 summarizes these operations and the Visual Basic symbol for each operation. TABLE 8.2 Math Operations and the Corresponding Visual Basic Operator Symbol Operation Operator Symbol Addition Subtraction Multiplication Division Modulus + * / mod

Integer division \ Exponentiation ^ Using Addition and Subtraction Operators The two simplest math operations are addition and subtraction. If you've ever used a calculator, you already have a good idea how these operations are performed in a line of computer code. A computer program, however, gives you greater flexibility than a calculator in the operations you can perform. Your programs aren't limited to working with literal numbers (for example, 1, 15, 37.63, and -105.2). Your program can add or subtract two or more literal numbers, numeric variables, or any functions that return a numeric value. Also, like a calculator, you can perform addition and subtraction operations in any combination. Now let's look at exactly how you perform these operations in your program. As indicated in Table 8.2, the operator for addition in Visual Basic is the plus sign (+). The general use of this operator is as follows: Result = iNumberOne + iNumberTwo + iNumberThree Result is a variable (or control property) that contains the sum of the three numbers to the right of the equal sign (=). The equal sign indicates the assignment of a value to the variable. iNumberOne, iNumberTwo, and iNumberThree are numeric variables. As just described, you can also add literal numbers or return values rather than numeric variables from a function.

You can add as many numbers together as you like, but each number pair must be separated by a plus sign. The operator for subtraction is the minus sign (-). The syntax is basically the same as for addition: Result = NumberOne - NumberTwo - NumberThree Although the order doesn't matter in addition, in subtraction the number to the right of the minus sign is subtracted from the number to the left of the sign. If you have multiple numbers, the second number is subtracted from the first, the third number is subtracted from that result, and so on, moving from left to right. For example, consider the following equation: Result = 15 - 6 - 3 The computer first subtracts 6 from 15 to yield 9. It then subtracts 3 from 9 to yield 6, which is the final answer stored in the variable Result. This left-to-right processing is used in the evaluation of expressions whenever similar operations are being performed. If you really want to have 3 subtracted from 6 before it's subtracted from 15 for a Result of 12, you have to change the operator or force the program to evaluate the expression in the order you intended. (This order of execution is covered later in the section "Setting the Order of Precedence in Statements.") For now, consider the following statements and their resulting values: 1 Result = 15 "-" 3 "-" 6 `results in 6 2 Result = 15 "-" 6 + 3 `results in 12 3 Result = 3 - 6 + 15 `results in 12 Using a variable on both sides of the assignment operator If you aren't familiar with computer programming, line 5 may look a little funny to you. In fact, that line isn't allowed in some programming languages. In Visual Basic, however, you can enter a line of code that tells the program to take the current value of a variable, add another number to it, and then store the resulting value back in the same variable. You also can do this with string variables. (You'll see this done later in the section "Using the Concatenating String.")

Lines 2 and 3 show that you can also use similar operators in combination with one another. The following code lines are a few more valid math operations: 1 dValOne = 1.25 + 3.17 `results in 4.42 2 dValTwo = 3.21 - 1 `results in 2.21 3 dValThree = dValTwo + dValOne `results in 6.63 4 dValFour = dValThree + 3.75 - 2.1 `results in 8.28 5 dValFour = dValFour + 1 `results in 9.28

Using the Multiplication Operator You simply use the multiplication operator--the asterisk (*)--to multiply two or more numbers. The syntax of a multiplication statement is almost identical to the ones used for addition and subtraction, as follows: Result = iNumberOne * iNumberTwo * iNumberThree As before, Result is the name of a variable used to contain the product of the numbers being multiplied, and iNumberOne, iNumberTwo, and iNumberThree are numeric variables. Again, you also can use literal numbers or a return value from a function. Complete listings and sample programs on the Web site After you reach our Web site, you'll be asked to enter an ISBN. You should enter 078971633x, and then click the Search button to go to the Book Info page for Using VB6, where you can download the code.

As a demonstration of how multiplication and division might be used in a program, consider the example of a program to determine the number of rolls of wallpaper needed to cover a wall in a room. This program contains a form that lets the homeowner enter the width and height of the wall with the length, width, pattern match, and cost of the wallpaper. The program then calculates the number of wallpaper rolls required and the total cost of the project. Listing 8.1 shows some of the actual code used to perform the calculations. The complete code listing for this example is in the project prjWallpaper.vbp on the MCP Web site (http://www.mcp.com/info) that supports this book. It's a good idea to make sure that the value contained in a string variable "looks" like a number and that the string isn't empty before you assign it to a numeric variable. Line numbering and VB example code The code in the listing text throughout this chapter is syntactically and operationally identical to the code in the sample programs on the Web site, except that each line of code is numbered. The code in the sample programs is fully commented to help you understand the various ideas and techniques used to create the program without having to reference back to the book.

LISTING 8.1 08LIST01.TXT--Using Multiplication and Division Operators to Estimate 01 Private Sub cmdCalc_Click() 02 Dim WallWidth As Integer `Width of walls 03 Dim WallHeight As Integer `Height of walls 04 Dim RollLength As Integer `Length of the roll 05 Dim RollWidth As Integer `Width of the roll

06 Dim PatternMatch As Integer `Amount of pattern match 07 Dim CutLength As Integer `Length of each piece 08 Dim Remn As Integer `Length of remnant 09 Dim PiecePerRoll As Integer `Number pieces per roll 10 Dim NumofRoll As Integer `Number rolls needed 11 Dim dRollCost As Double `Cost of each roll 12 Dim dProjectCost As Double `Total project cost 13 Dim Msg As String `Message variable 14 15 `Make sure the txtWallWidth TextBox is not blank 16 If txtWallWidth.Text <> "" Then 17 `Check to make sure the text is a numeral then 18 `convert the text to the appropriate data type 19 `and assign the numeric value to the variables 20 If IsNumeric(txtWallWidth.Text) Then 21 WallWidth = CInt(txtWallWidth.Text) 22 Else 23 `It is not a number go back to the TextBox. 24 `Make a message 25 Msg = "Wall Width needs to be numeric. " 26 Msg = Msg & "Please enter a number." 27 `Display the message 28 MsgBox Msg, vbExclamation, "Data entry error" 29 `Send the mouse cursor back to the TextBox 30 txtWallWidth.SetFocus 31 `Leave the Sub 32 Exit Sub 33 End If 34 Else 35 `If it is blank, send the cursor back to the 36 `blank TextBox. 37 `Make a message 38 Msg = "You cannot leave Wall Width blank. " 39 Msg = Msg & "Please enter a number." 40 `Display the message 41 MsgBox Msg, vbExclamation, "Data entry error" 42 `Send the mouse cursor back to the TextBox 43 txtWallWidth.SetFocus 44 `Leave the Sub 45 Exit Sub 46 End If ... 213 `Make sure PatternMatch is greater than zero 214 If PatternMatch > 0 Then 215 Remn = (WallHeight Mod PatternMatch) 216 If Remn > 0 Then 217 CutLength = ((WallHeight - Remn) + PatternMatch) 218 Else 219 CutLength = WallHeight 220 End If

221 Else 222 CutLength = WallHeight 223 End If 224 225 `Make sure RollLength is greater than zero 226 If CutLength > 0 Then 227 PiecePerRoll = RollLength \ CutLength 228 Else 229 PiecePerRoll = RollLength 230 End If 231 232 `Make sure RollWidth and PiecePerRoll greater than 0 233 If RollWidth > 0 And PiecePerRoll > 0 Then 234 NumofRoll = (WallWidth / RollWidth) 235 NumofRoll = (NumofRoll / PiecePerRoll) + 0.4999 236 Else 237 NumofRoll = 0 238 End If 239 240 `Calculate the project cost 241 dProjectCost = NumofRoll * dRollCost 242 243 `Display the results in the answer boxes 244 lblCutLen.Caption = CStr(CutLength) 245 lblNumRolls.Caption = CStr(NumofRoll) 246 lblTotalCost.Caption = CStr(dProjectCost) 247 End Sub Error checking and documentation Being able to make concise, robust statements is fundamental to computer programming. As your Visual Basic programming skills develop, you'll find that the functional line count in your code will shrink while the error handling and documentation line count will grow. As you can write well-behaved statements that do more with less, you will want to document and protect your programs. Getting to this point, however, takes time, practice, and experience. Right now, if you can write clear and accurate statements, you'll be in good shape.

Notice that line 20 of Listing 8.1 uses the IsNumeric() function. This function tests that the values input are numeric. The txtWallWidth TextBox is also checked for blank values. The purpose of lines 15 to 46 is purely for error checking this one TextBox. (In the complete listing, you'll find that each TextBox is checked in turn before the calculations are made.) Starting at line 213 in the listing, notice that the program checks for zero values in all variables that will be used as divisors. This is to prevent the error.

Using the Division Operator Division in Visual Basic is a little more complicated than multiplication. In Listing 8.1, you saw three types of division used. The type you may find most familiar is the first one used in line 234. This type is known as floating-point division (the normal type of division). This type of division returns a number with its decimal portion, if one is present. Math operators work left to right As with addition, subtraction, and multiplication, if you perform division on more than two successive numbers, a division operator must separate each number. Also, as with the other operations, multiple operators are handled by reading the equation from left to right.

Floating-point division is the typical division you learned in school. You divide one number by another and the result is a decimal number. The floating-point division operator is the forward slash, (/), as seen in the following: Result = NumberOne / NumberTwo Result = 2.3 / 2 `result in 1.15 Visual Basic supports two other ways to divide numbers: integer division and modulus (or remainder) division. Integer division divides one number into another, and then returns only the integer portion of the result. The operator for integer division is the backward slash (\): Result = NumberOne \ NumberTwo Result = 2.3 \ 2 `The value of Result is 1 An example in Listing 8.1 is located on line 227, where the goal is to find out the number of cut lengths that can be cut from each roll. Modulus or remainder division divides one number into another and returns what's left over after you obtain the largest integer quotient possible. The modulus operator is the word Mod, as follows: Result = NumberOne Mod NumberTwo Result = 11 Mod 3 `result in 2 `(11/3 = 3 with a remainder of 2) Modulus is used on Line 215 to calculate the amount of additional wallpaper required on each cut length to allow for the pattern match. This remainder is then used to determine the cut length of each strip of wallpaper for the project.

Using Exponents Exponents also are known as powers of a number. For example, 2 raised to the third power is equivalent to 2x2x2, or 8. Exponents are used quite a lot in computer operations, in which many things are represented as powers of two. Exponents also are used extensively in scientific and engineering work, where many things are represented as powers of 10 or as natural logarithms. Simpler exponents are used in statistics, in which many calculations depend on the squares and the square roots of numbers. To raise a number to a power, you use the exponential operator, a caret (^). Exponents greater than one indicate a number raised to a power. Fractional exponents indicate a root, and negative exponents indicate a fraction. The following is the syntax for using the exponential operator: Result = NumberOne ^ Exponent The following equations show several common uses of exponents. The operation performed by each equation is also indicated. Sample Exponent Function Performed 3^2=9 9 ^ 0.5 = 3 2 ^ -2 = 0.25 The square of the number The square root of the number The fraction obtained by using a negative exponent

Setting the Order of Precedence in Statements Consider the following statement: x=9+4*2 Depending on how you look at it, x could have two values--26 or 17. If you do the addition of 9 + 4 first and then multiply by 2, you get 26. However, if you multiply 4 * 2 first and then add 9, you get 17. The answer you get depends on the order in which things happen. This order is referred to as order of precedence. In Visual Basic, the default order of precedence is that in a statement with multiplication/division operators and addition/subtraction operators, multiplication/division is performed first, before the addition/subtraction. In the preceding example, the default answer is 17. Other operators, such as comparison, logical, and string, are also affected by precedence. When multiple types of operators are in a single statement, operator precedence controls what's performed first. Math operators are performed first, then comparison operators, and finally logical operators (see Table 8.3). TABLE 8.3 Precedence Order of Visual Basic Operators Operation Operator Symbol Exponentiation ^

Negation (unary) Integer division Modulus Addition, subtraction

\ mod +, -

Multiplication, division *, /

Concatenation (string) & Comparison operators =, <>, <, >, <=, >+ Logical operators Not, And, Or, Xor, Eqv, Imp, Like, Is

Controlling the order of operations Experienced programmers use parentheses to define the ordering of operations within their programs. Using parentheses to define order of precedence removes ambiguity. You'll want to use parentheses in your code. Doing so doesn't affect the speed of your program and assures the accuracy and clarity of your code.

Parentheses are used to control specifically which parts of a statement are performed first. Without parentheses, operator precedence allows the program to determine what operation to do first. To ensure that arithmetic operations happen in the order you want them to, you can use parentheses to group operations. For example, by using the preceding statement, you could group operations as x = (9 + 4) * 2 or x = 9 + (4 * 2) `results in 17 `results in 26

Concatenating Strings Visual Basic supports only one string operator, the concatenation operator. This operator combines two or more strings of text, similar to the way the addition operator is used to combine two or more numbers. The concatenation operator is the ampersand symbol (&). When you combine two strings with the concatenation operator, the second string is added directly to the end of the first string. The result is a longer string containing the full contents of both source strings. (For more information about strings, read Chapter 12, "Working with Strings and Typecasting.") The concatenation operator is used in an assignment statement as follows: NewString = stringOne & stringTwo & stringThree In this syntax, NewString represents the variable that contains the result of the concatenation operation. stringOne, stringTwo, and stringThree all represent string expressions. These can

be any valid strings, including string variables, literal expressions (enclosed in quotation marks), or functions that return a string. The ampersand between a pair of string expressions tells Visual Basic to concatenate the two expressions. The ampersand must be preceded and followed by a space. The syntax shows an optional second ampersand and a third string expression. You can combine any number of strings with a single statement. Just remember to separate each pair of expressions with an ampersand. Concatenation operator from previous versions is supported If you're working on converting programs from an older version of Visual Basic, you may find strings combined with the plus- sign operator. This was prevalent in versions of Visual Basic prior to version 4, as well as in older BASIC languages. Although Visual Basic still supports the plus-sign operator for backward compatibility, you should use the ampersand for any work that you do to avoid confusion with the mathematical addition operation.

Listing 8.2 shows how the concatenation of strings is used in a simple program to generate mailing labels. On line 48, the fields from the different text boxes are combined to create the different lines of the mailing label. The complete code for this example is in the project prjName.vbp on the MCP Web site (http://www.mcp.com/info) that supports this book. LISTING 8.2 08LIST02--How OptionButtons are Used to Make Exclusive Choices 01 Private Sub cmdShowName_Click() 02 Dim strTitle As String 03 Dim strFirst As String 04 Dim strLast As String 05 Dim strFullName As String ... 37 `Assign the value in the TextBox to a string 38 strFirst = txtFirstName.Text 39 strLast = txtLastName.Text 40 41 `Assign the Title of the selected one to a string 42 If optMr.Value Then strTitle = "Mr. " 43 If optMrs.Value Then strTitle = "Mrs. " 44 If optMiss.Value Then strTitle = "Miss " 45 If optMs.Value Then strTitle = "Ms. " 46 47 `Put the strings together 48 strFullName = strTitle & strFirst & " " & strLast 49 50 `Display the results in the answer box 51 lblFullName.Caption = strFullName 52 End Sub A simple name-reporting program illustrates the function of the concatenation operator.

Also, you saw string concatenation used previously in the prjWallpaper example in Listing 8.1. The statement used to build a message for the error MessageBox (on lines 24 and 25) is Msg = "Wall Width needs to be numeric. " Msg = Msg & "Please enter a number." This is an example of concatenating a string onto a single-string variable. Another way to solve the problem above is to use the line-continuation characters (_), which are used on line 217 in Listing 8.1. The "space + underscore" characters allow a single program statement to extend over several contiguous lines in the program. There are limitations in its use, such as not following the line-continuation characters with a comment. The previous example would have been written as follows if the line- continuation character had been used: Msg = "Wall Width needs to be numeric. " & _ "Please enter a number." This would have eliminated the second assignment statement, which would make the code slightly more efficient. Working with Conditional Statements

Making Decisions in Your Program Writing If...Then Statements o Writing a Single-Line If Statement o Executing Multiple Commands in the Conditional Statement o Using If...Then...Else Statements o Working with Multiple If Statements o Using Nested If Statements Using the Select Case Statement o Using Relational Operators in Select Case Blocks

Making Decisions in Your Program Most statements in your programs will be assignment statements, but other statements are important for handling more complex tasks. These statements are known collectively as control statements. Without control statements, you couldn't write a very flexible program. Your program would start at the first line of code and proceed line by line until the last line was reached. At that point, the program would stop. One type of control statement is the decision statement. These statements are used to control the execution of parts in your program, based on conditions that exist at the time the statement is encountered. Two main types of decision statements are If...Then and Select Case. The IF Statement

Most programmers don't really understand the importance of the IF statement because it's so common in the programming environment. IF statements use comparison operators to test data values. Comparison operators or conditional operators test conditions that are either true or false. With this simple programming statement and its cousins, you can initiate complex calculations.

Writing If...Then Statements In Visual Basic, you can write an If...Then statement for handling True conditions in two ways: the single-line If...Then statement and the multiline If...Then statement. Each uses the If...Then keywords to check a condition. If the condition is True, the program runs the commands associated with the If...Then statement. If the condition is False, the commands are skipped. Writing a Single-Line If Statement The single-line If statement is used to perform a single task when the condition in the statement is True. The following is the syntax of the single-line If statement: If condition Then command The condition represents any type of statement or function that evaluates to True. The condition can be any of the following:

A comparison of a variable to a literal, another variable, or a function A variable that contains a True or False value Any function that returns a True or False value

The command represents the task to be performed if the condition is True. This can be any valid Visual Basic statement other than a variable declaration. The way this program works is that you enter a number in each of the two upper TextBoxes, select a math operation, and then click the CommandButton. The program performs the selected math operation on the numbers and displays the result in a third TextBox. The Simple Calculator makes decisions in an If...Then statement, based on the value of the OptionButton. The program decides which math operation to perform by evaluating the setting of the Value property of the OptionButton assigned to each operation. If the Value property of an OptionButton is set to True, the program does the associated math operation. The following shows the If statement from the program. This conditional statement performs the associated math operation if True and is an example of a single-line If statement. If optAddition.Value = True Then z = x + y

Listing 9.1 shows the entire code for the event procedure for the click of the cmdOperation CommandButton, the button that users click to perform the selected math operation.

LISTING 9.1 09LIST01.TXT--Making Decisions Based OptionButton 01 Private Sub cmdOperation_Click() 02 `Declare a variable for the first number 03 Dim x As Double 04 05 `Declare a variable for the second number 06 Dim y As Double 07 08 `Declare a variable to hold the sum of both numbers 09 Dim z As Double 10 11 `Convert the text inputted into the text box 12 `into an integer and assign it to the first variable 13 x = CDbl(txtNumOne.Text) 14 15 `Convert the text imputted into the text box 16 `into an integer and assign it to the second variable 17 y = CDbl(txtNumTwo.Text) 18 19 `Decide what operation to do based on the 20 `value of selected option but'ton 21 If optAddition.Value = True Then z = x + y 22 23 If optSubtraction.Value = True Then z = x - y 24 25 If optMultiplication.Value = True Then z = x * y 26 27 `For division, make sure that the second number is 28 `not equal to zero. You cannot divide a number by 29 `zero. Blows up! 30 If optDivision.Value = True Then 31 If y <> 0 Then 32 z = x / y 33 Else 34 `Report an error 35 MsgBox "Cannot divide by zero", vbCritical, "Error" 36 End If 37 End If 38 `Convert the third variable (which is a Double) 39 `to text and assign it to the text property of the 40 `textbox for the result. 41 txtTotal.Text = CStr(z) 42 End Sub

on

the

Value

of

an

Executing Multiple Commands in the Conditional Statement If you need to execute more than one command in response to a condition, you can use a block If...Then statement. A block If...Then statement bounds a range of statements between the If...Then statement and an End If statement. If the condition in the If...Then statement is True, all the commands between the If...Then and End If statements are run. If the condition is False, the program skips to the first line after the End If statement. The structure of a multiple-command If statement is as follows: If condition Then Command1 Command2 Commandn End If in which If and Then are the Visual Basic keywords that "bracket" the condition, and End If are the keywords that end the code block. Listing 9.2 shows a portion of code that enhances the cmdOperation_Click() event procedure from Listing 9.1. LISTING 9.2 09LIST02.TXT--Using Multiple Statement 01 `Decide what operation to do based on the 02 `value of selected option button 03 If optAddition.Value = True Then 04 z = x + y 05 frmMain.Caption = "Addition" 06 End If 07 08 If optSubtraction.Value = True Then 09 z = x - y 10 frmMain.Caption = "Subtraction" 11 End If 12 13 If optMultiplication.Value = True Then 14 z = x * y 15 frmMain.Caption = "Multiplication" 16 End If Commands in an If...Then

Whereas the code in Listing 9.1 invokes only one command when an If...Then statement evaluates True (see line 21 of Listing 9.1), the code in Listing 9.2 invokes two commands when the If...Then statement evaluates True (see lines 3-6 in Listing 9.2). Using If...Then...Else Statements As you learned earlier, sometimes you might encounter this situation: If one condition exists, you do one set of commands, and if it doesn't, you do another set. For example, If you have money in your checking account, write a check; Else, transfer funds from your savings

account into the checking account. This is called an If...Then...Else statement. If...Then...Else takes the following format: If condition Then statements to process if condition is True Else statements to process if condition is False End If The If and End If statements of this block are the same as before. The condition is still any logical expression or variable that yields a True or False value. The key element in this set of statements is the Else statement. This statement is placed after the last statement to be executed if the condition is True, and before the first statement to be executed if the condition is False. For a True condition, the program processes the statements up to the Else statement and then skips to the first statement after the End If. If the condition is False, the program skips the statements before the Else statement and starts processing with the first statement after the Else. You saw the following code snippet at the end of Listing 9.1. This is an excellent example of a simple If...Then...Else statement. If the value of the variable y doesn't equal zero (line 30), the program does some division (line 31); otherwise, the program displays a Windows message box with an error message (line 34). 30 If optDivision.Value = True Then 31 If y <> 0 Then 32 z=x/y 33 Else 34 `Report an error 35 MsgBox "Cannot divide by zero", vbCritical, "Error" 36 End If 37 End If If you want to execute code for only the False portion of the statement, you can place code statements between the Else and End If statements; you aren't required to place any statements between the If and Else statements: If x <= 1 then Else MsgBox "X is not greater than 1" End If Working with Multiple If Statements In the preceding sections, you saw simple If...Then statements, which evaluate one condition and can execute commands for a True or False condition. You can also evaluate multiple conditions with an additional statement in the block. If...Then...ElseIf statements let you specify another condition to evaluate whether the first condition is False. By using the ElseIf statement, you can evaluate any number of conditions.

Listing 9.3 shows a snippet of code from the program Grader.EXE from the project grader.vbp, available from the Web site associated with this book. The code snippet uses the ElseIf conditional structure as a way to determine the grade for a test, based on a range of correct answers. The Grader program uses If...Then...ElseIf statements to determine a grade based on correct answers. LISTING 9.3 09LIST03.TXT--Using Conditions 01 If CorrectAnswers% >= 10 Then 02 strGrade = "A" 03 ElseIf CorrectAnswers% = 9 Then 04 strGrade = "A-" 05 ElseIf CorrectAnswers% = 8 Then 06 strGrade = "B" 07 ElseIf CorrectAnswers% = 7 Then 08 strGrade = "B-" 09 ElseIf CorrectAnswers% = 6 Then 10 strGrade = "C" 11 ElseIf CorrectAnswers% = 5 Then 12 strGrade = "C-" 13 ElseIf CorrectAnswers% = 4 Then 14 strGrade = "D" 15 ElseIf CorrectAnswers% = 3 Then 16 strGrade = "D-" 17 Else 18 strGrade = "F" 19 End If ElseIf Statements to Evaluate Multiple

This code works first by evaluating the condition in the If statement (line 1). If the condition is True, the statement (or statements) immediately following the If statement is executed (line 2), and then the program skips to the first statement after the End If statement (line 19). If the first condition is False, the program skips to the first ElseIf statement (line 3) and evaluates its condition. If this condition is True, the statements following the ElseIf are executed (line 4), and control again passes to the statement after the End If. If the condition evaluates to False, control passes to the next ElseIf statement. This process continues for as many ElseIf statements as are in the block. If all the conditions are False, the program skips to the Else statement and processes the commands between the Else (line 17) and the End If statements. The Else statement isn't required. Using Nested If Statements If you need to test for a condition that depends on whether another condition is already True (such as "If it's 6:30 a.m. and if it's a weekday"), use nested If statements. A nested If statement is one that's enclosed within another If statement. The format for a nested If statement is as follows:

If condition Then If another_condition Then statement Else another statement End If End If The following code snippet demonstrates a nested If statement. You originally saw it in the cmdOperation Click() event procedure in Listing 9.1. 30 If optDivision.Value = True Then 31 If y <> 0 Then 32 z=x/y 33 Else 34 `Report an error 35 MsgBox "Cannot divide by zero", vbCritical, "Error" 36 End If 37 End If Using the Select Case Statement Another way to handle decisions in a program is to use the Select Case statement, which enables you to run any of a series of statement groups, based on the value of a single variable. The Select Case statement identifies the variable to be evaluated, and then a series of Case statements specifies the possible values. If the value of the variable matches the value (or values) indicated in the Case statement, the commands after the Case statement are executed. If the value doesn't match, the program proceeds to the next Case statement. The Select Case structure is similar to a series of If...Then...ElseIf statements. The following lines of code show the syntax of the Select Case block: Select Case TestValue Case Value1 Statement_Group_1 Case Value2 Statement_Group_2 End Select Correct character order Pay particular attention to the order of characters in the less-than and greater-than symbols. They must be ordered as shown previously. Using => or =< will produce an error.

Select Case limitations

You should never use Select Case if a simple If...Then...Else statement will work. Sometimes using Select Case can be overkill and add to the confusion that complex logic statements can provide.

The first statement of the Select Case block is the Select Case statement itself. This statement identifies the value to be tested against possible results. This value, represented by the TestValue argument, can be any valid numeric or string expression, including a literal, a variable, a logical expression, or a function. Each conditional group of commands (run if the condition is met) is started by a Case statement. The Case statement identifies the expression to which the TestValue is compared. The Case statement can express a single value or a range of values. If the TestValue is equal to or within range of the expression, the commands after the Case statement are run. The program runs the commands between the current Case statement and the next Case statement or the End Select statement. If the TestValue isn't equal to the value expression or doesn't fall within a range defined for the Case statement, the program proceeds to the next Case statement. Listing 9.4 shows you a Select Case statement that tests for equality. Listing 9.5 shows you a Select Case statement that tests for a range. LISTING 9.4 09LIST04.TXT--Testing for Equality in a Select Case Statement 01 Select Case x% 02 Case 1: 03 MsgBox "I am 1" 04 Case 2: 05 MsgBox "I am 2" 06 End Select LISTING 9.5 09LIST05.TXT--Testing for a Range in a Select Case Statement 01 Select Case x% 02 Case 6 To 9 03 MsgBox "I am more than 5 and less than 10" 04 Case 101 To 199 05 MsgBox "I am more than 100 and less than 200" 06 Case Else 07 MsgBox "Not in Range" 08 End Select The simplest form of the Select Case block uses only a single value for the comparison expression. Listing 9.6 shows a Select Case statement that accomplishes the same thing that the If...Then...ElseIf code in Listing 9.3 does. The benefit of using a Select Case to accomplish the grading task is that the code is easier to read and easier to extend. LISTING 9.6 09LIST06.TXT--Rewriting Select Case Statement 01 Private Sub cmdGrader_Click() 02 Dim CorrectAnswers% an If...Then...ElseIf Statement as a

03 Dim strGrade As String 04 05 `Get the correct answers from the textbox 06 CorrectAnswers% = CInt(txtNumberRight.Text) 07 08 `Assign the grade based on the correct answers 09 Select Case CorrectAnswers% 10 Case 10 11 strGrade = "A" 12 Case 9 13 strGrade = "A-" 14 Case 8 15 strGrade = "B" 16 Case 7 17 strGrade = "B-" 18 Case 6 19 strGrade = "C" 20 Case 5 21 strGrade = "C-" 22 Case 4 23 strGrade = "D" 24 Case 3 25 strGrade = "D-" 26 Case Else 27 strGrade = "F" 28 End Select 29 `Display the grade 30 lblGrade.Caption = strGrade 31 End Sub When it comes time to add another grade level--say, an A+ if the student correctly answers 11 in the following example--all you need is to add a new case, Case 11 (see Listing 9.7, line 3). If you were to use the ElseIf technique, you would have to rewrite significant portions of the If...Then...ElseIf code block. LISTING 9.7 09LIST07.TXT--Extending a Select Case Statement 01 Select Case CorrectAnswers% 02 `Add a case for 11 correct answers 03 Case 11 04 strGrade = "A+" 05 Case 10 06 strGrade = "A" 07 Case 9 08 strGrade = "A-" 09 Case 8 10 strGrade = "B" 11 Case 7 12 strGrade = "B-" 13 Case 6 14 strGrade = "C"

15 Case 5 16 strGrade = "C-" 17 Case 4 18 strGrade = "D" 19 Case 3 20 strGrade = "D-" 21 Case Else 22 strGrade = "F" 23 End Select Using Relational Operators in Select Case Blocks You can also use relational operators in a Select Case block. Sometimes you might want to test for cases within a range perhaps greater than or less than a certain number. To accomplish this with a Select Case block, you must use the Is keyword. To test within a certain range, use the To keyword as you saw earlier in Listing 9.5. Just as you can check to see whether equality exists between two quantities with the = sign, you can also check to see whether numbers are less than, greater than, or not equal to one another. Table 9.1 shows the relational operators that you can use in your conditional statements. Correct character order Pay particular attention to the order of characters in the less-than and greater-than symbols. They must be ordered as shown previously. Using => or =< will produce an error.

TABLE 9.1 Relational Operators Symbol Meaning Example Result = > < >= <= <> Equal Greater than Less than Less than or equal to Not equal to 8=9 8>9 8<9 7 <= 6 6 <> 7 False False True True False True

Greater than or equal to 8 >= 8

Line 3 of Listing 9.8 shows you how to use the Is keyword to create a greater-than statement within a Select Case block. Notice that the relational operator (>) is used to make any number of correct answers greater than 11 result in a grade of A++. LISTING 9.8 09LIST08.TXT--Using Relational Operators with Select Case Statements 01 Select Case CorrectAnswers% 02 `Make any answer greater than 11 an A++ 03 Case Is > 11 04 strGrade = "A++"

05 Case 11 06 strGrade = "A+" 07 Case 10 08 strGrade = "A" 09 Case 9 10 strGrade = "A-" 11 Case 8 12 strGrade = "B" 13 Case 7 14 strGrade = "B-" 15 Case 6 16 strGrade = "C" 17 Case 5 18 strGrade = "C-" 19 Case 4 20 strGrade = "D" 21 Case 3 23 strGrade = "D-" 24 Case Else 25 strGrade = "F" 26 End Select Select Case statements are a powerful addition to your programming toolkit and take you to the next level of programming expertise. As you learn more about them, you will understand how to use If statements and Select Case statements together to make very detailed, extended decisions within your programs.

You might also like