Public and private demo : Private « Class « VB.Net

1. VB.Net
2. Class
3. Private

Public and private demo

Imports System.IO

Module Module1

    Sub Main()
        Dim p As New Professor()

        p.Name = "JOe"
        p.OfficeNumber = "123A"
        p.AssignAge(35)
        p.AssignHomePhone("555-1111")

        p.ShowProfessor()

    End Sub

End Module

    Class Professor
        Public Name As String
        Private Age As Integer
        Public OfficeNumber As String
        Private HomePhone As String

        Public Sub ShowProfessor()
            Console.WriteLine("Name: " & Name)
            Console.WriteLine("Age: " & Age)
            Console.WriteLine("Office Number: " & OfficeNumber)
            Console.WriteLine("Home Phone: " & HomePhone)
        End Sub

        Public Sub AssignAge(ByVal EmpAge As Integer)
            If (EmpAge > 18) And (EmpAge < 100) Then
                Age = EmpAge
            End If
        End Sub

        Public Sub AssignHomePhone(ByVal Phone As String)
            HomePhone = Phone
        End Sub
    End Class

           
       

Related examples in the same category