Tuesday, June 28, 2011

First time in LAB 212 Review about Class in VB...

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