Bây giờ, chúng ta sẽ bắt tay vào xây dựng lớp đối tượng đầu tiên: SayHi.
Chọn menu Projects | Add Class… Cửa sổ Add new item sẽ hiện ra với đối tượng được thêm mới vào là một Class. Bạn gõ vào phần Name chuỗi SayHi.vb và VS.NET sẽ tạo ra một class cĩ tên là SayHi. Nội dung của SayHi hiện giờ chỉ là một khung khai báo lớp đối tượng:
Class vừa tạo xuất hiện trên Solution Explorer
Nếu bạn xem trên cửa sổ Solution Explorer thì lúc này sẽ thấy cĩ hai class như hình trên bên trái. Bạn hãy viết đoạn lệnh sau cho class SayHi:
Ví dụ:
Public Class SayHi Dim mTen As String
Sub New(ByVal Ten As String) mTen = Ten
End Sub
Property Ten() As String Get
Return mTen End Get
Set(ByVal Value As String) mTen = Value
End Set End Property
Function Say() As String Dim gio = Date.Now.Hour
If gio >= 5 And gio <= 12 Then Say = "Good morning, " + mTen ElseIf gio <= 18 Then
Say = "Good afternoon, " + mTen Else
Say = "Good evening, " + mTen End If
End Function End Class
Tạm thời khơng cần quan tâm nhiều đến cú pháp vì chúng ta sẽ tìm hiểu trong phần lập trình hướng
đối tượng. Sau khi đã viết đoạn lệnh, xem trong cửa sổ Class viewer bạn sẽ thấy các thành phần của
class SayHi được liệt kê bao gồm một thuộc tính cĩ tên là Ten, hai phương thức là New và Say cùng với một biến cục bộ là mTen. Thuộc tính của một class cho biết đặc điểm mà một đối tượng của nĩ sẽ cĩ. Phương thức của một class cho biết khả năng mà đối tượng của nĩ cĩ thể thực hiện.
Cửa sổ Class viewer cĩ thêm class SayHi và các thành phần của nĩ
Chúng ta sẽ sửa lại đoạn lệnh trong nút cmdHello để xem cách dùng một đối tượng:
Ví dụ:
Private Sub cmdHello_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles cmdHello.Click
Dim sh As SayHi, LoiChao As String sh = New SayHi(txtTen.Text) LoiChao = sh.Say
MsgBox(LoiChao) End Sub
Chúng ta thấy, sử dụng class SayHi cũng giống như sử dụng class TextBox hay Label trong phần InitializeComponent.