Giáo trình Visual Basic 3

Giáo trình Visual Basic

1- CheckBox: hộp kiểm traDù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 ánCác thuộc tính đáng chú ý:1- Text : đặt tên chức năng2- 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 = True Then MsgBox("có check") Else MsgBox("không check") End If End Sub2- TextBox: hộp textDù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ẩuA- 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 SubB- 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ụ 1Private 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") End IfEnd SubVí dụ 2Private 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") End If End Sub-Sự kiện KeyDown: bắt sự kiện gõ các phím điều khiểnPrivate 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") End If End Sub3-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 visible3-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ánA- 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 End Sub+ 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") End IfB-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ọnVí dụPrivate Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted MsgBox(ComboBox1.SelectedIndex)End Sub . 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 visible3-ListBox,ComboBox: Cấu trúc danh sách- Dùng để hiện danh sách. System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (Convert.ToByte(e.KeyChar) = 13) Then MsgBox("gõ enter") End IfEnd SubVí dụ 2Private