C. SỬ DỤNG CÁC HÀM AP
Phương thức của Lớp
Bên trong một lớp, ta có thủ tục phương thức (Method Procedures) và thủ tục thuộc tính (Property Procedures). Quy định một thuộc tính, nghĩa là ta đang gọi hàm xử lý sự kiện
Property Let.
1. Tạo đề án mới, kiểu Standard EXE.
2. Từ menu Project, chọn Add Class Module.
3. Chọn Class Module và nhấn Open. Cửa sổ Code sẽ hiển thị. Nếu nhìn vào cửa sổ
Project Explorer, ta sẽ thấy một lớp mới xuất hiện.
4. Vì ta muốn tạo một lớp Box, nên ta đổi tên lớp Class1 sao cho gợi nhớ: clsBox. Cụm từ “cls” thể hiện đây là lớp, nhờ đó, chương trình trở nên dễ đọc hơn. Để thực hiện điều này, tìm lớp Class1 trong cửa sổ Properties, đổi thuộc tính Name của nó thành clsBox.
Thuộc tính của Lớp – Public và Private
Lớp Box có 4 thuộc tính là toạ độ góc trái trên (X,Y), chiều cao (Height) và chiều rộng (Width). Bây giờ ta cần khai báo các thuộc tính trên là Public hay Private.
Khi một thuộc tính được khai báo là Public trong một lớp, nó sẽ được sử dụng bởi bất kỳ đoạn chương trình nào có sử dụng lớp này. Trái lại, nếu thuộc tính là Private trong một lớp thì nó sẽ khơng được truy cập bởi bất cứ đoạn chương trình nào khác.
Phương thức của Lớp
Ví dụ mẫu – Thêm phương thức cho lớp
1. Thêm đoạn chương trình sau vào modul lớp: Public Sub DrawBox(Canvas As Object)
Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + mvarHeight),, B End Sub
Đoạn chương trình này sử dụng phương thức Line của đối tượng Canvas. Phương thức Line sẽ vẽ một hộp trên biểu mẫu nếu ta đưa vào tham số cuối cùng B (B có nghĩa là hộp – box).
2. Kế đến, ta thêm ClearBox vào Lớp: Public Sub ClearBox(Canvas As Object)
Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + _ mvarHeight), Canvas.BackColor, B
End Sub
3. Lưu modul với tên clsBox.cls
Vì 2 thủ tục này sẽ được dùng làm phương thức của đối tượng, nên chúng được khai báo
Public, nghĩa là chúng có thể được gọi từ bên ngồi modul.