Giáo trình phân tích quy trình vận dụng các cú pháp trên cùng một modun với các chương trình con p4

68

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)

11.1.5. 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

Me.BackColor = vbBlack

Else

Me.BackColor = vbWhite

End If

usfCuaso1.Caption = "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.