Today teacher just only review about basic using classes in VB.Net. below is source code that I've copied:
1- Create Class Name: ClassAddress
Public Class ClassAddress
Private s As String
Private k As String
Private p As String
Public Property Sangkat() As String
Get
Return s
End Get
Set(ByVal value As String)
s = value
End Set
End Property
Public Property Khan() As String
Get
Return k
End Get
Set(ByVal value As String)
k = value
End Set
End Property
Public Property Province() As String
Get
Return p
End Get
Set(ByVal value As String)
p = value
End Set
End Property
End Class
2- Create Class Name: ClassStudent
Public Class ClassStudent
Private Add As New ClassAddress
Private SID As Integer
Private SNAME As String
Private SDISPLAY As String
Public ReadOnly Property Address() As ClassAddress
Get
Return Add
End Get
End Property
Public Property ID() As Integer
Get
Return SID
End Get
Set(ByVal value As Integer)
SID = value
End Set
End Property
Public Property Name() As String
Get
Return SNAME
End Get
Set(ByVal value As String)
SNAME = value
End Set
End Property
Public ReadOnly Property Display() As String
Get
Return SID & " " & SNAME & " " & Add.Sangkat & " " & Add.Khan & " " & Add.Province
End Get
End Property
End Class
3- Write Code in FormLoad for know about its processing:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim obj As New ClassStudent
obj.ID = 1
obj.Name = "A"
obj.Address.Sangkat = "B"
obj.Address.Khan = "C"
obj.Address.Province = "D"
MsgBox(obj.Display)
End Sub
End Class
No comments:
Post a Comment