VB.Net/Class/Private
Private Member Variable
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim timeObject As New Time( ) timeObject.DisplayCurrentTime( ) End Sub
End Class
Public Class Time " Private variables Private Year As Integer Private Month As Integer Private Day As Integer Private Hour As Integer Private Minute As Integer Private Second As Integer " Public methods Public Sub DisplayCurrentTime( ) Console.WriteLine("DisplayCurrentTime") End Sub "DisplayCurrentTime End Class "Time </source>
Public and private demo
<source lang="vbnet"> 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 </source>