II.7.1. Me
Từ khĩa Me được dùng khi chúng ta chỉ rõ muốn dùng các thành phần của chính thể hiện Class nơi viết lệnh chứ khơng phải thành phần nào khác.
Ví dụ:
Public Class Con_nguoi Private ten as String Public Sub Lam_viec() Dim ten as String
' biến cục bộ của Sub được sử dụng ten = "Hùng"
' biến cấp Class được dùng Me.ten = "Hùng"
End Sub End Class
II.7.2. Mybase
Từ khĩa Mybase được dùng trong Class kế thừa, khi chúng ta muốn dùng các phương thức của chính Class cơ sở.
Ví dụ:
Public Class lopCha
Public Overridable Sub Gioi_thieu()
MessageBox.Show(“Tơi là thể hiện của lopCha”) End Sub
End Class
Public Class lopCon Inherits lopCha
Public Overrides Sub Gioi_thieu()
MessageBox.Show("Tơi là thể hiện của lopCon") Mybase.Gioi_thieu()
End Sub End Class
Khi gọi phương thức Gioi_thieu của lopCon, chúng ta sẽ cĩ hai thơng báo: một của chính lopCon và một của lopCha
Chú ý: Từ khĩa Mybase
Chỉ được dùng để tham chiếu đến Class trung gian và các thành phần được kế thừa của nĩ.
Khơng phải là một đối tượng, nên thơng thể gán trị, dùng làm tham số hoặc dùng trong tốn tử Is
Khơng được sử dụng trong các Standard Module.
II.7.3. MyClass
Từ khĩa MyClass cho phép chúng ta gọi các phương thức Overridable của Class, dẫu các Class kế thừa
đã cĩ các phương thức Overrides tương ứng.
Ví dụ:
Lớp lopCha với thủ tục Gioi_thieu và tạo tiếp Class lopCon kế thừa từ lopCha Public Class lopCha
Public Sub Chao() Gioithieu() End Sub
Public Overridable Sub Gioi_thieu()
MessageBox.Show("Tơi là thể hiện của lopCha") End Sub
End Class
Và một Class lopCon kế thừa từ lopCha cĩ thủ tục Gioithieu ghi đè, và kế thừa thủ tục Chao của lopCha Public Class lopCon
Inherits lopCha
Public Overrides Sub Gioi_thieu()
MessageBox.Show(“Tơi là thể hiện của lopCon”) End Sub
End Class Với đoạn lệnh sau:
Dim a as New lopCon()
a.Chao() ‘ Tơi là thể hiện của lopCon Nhưng nếu thủ tục Chao của lopCha như sau:
Public Sub Chao() MyClass.Gioi_thieu() End Sub
Thì :
a.Chao() ' Tơi là thể hiện của lopCha