[Lesson 4] << [Contents] >> [Lesson 6]
In the previous lesson, you have learned how to write simple Visual Basic 2013 code. In this lesson, you will learn how to work with some common controls and write codes for them. Some of the common controls are label, text box, button, list box and combo box. However, in this lesson, you will only deal with the text box and the label, you shall learn how to work other controls in later lessons.
5.1 Text Box
The textbox is the standard control for receiving input from the user. It can also be used to display the output. It can only handle string (text) and numeric data but not images or pictures. By the way, a string in a text box can be converted to a numeric data by using the function Val(text). The following example illustrates a simple program that processes the input from the user.
The following program will add the value in text box 1 and value in text box 2 and output the sum in a message box.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox(The sum is & Val(TextBox1.Text) + Val(TextBox2.Text)) End Sub
The output window:
After clicking Add button, you can get the answer in a message box, as shown in Figure 5.2:
5.2 The Label
The label is not only used to provide instructions and guides to the users, it can also be used to display outputs. It is different from text box because it can only display static text, which means the user cannot change the text. Using the syntax Label.Text, it can display text and numeric data. You can change its text in the properties window and also at runtime.
Based on Example 5.1, you now add two labels, one is to display the text Sum= and the other label is to display the answer of the Sum. For the first label, change the text property of the label by typing Sum= over the default text Label1. Further, change its font to bold and font size to 10. For the second label, delete the default text Label2 and change its font to bold and font size to 10. Besides that, change its background color to white.
In this program, instead of showing the sum in a message box, we wish to display the sum on the label.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub
*The function Val is to convert text to a numeric value. Without using Val, you will see that two numbers are joined together without adding them.
The output is as shown in Figure 5.3