Đang tải... (xem toàn văn)
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 người dùng nhấn phím KeyUp xảy người dùng nhả phím (sau nhấn xuống) KeyDown xảy người dùng nhấn phím (nhưng chưa nhả ra) MouseMove xảy người dùng rê chuột ngang qua điều khiển UserForm MouseUp xảy người dùng nhả phím chuột (sau nhấn chuột) MouseDown xảy người dùng nhấn phím chuột (nhưng chưa nhả ra) 11.1.5 Ví dụ Tạo UserForm viết mã lệnh để kích chuột vào UserForm hiển thị số lần kích chuột tiêu đề đồng thời đổi màu UserForm theo tình huống: số lần kích chuột chẵn màu đen, lẻ màu trắng Các thao tác sau: Thêm UserForm vào dự án cách chọn Insert Ö UserForm Đặt tên UserForm “usfCuaso1” thuộc tính Name cửa sổ Properties; đặt tiêu đề xuất phát UserForm “Cua so chinh” thuộc tính Caption cửa số Properties Viết mã lệnh cho kiện Click UserForm (hiển thị cửa sổ lệnh UserForm cách nháy đúp chuột vào UserForm, chọn UserForm kiện Click) Mã lệnh cho thủ tục kiện Click sau: Private Sub UserForm_Click() Static numClick As Long numClick = numClick + If numClick Mod = 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 số tương ứng với màu đen, vbWhite số tương ứng với màu trắng Hai số định nghĩa sẵn VB 68 CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC 11.2 Làm việc với UserForm Các nguyên tắc làm việc với UserForm thiết lập thay đổi thuộc tính, gọi phương thức hay xử lý kiện trình bày phần trước Dưới giới thiệu số phương thức khác UserForm Ø Hiển thị UserForm: thực phương thức Show Tên_UserForm.Show [vbModal/ vbModeless] Nếu dùng vbModal (hoặc 1): hộp thoại (UserForm) hiển thị dạng Modal – tức tiếp nhận tương tác người dùng với hộp thoại, người dùng chuyển hướng tương tác sang nơi khác đóng hộp thoại Đây kiểu hiển thị mặc định hộp thoại Nếu dùng vbModeless (hoặc 0): hộp thoại hiển thị người dùng chuyển hướng tương tác sang nơi khác mà khơng cần đóng hộp thoại Ø Ẩn UserForm: gọi phương thức Hide Tên_UserForm.Hide Ø Quay lại trạng thái trước lệnh cuối thực UserForm: thực phương thức UndoAction Tên_UserForm.UndoAction Ø Trả lại trạng thái trước thực Undo: thực phương thức RedoAction Tên_UserForm.RedoAction CHÚ Ý Với chương trình sử dụng nhiều UserForm, để tránh nhầm lẫn sử dụng chương trình, nên hiển thị UserForm cần dùng cịn UserForm khác ẩn Trước gọi phương thức Show UserForm cần hiển thị, phải ẩn UserForm khơng dùng đến phương thức Hide Ví dụ Tạo UserForm với điều khiển hình đây: Trình tự thực sau: Thêm UserForm vào dự án hộp công cụ điều khiển (Control Chọn vào UserForm vừa tạo, chọn biểu tượng Toolbox) Sau đó, rê thả chuột UserForm để tạo hộp văn (TextBox) 69 Tiếp tục chọn UserForm trên, chọn biểu tượng hộp công cụ điều khiển, rê thả chuột để tạo nút lệnh (Command Button), đặt tên (thuộc tính Name) nút lệnh cmdUndo, đặt tiêu đề (thuộc tính Caption) nút lệnh Undo Tương tự tạo nút lệnh cmdRedo với tiêu đề Redo Viết thủ tục kiện Click cho nút lệnh sau: Private Sub cmdRedo_Click() Me.RedoAction End Sub Private Sub cmdUndo_Click() Me.UndoAction End Sub Sau đó, chọn UserForm nhấn phím F5 để chạy chương trình Nhập dịng văn vào hộp văn Kích chuột vào nút Undo, sau nút Redo theo dõi kết 11.3 Các điều khiển thông dụng Theo mặc định, Toolbox có sẵn số điều khiển thơng dụng thẻ Control, điều khiển đáp ứng hầu hết nhu cầu thiết kế giao diện thông thường UserForm Trong phần trước nhắc nhiều đến việc sử dụng điều khiển Toolbox chưa có tính hệ thống phần trình bày nội dung để sử dụng cách hiệu điều khiển Hình III-23: Các điều khiển theo mặc định VBA IDE Nút lệnh (Command Button) Ø Command Button thường dùng để thực định từ phía người dùng (thơng qua việc kích chuột vào Command Button nhấn Enter) Ø Command Button nên có thuộc tính Caption (tiêu đề) Picture (hình ảnh) phản ánh tính mà đảm nhận Sự kiện hay gọi sử dụng Command Button kiện Click DblClick (kích đúp chuột) Ø Để thay đổi vị trí Command Button chạy chương trình, sử dụng phương thức Move Tên_Command Button.Move [Left ], [Top], [Width], [Height] Trong tham số thể vị trí góc trái (left, top) kích thước (Width, Height) Command Button sau di chuyển 70 CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC Ø Để thiết lập trạng thái nhận lệnh (nhận tiêu điểm – focus), sử dụng phương thức SetFocus Tên_Command Button.SetFocus Các phương thức Move SetFocus không áp dụng Command Button, mà áp dụng với đa số điều khiển khác Hộp văn bản (TextBox) TextBox dùng để nhập liệu dạng văn (text) điều khiển cách thiết lập thuộc tính hay kiện sử dụng phương thức phù hợp Dưới số thành phần dùng để điều khiển TextBox: Ø Các thuộc tính dùng để thiết lập cách thức hiển thị cho TextBox Thuộc tính Mơ tả Ghi Text Nội dung văn chứa điều khiển Kiểu String TextAlign Cách thức hiển thị văn điều khiển Tham khảo Object Browser MaxLength Qui định độ dài tối đa văn điều khiển (Nếu đặt MaxLength=0, độ dài văn tuỳ ý) Kiểu Long MultiLine Hiển thị nhiều dòng hay dòng Kiểu Boolean ScrollBars Hiển thị cuộn ngang hay dọc nội dung văn lớn kích thước điều khiển Tham khảo Object Browser Ø Các phương thức hỗ trợ việc nhập văn vào TextBox Phương thức Mô tả Ghi Copy Chép nội dung đánh dấu điều khiển vào nhớ đệm Cut Di chuyển nội dung đánh dấu điều khiển vào nhớ đệm Tham khảo Object Browser Help Paste Chép nội dung từ nhớ đệm vào điều khiển Ø Các kiện: thường dùng để xử lý có tác động lên TextBox, thường sử dụng hai kiện là: KeyPress Change Sự kiện, chất chương trình dạng Sub tự động gọi tương ứng với tác động lên TextBox, ví dụ bấm phím hay thay đổi nội dung Sự kiện Change gọi nội dung văn TextBox bị thay đổi Cịn kiện KeyPress gọi có phím nhấn trỏ nằm điều khiển Sự kiện KeyPress có tham số KeyAscii Tham số có kiểu Integer chứa mã ASCII phím nhấn (để biết mã ASCII phím, tham khảo KeyCodeConstants Object Browser) Nhãn (Label) Label thường sử dụng để hiển thị văn ngắn gọn UserForm dùng kèm với điều khiển UserForm với mục đích giải thích ý định sử dụng cho điều khiển Nội dung văn Label thiết lập thay đổi thơng qua thuộc tính Caption Tương tác với thuộc tính Caption Label tương tự thuộc tính Caption tất điều khiển khác trình bày phần trước 71 Điều khiển Label giải thích cho liệu hộp văn Điều khiển Label hiển thị kết dạng văn ngắn Hộp đánh dấu (CheckBox) CheckBox thường sử dụng để lựa chọn thông tin phù hợp danh sách thông tin liên quan liệt kê dùng để bổ sung nội dung cho liệu Để thiết lập hay đọc trạng thái CheckBox (được chọn hay không chọn), sử dụng thuộc tính Value Thuộc tính có kiểu Boolean, giá trị True có nghĩa CheckBox chọn, giá trị False nghĩa CheckBox khơng chọn Ví dụ: tạo giao diện nhập liệu tính tổng số từ đến n với tùy chọn CheckBox sau: Ø Nếu khơng chọn CheckBox (khơng đánh dấu) tính tổng số từ đến n Ø Nếu chọn CheckBox (đánh dấu) tính tổng số chẵn khoảng từ đến n Thiết kế UserForm với thành phần hình đây: Label Name: lblSo TextBox Name: txtSo CheckBox Name: chkChonsochan Command Button Name: cmdTinh Label Name: lbKetqua Mã lệnh cho thủ tục kiện Click cho nút lệnh cmdTinh sau: Private Sub cmdTinh_Click() Dim i As Long Dim so As Long so = CLng(txtSo.Text) ' chuyen doi du lieu tu txtSo vao bien so 72 ... chuột để tạo nút lệnh (Command Button), đặt tên (thuộc tính Name) nút lệnh cmdUndo, đặt tiêu đề (thuộc tính Caption) nút lệnh Undo Tương tự tạo nút lệnh cmdRedo với tiêu đề Redo Viết thủ tục kiện... điều khiển Toolbox chưa có tính hệ thống phần trình bày nội dung để sử dụng cách hiệu điều khiển Hình III-23: Các điều khiển theo mặc định VBA IDE Nút? ?lệnh? ?(Command Button) Ø Command Button thường...CHƯƠNG III: CƠ BẢN VỀ NGƠN NGỮ LẬP TRÌNH VISUAL BASIC 11.2 Làm việc với UserForm Các ngun tắc làm việc với UserForm thiết lập thay đổi thuộc tính, gọi phương thức hay xử lý kiện trình bày phần trước