Sử dụng TextBox, Label kết hợp với Command Button
TextBox là một điều khiển cho phép hiển thị thông tin đồng thời cho phép sửa đổi thông tin trực tiếp bởi người sử dụng. Label là điều khiển chỉ cho phép hiển thị thông tin mà người dùng không thể sửa đổi hay tương tác. Nó thường được sử dụng mang ...
- TextBox là một điều khiển cho phép hiển thị thông tin đồng thời cho phép sửa đổi thông tin trực tiếp bởi người sử dụng.
- Label là điều khiển chỉ cho phép hiển thị thông tin mà người dùng không thể sửa đổi hay tương tác. Nó thường được sử dụng mang tính chất chú thích cho các điều khiển khác đối với người dùng.
- Command button là một điều khiển thường dùng để thực thi một công việc khi người dùng click chuột. (Các điều khiển khác cũng làm được như vậy nhưng nút lệnh command thì trực quan và chuẩn tắc hơn).
Thực hành: Thiết kế chương trình như hình vẽ với các yêu cầu:
- Khi click vào nút "Hiển thị" thì hiển thị nội dung trong textbox
- Khi click vào nút "Xoá" thì xoá nội dung trong textbox
- Khi click vào nút "Cấm" thì cấm người dùng soạn thảo trong textbox
- Khi click vào nút "Soạn thảo" thì được phép soạn trên textbox
- Khi click vào nút "Ẩn" thì ẩn Textbox, Click vào nút "Hiện" thì hiện text
- Click vào nút "Thoát" để kết thúc chương trình.
Thiết kế giao diện: Như hình dưới
Giao diện chương trình
Đặt tên các điều khiển.
| Loại điều khiển | Tên điều khiển (Name) | Caption (nhãn) |
| Form | frmMain | Sử dụng các điều khiển cơ bản |
| Label | lblHuongDan | Hãy gõ nội dung… |
| Textbox | txtMsg | txtMsg (Thuộc tính Text) |
| Command button | cmdHienThi | &Hiển thị |
| Command button | cmdCam | &Cấm |
| Command button | cmdSoanThao | &Soạn |
| Command button | cmdAn | Ẩn |
| Command button | cmdHien | Hiện |
| Command button | cmdThoat | Thoát |
Viết lệnh trong Form như sau:
Option Explicit
Private Sub cmdAn_Click()
txtMsg.Visible = False '/// Ẩn hộp textbox
End Sub
Private Sub cmdCam_Click()
txtMsg.Enabled = False '/// Cấm người dùng tương tác (copy, sửa…) với textbox
End Sub
Private Sub cmdHien_Click()
txtMsg.Visible = True '/// Cho hiện hộp textbox
End Sub
Private Sub cmdHienThi_Click()
MsgBox "Nội dung trong textbox : " & txtMsg.Text
End Sub
Private Sub cmdSoan_Click()
txtMsg.Enabled = True '/// Cho phép người dùng tương tác với textbox
End Sub
Private Sub cmdXoa_Click()
txtMsg.Text = "" '/// Gán nội dung là xâu rỗng, tương đương với việc xoá
End Sub
Private Sub cmdThoat_Click()
End '/// Thoát khỏi chương trình
End Sub
Ghi chú:
- Thuộc tính name của điều khiển không được chứa dấu cách, ký tự đặc biệt và không được trùng với từ khoá.
- Thuộc tính name nên thêm vào tiền tố gồm 3 ký tự, là viết tắt của loại điều khiển đó, ví dụ : cmd, lbl, txt, lst, cbo, pic, img …
- Thuộc tính Enable qui định rằng người dùng có được phép tương tác với điều khiển hay không, giá trị true là có được phép
- Thuộc tính Visible qui định tính chất ẩn hay hiện, True là hiện.
- Thuộc tính Text cho biết nội dung văn bản hiện thời chứa trong textbox. Có thể lấy về hoặc thay đổi nội dung textbox thông qua thuộc tính này.
- Câu lệnh End dùng để thoát khỏi chương trình.
- Có thể vào menu Format để căn lề và đặt độ rộng, độ giãn cách bằng nhau cho các điều khiển.
