Lable/Button thơng thường được dung để hiển thị thơng tin text đơn giản. Cho phép người dùng tác động lên thơng qua các sự kiện như click, click đúp.
Thuộc tính Mơ tả
Enable Kích hoạt hay khơng kích hoạt. Nếu mang giá trị false người dùng khơng thể tác dụng lên label/button.
Visible Hiện nếu mang giá trị true, ẩn nếu mang giá trị false
WordWrap Cho phép text nằm trên nhiều dịng nếu mang giá trị true, ngược lại text nằm trên một dịng.
Picture Hiển thị hình ảnh trên trên label/button BorderStyle Hiển thị đường viền nếu giá trị là 1.
Bảng 2.2: Các thuộc tính cơ bản của label
Sự kiện cơ bản của lable/button là click nghĩa là ta sẽ viết những hoạt động xảy ra khi người dùng click chuột vào chúng.
Ví dụ 2.3 : Dùng nhãn để xây dựng dạng câu hỏi điền vào chỗ trống với những từ cho trước như hình 2.8. Kết quả của ví dụ này là một slide trong đĩ cĩ 6 chỗ trống cần điền và 6 cụm từ cho trước. Người học sẽ điền vào chỗ trống bằng các click vào cụm từ cho sẵn sau đĩ click vào chỗ trống. Người học cĩ quyền làm lại bằng cách nhấn vào nhãn làm lại. Sau khi làm xong người học click vào nút chấm điểm để xem điểm.
Ý tưởng: Sử dụng 6 label dành cho ơ trống, 6 label dành cho cụm từ cho trước, 2
Button lần lượt cho “chấm điểm” và “làm lại”, sử dụng 1 label để trả điểm về cho học sinh. Ngồi ra cịn phải cĩ 1 label ẩn dùng để làm trung gian. Khi người dùng click vào cụm từ cho sẵn sẽ gán caption của label này cho label tạm. Khi người dùng click vào ơ trống ta gán caption của label tạm cho label ơ trống.
Hình 2.8: Bài tập điển vào ơ trống với những cụm từ cho trước dùng label
Hướng dẫn chi tiết như sau:
Bước 1: Tạo một label, gán thuộc tính font là Vni-Avo, Text Align là 2. Sau đĩ
copy ra thành 14 label.
Bước 2: Lần lượt đặt tên cho các label là: lblotrong1, lblotrong2, lblotrong3, lblotrong4, lblotrong5, lblotrong6 (dành cho các ơ trống) và lbltraloi1, lbltraloi2,
lbltraloi3, lbltraloi4, lbltraloi5, lbltraloi6 (dành cho các cụm từ cho sẵn), lbldiem
(dành cho phần ghi điểm), btnlamlai, btnchamdiem (dành cho các button làm lại và chấm điểm), lbltemp (dùng để làm label trung gian để chuyển caption của cụm từ cho trước sang ơ trống) riêng label này ta gán thuộc tính Visible là false để khơng hiện label này trên slide.
Bước 3: Khi người dùng click vào cụm từ cho trước ta sẽ gán caption của label
trung gian bằng với caption của cụm từ này.
Private Sub lbltraloi1_Click()
lbltemp.Caption = lbltraloi1.Caption
End Sub
Private Sub lbltraloi2_Click()
lbltemp.Caption = lbltraloi2.Caption
End Sub
Private Sub lbltraloi3_Click()
lbltemp.Caption = lbltraloi3.Caption
End Sub
Private Sub lbltraloi4_Click()
lbltemp.Caption = lbltraloi4.Caption
End Sub
Private Sub lbltraloi5_Click()
lbltemp.Caption = lbltraloi5.Caption
End Sub
Private Sub lbltraloi6_Click()
lbltemp.Caption = lbltraloi6.Caption
End Sub
Bước 4: Khi người dùng click vào ơ trống ta gán caption của label trung gian cho
ơ trống đĩ.
Private Sub lblotrong1_Click()
lblotrong1.Caption = lbltemp.Caption
End Sub
lblotrong2.Caption = lbltemp.Caption
End Sub
Private Sub lblotrong3_Click()
lblotrong3.Caption = lbltemp.Caption
End Sub
Private Sub lblotrong4_Click()
lblotrong4.Caption = lbltemp.Caption
End Sub
Private Sub lblotrong5_Click()
lblotrong5.Caption = lbltemp.Caption
End Sub
Private Sub lblotrong6_Click()
lblotrong6.Caption = lbltemp.Caption
End Sub
Bước 5: Khi người dùng click vào làm lại ta gán caption các ơ trống và điểm về
rỗng.
Private Sub btnlamlai_Click()
lblotrong1.Caption = "" lblotrong2.Caption = "" lblotrong3.Caption = "" lblotrong4.Caption = "" lblotrong5.Caption = "" lblotrong6.Caption = "" lblDiem.Caption = "" End Sub
Bước 6: Khi người dùng click vào nút chấm điểm khi đĩ ta sẽ lần lượt so sánh
nội dụng của ơ trống và cụm từ cho trước, nếu giống nhau (đúng) thì ta cộng dồn caption của label điểm với 1.
Private Sub btnchamdiem_Click()
lblDiem.Caption = "0"
lblDiem.Caption + 1
If lblotrong2.Caption = lbltraloi2.Caption Then lblDiem.Caption = lblDiem.Caption + 1
If lblotrong3.Caption = lbltraloi3.Caption Then lblDiem.Caption = lblDiem.Caption + 1
If lblotrong4.Caption = lbltraloi5.Caption Then lblDiem.Caption = lblDiem.Caption + 1
If lblotrong5.Caption = lbltraloi4.Caption Then lblDiem.Caption = lblDiem.Caption + 1
If lblotrong6.Caption = lbltraloi1.Caption Then lblDiem.Caption = lblDiem.Caption + 1
End Sub
Ví dụ 2.4 : Thay 2 label “chấm điểm” và “làm lại” trong ví dụ trên bằng button.
Tương tự như trên ta xĩa 2 label này, tạo 2 button mới lần lượt là
btnChamDiem, btnLamLai. Nội dung của code bên trong khơng thay đổi so với trường hợp trên, chỉ khác là nút cĩ giao diện 3D.