II. VIẾT LỆNH CHO CÁC THỦ TỤC ĐÁP ỨNG BIẾN CĨ CHỌN MỤC MENU
BẢNG HỆ THỎNG MENU CỦA FORM FRMMENU
Caption Name 8&Màu-Sắc MnuMauSac ...&Chọn-Màu MnuChonMau. Š&Xanh MnuXanh ..&Đĩ. MnuDo T&rẳng MnuTrang ...&Thốt ManuThoat &Kich-Thước MnuKichThuoc. &Phĩng-To MnuPhongTo &Thu-Nhỏ MnuThuNho.
> Thủ tục Form_LoadQ: thủ tục này thực hiện ngay khi ta khởi động chương trình Menu. Thủ tục làm nhiệm vụ cho ẫn đi hai mục *Trắng” và “Thu-Nhỏ” bằng cách đặt thuộc tính
Enabled thành False
Sub Form_Load()
` Che mnuTrang vì màu trắng đang là màu nền Form
mnưTrang.Enable = False
* Che mnuThuNho vì cửa sổ Form đang ở kích thước nhỏ
mnuThuNho.Enabte = False End Sub
> Thủ tục mnuXanh_ClickQ: Thủ tục được thực hiện kHi ta
chọn lệnh “Xanh”. Thủ tục cĩ nhiệm vụ đổi màu nền của form
thành màu xanh và cho ấn đi (khơng cho chọn) mục * "Xanh", ›
đồng thời bật các mục “Đỏ” và “TT: răng” lên cho phép ta chọn.
Sub mnuXanh_ Click() ` Đặt lại màu nền là màu xanh
frmMenu.BackColor = @BColors(1)
` Che mnuXanh vì màu xanh đang là màu nền form mnuXanh.Enable = False
` Cho phép chọn màu đỏ và màu trắng
mmnuDo.Enable = Trụa
mnuTrang.Enable = True
End Sub -
> Thủ tục mnuDo _Click(): Thủ tục được thực viện khi ta chọn lệnh “Đỏ”. Thủ tục cĩ nhiệm vụ đổi màu nên của form
thành màu đỏ và cho ẩn đi (khơng cho chọn) mục “Đỏ”, đồng thời bật các mục “Xanh” và “Trăng” lên cho phép ta chọn.
Sub mnuDo_ Click()}
` Đặt lại màu nền là màu đị
frmMenu.BackColor = QBColors(4)
` Che mnuDo vì màu đỏ đang là màu nền Form mnubo.Enable = False
` Cho phép chọn màu xanh và màu trắng mnuXanh.Enable = Truẹ
mnuTrang.Enable = True End Sub
3> Thủ tục mnuTrang_Click(): Thủ tục được thực hiện khi ta
chọn lệnh “Trắng”. Thủ tục cĩ nhiệm vụ đổi màu nền của
form thành màu trắng và cho ẩn đi (khơng cho chọn) mục
“Trăng”, đồng thời bật các mục “Đỏ” và “Xanh” lên cho phép ta chọn.
Sub mnuTrang_Click()
` Đặt lại màu nền là màu trắng
frmMenu.BackColor = QBColors(15)
` Che mnuTrang vì màu trằng đang là màu nền Form mnuTrẳng.Enable = False
` Cho phép chọn màu xanh và màu đỏ mnuXanh,Enable = Trụe
mnuDo.Enable = Trụe End Sub
3> Thủ tục mnuPhongTo_ClickQ: Thủ tục thực hiện khỉ ta chọn mục *Phĩng-To”. Thủ tục làm nhiệm vụ đưa cửa số
form về dạng lớn và che mục “Phĩng-To” đi, đồng thời bật
mục “Thu-Nhỏ”.
Sub mnuPhongTo_ Click()
` Đặt cửa sổ Form ở dạng lớn
frmMenu.WindowState = 2
` Che mnuPhongTo vì cửa sổ Form đang ở kích thước lớn mnuPhongTo.Enable = False
` Cho phép đổi sang dạng cửa sổ cĩ kích thước nhỏ
mnuThuNho.Enable = True End Sub
>~ Thủ tục mnuThuNho_ClickQ: Thủ tục thực hiện khi ta chọn mục “Thu-Nhỏ”. Thủ tục làm nhiệm vụ đưa cửa sỏ form về dạng nhỏ và che mục *Thu-Nhỏ” đi. đồng thời bật mục
“Phĩng-To”.
Sub mnuThuNho_ Click()
` Đặt cửa sổ Form ở dạng nhỏ
frmMenu.WindowState = 0
` Che mnuThuNho vì cửa sổ Form đang ở kích thước nhỏ mnuThuNho.Enable = False
` Cho phép đổi sang dạng cửa sổ cĩ kích thước lớn
mnuPhongTo.Enable = True
End Sub
Lưu ý: Kích thước form phụ thuộc vào thuộc tính
WindowsState. Khi WindowState=0: Form cĩ kích thước như
túc thiết kế giao diện (Normal), WindowState=2: Form chiếm
Chương IV