Sử dụng TextBox, Label kết hợp với Command Button Sử dụng TextBox, Label kết hợp với Command Button Bởi: Khoa CNTT ĐHSP KT Hưng Yên • TextBox đ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 người sử dụng • Label điều khiển cho phép hiển thị thông tin mà người dùng sửa đổi hay tương tác Nó thường sử dụng mang tính chất thích cho điều khiển khác người dùng • Command button điều khiển thường dùng để thực thi công việc người dùng click chuột (Các điều khiển khác làm nút lệnh command trực quan chuẩn tắc hơn) Thực hành: Thiết kế chương trình hình vẽ với yêu cầu: • • • • • • Khi click vào nút "Hiển thị" hiển thị nội dung textbox Khi click vào nút "Xoá" xoá nội dung textbox Khi click vào nút "Cấm" cấm người dùng soạn thảo textbox Khi click vào nút "Soạn thảo" phép soạn textbox Khi click vào nút "Ẩn" ẩn Textbox, Click vào nút "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 Giao diện chương trình Đặt tên điều khiển 1/3 Sử dụng TextBox, Label kết hợp với Command Button Loại điều khiển Tên điều khiển (Name) Caption (nhãn) Form frmMain Sử dụng điều khiể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 Form 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 hộp textbox End Sub Private Sub cmdHienThi_Click() MsgBox "Nội dung textbox : " & txtMsg.Text End Sub 2/3 Sử dụng TextBox, Label kết hợp với Command Button 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 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 điều khiển không chứa dấu cách, ký tự đặc biệt không trùng với từ khoá • Thuộc tính name nên thêm vào tiền tố gồm ký tự, viết tắt loại điều khiển đó, ví dụ : cmd, lbl, txt, lst, cbo, pic, img … • Thuộc tính Enable qui định người dùng có phép tương tác với điều khiển hay không, giá trị true có phép • Thuộc tính Visible qui định tính chất ẩn hay hiện, True • Thuộc tính Text cho biết nội dung văn thời chứa textbox Có thể lấy thay đổi nội dung textbox thông qua thuộc tính • Câu lệnh End dùng để thoát khỏi chương trình • Có thể vào menu Format để lề đặt độ rộng, độ giãn cách cho điều khiển 3/3