Giáo trình Visual Basic 3

Giáo trình Visual Basic

1- CheckBox: hộp kiểm tra

Dùng để kiểm tra trong chương trình, xem người sử dụng chọn phương án nào trong hai phương án

Các thuộc tính đáng chú ý:

1- Text : đặt tên chức năng

2- CheckSate : các giá trị Checked; Unchecked – giá trị boolean (true/false)

Ví dụ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

If CheckBox1.Checked = TrueThen

MsgBox("có check")

Else

MsgBox("không check")

EndIf

EndSub

2- TextBox: hộp text

Dùng để nhập dữ liệu , dùng để hiện dữ liệu, thông báo trong quá trính tính toán, nhâp mật khẩu

A- Các tính chất đáng chú ý:

- Backcolor; BoderStyle, Font,ForeColor

- MultiLine (True/False)

- PassWordChar: nhập kí tự che mật khẩu

- ScrollBars: cuộn khi nhập nhiều

dòng(vertical/horizontal/both)

Ví dụ Đặt PassWordChar có giá trị “*”

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(TextBox1.Text)

End Sub

B- Các sự kiện đáng chú ý- dùng nhập dữ liệu

-Sự kiện KeyPress: bắt sự kiện gõ các phím kí tự

Ví dụ 1

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If (Convert.ToByte(e.KeyChar) = 13) Then

MsgBox("gõ enter")

EndIf

EndSub

Ví dụ 2

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If (Asc(e.KeyChar) = 13) Then

MsgBox("thôi nhập")

EndIf

EndSub

-Sự kiện KeyDown: bắt sự kiện gõ các phím điều khiển

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If (e.KeyCode = Keys.Enter) Then

MsgBox("gõ phim enter")

EndIf

End Sub

3-GroupBox: hộp nhóm các control

- Nhóm theo chức năng công việc

- Tác dụng , thiết kế rõ ràng, tiện và dễ cho người sử dụng

- Làm ngắn gọn công việc lập trình nhờ thuộc tính visible

3-ListBox,ComboBox: Cấu trúc danh sách

- Dùng để hiện danh sách kết quả

- Dùng để lựa chọn các phương án tính toán

A- Các phương pháp đáng chú ý

- Thêm vào danh sách

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim i As Integer

For i = 0 To 100

ListBox1.Items.Add(Convert.ToString(i) + "-aaa")

ComboBox1.Items.Add(Convert.ToString(i) + "-bbbb") Next i

EndSub

+ Hủy bớt mục trong danh sách

- Hủy giá trị mục: ListBox1.Items.Remove("3-aaa")

- Hủy theo chỉ số mục ListBox1.Items.RemoveAt(2) +Chèn thêm vào trong danh sách

- ListBox1.Items.Insert(2, "ccccc")

+ Lấy chỉ số của mục

i = ListBox1.Items.IndexOf("2-aaa")

MsgBox("số thư tư=" & i)

+ Kiểm tra trong danh sách có chứa mục nào đó

If (ListBox1.Items.Contains("2-aaa")) Then

MsgBox("có chứa")

EndIf

B-Các phương pháp chọn

ComboBox1.SelectedIndex = 3

ComboBox1.SelectedItem = ("2-bbbb")

ComboBox1.SelectedText = "4-bbbb"

B-Lấy giá trị vừa chọn

Ví dụ

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ComboBox1.SelectionChangeCommitted

MsgBox(ComboBox1.SelectedIndex)

End Sub