Giáo trình hướng dẫn các trợ giúp về cú pháp trong quá trình viết mã lệnh khai báo biến trong VB p4

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ổ
Nội dung trích xuất từ tài liệu:
Giáo trình hướng dẫn các trợ giúp về cú pháp trong quá trình viết mã lệnh khai báo biến trong VB p4KeyPress xảy ra khi người dùng nhấn một phímKeyUp 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 UserFormMouseUp 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íchchuộ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íchchuộ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.68 CHƯƠNGIII:CƠBẢNVỀNGÔNNGỮLẬPTRÌNHVISUALBASIC11.2. Làm việc với UserFormCá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ươngthứ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 Tên_UserForm.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ếpnhậ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 sangnơi khác khi đóng hộp thoại. Đây là kiểu hiển thị mặc định của hộp thoại.Nếu dùng vbModeless (hoặc 0): hộp thoại vẫn được hiển thị nhưng người dùng có thể chuyểnhướ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 cùng được thực hiện trên UserForm: thực hiện phương thức UndoAction Tên_UserForm.UndoAction Trả lại trạng thái trước khi thực hiện Undo: thực hiện 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 trong khi sử dụng chương trình, chỉ nên hiển thị UserForm cần dùng còn những UserForm khác thì ẩn đi. Trước khi gọi phương thức Show của UserForm cần hiển thị, phải ẩn UserForm không dùng đến bằng phương thức Hide của nó.VídụTạo một UserForm với các điều khiển như hình dưới đây:Trình tự thực hiện như sau:1. Thêm một UserForm vào dự án.2. Chọn vào UserForm vừa tạo, chọn biểu tượng trong hộp công cụ điều khiển (Control Toolbox). Sau đó, rê thả chuột trên UserForm để tạo một hộp văn bản (TextBox). 693. Tiếp tục chọn UserForm trên, chọn biểu tượng trong hộp công cụ điều khiển, rê thả chuột để tạo một nút lệnh (Command Button), đặt tên (thuộc tính Name) của nút lệnh là cmdUndo, đặt tiêu đề (thuộc tính Caption) của nút lệnh là Undo.4. Tương tự như trên tạo nút lệnh cmdRedo với tiêu đề Redo.5. Viết các thủ tục sự kiện Click cho các nút lệnh trên như sau: Private Sub cmdRedo_Click() Me.RedoAction End Sub Private Sub cmdUndo_Click() Me.UndoAction End SubSau đó, chọn UserForm và nhấn phím F5 để chạy chương trình. Nhập một dòng văn bản vàotrong hộp văn bản. Kích chuột vào nút Undo, sau đó là nút Redo và theo dõi kết quả.11.3. Các điều khiển thông dụngTheo mặc định, trên Toolbox có sẵn một số điều khiển thông dụng trong thẻ Control, nhữngđiều khiển này đáp ứng được hầu hết nhu cầu thiết kế giao diện thông thường trên UserForm.Trong những phần trước đã nhắc nhiều đến việc sử dụng các điều khiển trên Toolbox nhưngchưa có tính hệ thống vì vậy phần này sẽ trình bày những nội dung cơ bản để có thể sử dụngmột cách hiệu quả các điều khiển này. 2 6 5 1 3 7 4 8 9 Hình III-23: Các điều khiển cơ bản theo mặc định trong VBA IDE ...