Tạo một UserForm và viết mã lệnh để khi kích chuột vào UserForm sẽ hiển thị số lần kích chuột trên tiêu đề của nó đồng thời đổi màu nền của UserForm theo tình huống: nếu số lần kích chuột là chẵn thì màu đen, là lẻ thì màu trắng. Các thao tác như sau: 1. Thêm UserForm vào trong dự án bằng cách chọn Insert UserForm. 2. Đặt tên UserForm là “usfCuaso1” trong thuộc tính Name của cửa sổ | KeyPress xảy ra khi người dùng nhấn một phím KeyUp xảy ra khi người dùng nhả một phím sau khi đã nhấn xuống KeyDown xảy ra khi người dùng nhấn một phím nhưng chưa nhả ra MouseMove xảy ra khi người dùng rê chuột ngang qua một điều khiển hoặc trên UserForm MouseUp xảy ra khi người dùng nhả phím chuột sau khi đã nhấn chuột MouseDown xảy ra khi người dùng nhấn phím chuột nhưng chưa nhả ra . Ví dụ Tạo một UserForm và viết mã lệnh để khi kích chuột vào UserForm sẽ hiển thị số lần kích chuột trên tiêu đề của nó đồng thời đổi màu nền của UserForm theo tình huống nếu số lần kích chuột là chẵn thì màu đen là lẻ thì màu trắng. Các thao tác như sau 1. Thêm UserForm vào trong dự án bằng cách chọn Insert UserForm. 2. Đặt tên UserForm là usfCuaso1 trong thuộc tính Name của cửa sổ Properties đặt tiêu đề xuất phát của UserForm là Cua so chinh trong thuộc tính Caption của cửa số Properties. 3. Viết mã lệnh cho sự kiện Click của UserForm hiển thị cửa sổ lệnh của UserForm bằng cách nháy đúp chuột vào UserForm chọn UserForm và sự kiện Click . Mã lệnh cho thủ tục sự kiện Click như sau Private Sub UserForm_Click Static numClick As Long numClick numClick 1 If numClick Mod 2 0 Then vbBlack Else vbWhite End If Number of Click Str numClick End Sub GỢI Ý Trong đoạn mã trên vbBlack là hằng số tương ứng với màu đen vbWhite là hằng số tương ứng với màu trắng. Hai hằng số này được định nghĩa sẵn trong VB. CHƯƠNG III CƠ BẢN VỀ NGÔN NGỮ LẬP TRÌNH VISUAL BASIC . Làm việc với UserForm Các nguyên tắc làm việc với UserForm như thiết lập và thay đổi thuộc tính gọi các phương thức hay xử lý các sự kiện đã được trình bày ở phần trước. Dưới đây chỉ giới thiệu một số phương thức khác của UserForm. Hiển thị UserForm thực hiện phương thức Show vbModal vbModeless Nếu dùng vbModal hoặc 1 hộp thoại UserForm sẽ hiển thị ở dạng Modal - tức là luôn tiếp nhận tương tác người dùng với hộp thoại người dùng chỉ có thể chuyển hướng tương tác sang .
