VB.Net/Class/Private

Материал из VB Эксперт
Перейти к: навигация, поиск

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>