II.1. Tạo một Class
Chúng ta tạo một Class mới trong VB.NET bằng cách dùng thực đơn Project | Add Class. Hộp thoại Add New Item sẽ hiện ra, chọn Class trên khung bên phải và nhập tên vào ơ Name bên dưới
Mã lệnh của Class nầy sẽđược chứa trong một tập tin cĩ phần mở rộng là vb. Trong VB.NET tất cả các tập tin nguồn của các đối tượng form, class, module …đều cĩ phần mở rộng là vb. Hệ thống sẽ nhận diện ra loại nào tùy theo nội dung của chúng chứ khơng dựa vào phần mở rộng.
Nhấn OK, để xác nhận tạo tập tin, tập tin sẽđược tạo và đưa vào Project. Lúc này trên cửa sổ mã lệnh của Class chứa các dịng sau:
Public Class <tên Class> End Class
Chúng ta cĩ thể khai báo một lớp với cú pháp sau
Cú pháp:
[<Từ khố>] Class <tên Class> End Class
Mọi thuộc tính, phương thức hoặc sự kiện của Class được tạo ra phải nằm trong hai dịng lệnh trên. Từ khĩa cĩ thể là một trong các giá trịở bảng sau:
Các từ khĩa khai báo Class
Tên Mơ tả
Public Các thực thể khai báo với từ khĩa này cĩ thể sử dụng ở mọi nơi. Private Cho biết thực thể khai báo chỉđược sử dụng trong phạm vi khai báo.
Protected Cho biết thực thể khai báo chỉ được sử dụng trong phạm vi Class và SubClass (lớp và lớp con).
Friend Cho biết thực thể khai báo chỉđược sử dụng trong phạm vi Project. Nếu khơng cĩ từ khĩa, Class mặc nhiên là khai báo Friend.
Protected Friend Cho biết thực thể khai báo cĩ phạm vi sử dụng của Protected và Friend. Shadows Cho biết lớp này đang che mờ một thành phần trong lớp cơ sở. Thành phần bị
che mờ khơng thể sử dụng trong lớp này.
MustInherit Cho biết các thành phần non-shared của lớp chỉ cĩ thể truy xuất thơng qua các lớp kế thừa. Các thể hiện của lớp khai báo kiểu này khơng thể khởi tạo.
NotInheritable Cho biết lớp này khơng cho phép kế thừa.
II.2. Tạo một NameSpace mới
Trong một tập tin như trên cĩ thể chứa nhiều Class khác nhau.
Chúng ta cĩ thể tổ chức các Class cùng loại, cùng nhĩm vào chung một khơng gian tên (NameSpace) do chúng ta tạo ra.
Ví dụ:
Namespace Dong_vat Public Class An_co End Class
Public Class An_thit End Class
End Namespace
Để tham chiếu đến một Class được khai báo trong Namespace, chúng ta phải thơng qua tên Namespace.
Ví dụ:
Một khơng gian tên cĩ thể xuất hiện trong nhiều tập tin Class khác nhau trong một Project. Ví dụ ta cĩ tập tin thứ hai với nội dung:
Namespace Dong_vat Public Class An_tap End Class
End Namespace
Và cùng cĩ chung cách tham chiếu thơng qua khơng gian tên: Private conbo as Dongvat.
II.3. Tạo một Class kế thừa
Khi tạo một Class kế thừa, chúng ta sẽ cĩ một Class mới kế thừa tất cả các thành phần đã được khai báo với từ khĩa Public, Friend và Protected của Class được kế thừa. Cú pháp tạo Class kế thừa như
sau:
Cú pháp:
Public Class <tên Class con> Inherits <tên Class cha> End Class
Chú ý: Lệnh Inherits phải là dịng đầu tiên sau dịng lệnh khai báo Class.
II.4. Khai báo phương thức (Method)
Phương thức là chức năng mà đối tượng cĩ thể thực hiện, nĩ cĩ thể là một thủ tục (Sub) hoặc một hàm (Function). Với hàm, phải cĩ giá trị trả về.
Cú pháp:
[<từ khĩa>] Sub <tên thủ tục>([<các tham số>]) …
End Sub Hoặc
[<từ khĩa>] Function <tên hàm>([<các tham số>]) …
Return <giá trị> End Function
Từ khĩa cĩ thể là một trong các giá trịở bảng sau:
Các từ khĩa khai báo phương thức
Tên Mơ tả
Public Cho biết phương thức được gọi ở mọi nơi.
Con (Subclass)
Friend Cho biết phương thức chỉđược gọi trong phạm vi của Project
Protected Friend Cho biết phương thức chỉđược gọi trong phạm vi Proctected và Friend Private Cho biết phương thức chỉđược gọi trong phạm vi của Class
Overloads Cho biết phương thức nạp chồng một hay nhiều phương thức cĩ cùng tên với phương thức trong lớp cơ sở. Danh sách tham số trong phương thức này phải khác với danh sách tham số của mỗi phương thức nạp chồng khác về số lượng, hoặc về các kiểu dữ liệu hoặc cả hai.
Chúng ta khơng cần phải dùng từ khĩa Overloads khi tạo các phương thức nạp chồng trong một lớp. Nhưng nếu đã khai báo cho một thì phải khai báo cho tất cả.
Khơng được phép sử dụng cả hai từ khĩa Overloads và Shadows trong cùng một phương thức.
Ví dụ chúng ta cĩ các lớp Tinh và Toan như sau: Public Class Tinh
Function BP(ByVal so As Short) As Integer Return so ^ 2
End Function
Function BP(ByVal so As Integer) As Long Return so ^ 2
End Function End Class
Public Class Toan Inherits Tinh
Overloads Function BP(ByVal so As Double) As Double Return so ^ 2
End Function End Class
Các hàm BP trong lớp Tinh cĩ thể cĩ hoặc khơng cĩ từ OverLoads Một thể hiện của lớp Toan cĩ thể sử dụng tất cả các hàm Overloads
Overrides Cho biết phương thức ghi chồng một phương thức cùng tên của lớp cơ sở. Số
lượng tham số, kiểu dữ liệu của tham số cũng như kiểu giá trị trả về phải khớp với của lớp cơ sở.
Overridable Cho biết phương thức này cho phép ghi chồng bằng một phương thức cùng tên trong lớp Con. Phương thức với từ khĩa Overrides mặc nhiên là được phép ghi chồng.
NotOverridable Cho biết phương thức khơng được phép ghi chồng trong lớp Con.
MustOverride Cho biết phương thức khơng được cài đặt trong lớp khai báo nhưng phải cài
đặt trong lớp Con.
Shadows Cho biết phương thức che lấp một thành phần cĩ tên tương tự, hoặc một tập hợp các thành phần nạp chồng của lớp cơ sở. Tham số và giá trị trả về khơng nhất thiết phải như trong thành phần bị che. Thành phần bị che khơng cịn giá trị trong lớp che nĩ.
một phương thức.
Ví dụ: Chúng ta cĩ lớp ClassCha với thuộc tính Cao: Public Class ClassCha
Private h As Single Property Cao() As Single Get
Return h End Get
Set(ByVal Value As Single) h = Value
End Set End Property End Class
Và lớp ClassCon kế thừa từ lớp ClassCha và che mờ thuộc tính Cao bằng thủ
tục Cao như sau:
Public Class ClassCon Inherits ClassCha
Public Shadows Sub Cao()
MessageBox.Show("Tơi sẽ cịn cao hơn nữa", _ "Class Con") End Sub
End Class
Shared Cho biết phương thức được dùng chung - nghĩa là phương thức này khơng liên kết với một thể hiện nào của lớp. Chúng ta cĩ thể gọi phương thức dùng chung thơng qua tên của lớp hoặc tên biến của một thể hiện cụ thể.
Ví dụ chúng ta cĩ lớp TEST với một hàm Shared như sau: Class TEST
Shared Function Cong(ByVal a As Integer, _
ByVal b As Integer) As Integer
Return a + b End Function End Class Khi sử dụng, chúng ta cĩ thể viết: Dim y As TEST Console.WriteLine(y.Cong(12, 9)) hoặc: Console.WriteLine(TEST.Cong(12, 9))
II.5. Khai báo thuộc tính (Property)
Thuộc tính là thành phần lưu giữ các tính chất, đặc điểm của đối tượng. Ứng với mỗi thuộc tính, chúng ta cần khai báo một biến Private tương ứng để lưu giữ giá trị. Trong VB.NET, chúng ta dùng một cú pháp chung cho truy xuất và gán trị của thuộc tính như sau:
Cú pháp:
' Khai báo biến lưu giữ giá trị của thuộc tính Private mthuoctinh As <Kiểu dữ liệu>
[<Từ khố>] Property Thuoc_tinh() As <Kiểu dữ liệu>
' Truy xuất giá trị của thuộc tính tức truy xuất đến giá trị của biến Get
Return mthuoctinh End Get
' Gán trị cho thuộc tính tức gán trị cho biến Set (ByVal Value As <Kiểu dữ liệu>)
mthuoctinh = Value End Set
End Property
Chúng ta cĩ thể sử dụng các từ khai báo sau:
II.5.1. Default
Khai báo thuộc tính mặc định. Các thuộc tính này phải cĩ tham số và cĩ thể gán và truy xuất khơng cần chỉ ra tên thuộc tính.
Một thuộc tính chỉ cĩ thể là thuộc tính mặc định nếu thỏa các điều kiện:
Mỗi Class chỉđược cĩ một thuộc tính mặc định, phải kểđến cả các thuộc tính kế thừa.
Thuộc tính mặc định khơng được là Shared hay Private
Nếu một thuộc tính nạp chồng (Overloaded) là mặc định thì tất cả các thuộc tính cùng tên cũng phải khai báo mặc định.
Thuộc tính mặc định phải cĩ ít nhất một tham số
Cú pháp:
Private mthuoctinh As <Kiểu dữ liệu>
Default Public Property Thuoc_tinh(Index as Integer) As <Kiểu dữ liệu> Get
Return mthuoctinh End Get
Set (ByVal Value As <Kiểu dữ liệu>) …
mthuoctinh = Value End Set
End Property
II.5.2. ReadOnly
Cho biết thuộc tính chỉđược phép đọc khơng cho phép gán.
Cú pháp:
Private mthuoctinh As <Kiểu dữ liệu>
Public ReadOnly Property Thuoc_tinh() As <Kiểu dữ liệu> Get
Return mthuoctinh End Get
End Property
II.5.3. WriteOnly
Cho biết thuộc tính chỉđược phép gán khơng cho phép đọc.
Cú pháp:
Private mthuoctinh As <Kiểu dữ liệu>
Public WriteOnly Property Thuoctinh() As String Set (ByVal Value As String)
mthuoctinh = Value End Set
End Property
II.5.4. Overloads
Cho biết thuộc tính này nạp chồng một hoặc nhiều thuộc tính cĩ cùng tên được định nghĩa trên lớp cơ
sở. Danh sách tham số trong thuộc tính này phải khác với danh sách tham số của mỗi thuộc tính nạp chồng khác về số lượng, hoặc về các kiểu dữ liệu hoặc cả hai.
Chúng ta khơng cần phải dùng từ khĩa Overloads khi tạo các thuộc tính nạp chồng trong một lớp. Nhưng nếu đã khai báo cho một thì phải khai báo cho tất cả.
Khơng được phép sử dụng cả hai từ khĩa sau một lượt: Overloads và Shadows trong cùng một thuộc tính.
II.5.5. Overrides
Cho biết thuộc tính ghi chồng một thuộc tính cùng tên của lớp cơ sở. Số lượng tham số, kiểu dữ liệu của tham số cũng như kiểu giá trị trả về phải khớp với của lớp cơ sở.
II.5.6. Overridable
Cho biết thuộc tính này được phép ghi chồng trong lớp Con.
II.5.7. NotOverridable
Cho biết thuộc tính khơng được phép ghi chồng trong lớp Con. Mặc nhiên, các thuộc tính là khơng
II.5.8. MustOverride
Cho biết thuộc tính khơng được cài đặt trong lớp và phải được cài đặt ở lớp Con.
II.5.9. Shadows
Cho biết thuộc tính che lấp một thuộc tính cĩ tên tương tự, hoặc một tập hợp các thuộc tính Nạp chồng của lớp cơ sở. Tham số và giá trị trả về khơng nhất thiết phải như trong thuộc tính bị che. Thuộc tính bị
che khơng cịn giá trị trong lớp che nĩ.
II.5.10.Shared
Cho biết thuộc tính được chia sẻ - nghĩa là thuộc tính khơng gắn chặt với một thể hiện nào của lớp nhưng được sử dụng chung giữa các thể hiện của một lớp.
II.6. Khai báo sự kiện (Event)
Sự kiện là thơng điệp do một đối tượng phát sinh cho biết một hành động đang xảy ra. Hành động cĩ thể do sự tương tác của người dùng, do chương trình khác kích hoạt…Đối tượng kích hoạt biến cốđược gọi là đối tượng gửi biến cố. Đối tượng bắt sự kiện và đáp ứng lại gọi là đối tượng nhận sự kiện. Đối tượng gửi khơng biết đối tượng nhận sự kiện do nĩ kích hoạt, nhưng giữa đối tượng gửi và đối tượng nhận cĩ một đối tượng trung gian. Trong .NET Framework cĩ một kiểu đặc biệt thích hợp cho chức năng của vai trị trung gian này là Delegate (ủy quyền).
Chức năng của sự kiện được xác định từ ba yếu tố liên quan: một đối tượng cung cấp dữ liệu sự kiện (event data), một event delegate và một đối tượng kích hoạt sự kiện (sender). .NET Framework cĩ một qui ước về việc đặt tên các lớp và các phương thức liên quan đến sự kiện như sau:
II.6.1. Phát sinh sự kiện
Để một class phát sinh sự kiện EventName cần cĩ các yếu tố sau:
Một tham số sự kiện chứa các dữ liệu cĩ tên EventNameEventArgs phát sinh từ lớp System.EventArgs
Một thành phần xử lý sự kiện cĩ tên EventNameEventHandler. Đây là một thủ tục sẽ được gọi khi sự kiện xảy ra. Chúng ta cĩ thể sử dụng bất kỳ thủ tục hợp lệ nào làm thành phần xử lý sự kiện nhưng khơng được là một hàm.
Một đối tượng phát sinh sự kiện. Đối tượng này phải cung cấp :
Một khai báo sự kiện
[<Từ khố>] Event EventName As EventNameEventHandler Một phương thức tên OnEventName phát sinh sự kiện
Các đối tượng event delegate và đối tượng dữ liệu sự kiện (EventArgs) cĩ thể phát sinh từ
những lớp tương ứng cĩ sẵn trong .NET. Các từ khố khai báo sự kiện cĩ thể là:
Các từ khĩa khai báo sự kiện
Tên Mơ tả
Public Sử dụng được ở mọi nơi. Sự kiện khơng cĩ từ khĩa mặc nhiên là Public. Private Chỉ truy xuất trong phạm vi khai báo.
Friend Chỉ truy xuất trong phạm vi Project.
Protected Friend Chỉ truy xuất trong phạm vi của Protected và Friend
Shadows Cho biết sự kiện che mờ một thành phần cĩ tên tương tự trong lớp cơ sở. Chúng ta cĩ thể che mờ một thành phần loại này bằng một thành phần loại khác. Thành phần bị che mờ sẽ khơng cịn tác dụng trong lớp kế thừa che mờ
nĩ.
Các sự kiện trong VB.NET khơng hỗ trợđúng nguyên tắc kế thừa. Một sự kiện khai báo trong Class nào chỉđược phép gọi phát sinh sự kiện (RaiseEvent) chỉ trong lớp đĩ mà thơi, khơng được gọi phát sinh kể
cả trong các lớp kế thừa.
Cú pháp để gọi phát sinh sự kiện như sau
Cú pháp:
RaiseEvent <tên sự kiện>()
Ví dụ chúng ta cĩ lớp Con_Nguoi và thuộc tính Chieu_Cao, khi chiều cao thay đổi sẽ phát sinh sự kiện Chieu_Cao_Thay_doi như sau
Ví dụ:
Public Class Con_Nguoi Private Cao As Single
Public Event Chieu_Cao_Thay_doi() Public Property Chieu_Cao() As Single Get
Return Cao End Get
Set(ByVal Value As Single) Cao = Value
RaiseEvent Chieu_Cao_Thay_doi() End Set
End Property End Class
Để sử dụng các sự kiện trên một biến, chúng ta sử dụng cú pháp sau khi khai báo biến: Private WithEvents <tên biến> As <tên Class>
II.6.2. Kết hợp sự kiện với xử lý sự kiện
Chúng ta kết hợp sự kiện với xử lý sự kiện bằng các lệnh: Handles hoặc AddHandler.
Từ khĩa WithEvents và Handles cung cấp cách khai báo các xử lý sự kiện. Các sự kiện do một đối tượng phát sinh với từ khĩa WithEvents cĩ thể được xử lý bằng bất kỳ thủ tục nào được chỉ ra trong mệnh đề Handles của sự kiện. Tuy mệnh đề Handles là cách thức chuẩn để kết hợp một sự kiện với một xử lý sự kiện, nhưng lại giới hạn số các biến cố kết hợp với cùng xử lý sự kiện khi biên dịch.
Các lệnh AddHandler và RemoveHandler uyển chuyển hơn trong việc kết hợp sự kiện với xử lý sự kiện. Chúng cho phép chúng ta linh hoạt kết hợp và ngắt rời các sự kiện với các xử lý sự kiện lúc thực thi và
chúng khơng địi hỏi chúng ta phải khai báo biến với từ khĩa WithEvents.
Với các sự kiện kết hợp với các form, control, Visual Basic .NET tự động phát sinh một xử lý sự kiện rỗng và kết hợp với sự kiện.
Ví dụ khi chúng ta nhấp đúp vào một nút lệnh trên màn hình ở chế độ thiết kế, Visual Basic .NET tạo một xử lý sự kiện kết hợp với sự kiện Click của nút lệnh như sau:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click
End Sub
Hoặc chúng ta kết hợp các biến cố Click của các nút lệnh Button1, Button2 cho cùng một xử lý sự kiện như sau:
AddHandler Button1.Click, AddressOf Nhannut AddHandler Button2.Click, AddressOf Nhannut …
Private Sub Nhannut(ByVal sender As _
System.Object, ByVal e As System.EventArgs) …
End Sub
II.7. Từ khĩa Me, Mybase, MyClass 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