Use Me to Reference myself : Me « Class « VB.Net

Use Me to Reference myself

Use Me to Reference myself
Imports System

Public Class MainClass

    Shared Sub Main(ByVal args As String())
       Dim time As New CTime(12, 30, 19)

    End Sub
End Class

Class CTime
   Private mHour, mMinute, mSecond As Integer

   ' constructor
   Public Sub New(ByVal mHour As Integer, _
      ByVal mMinute As Integer, ByVal mSecond As Integer)

      Me.mHour = mHour
      Me.mMinute = mMinute
      Me.mSecond = mSecond
   End Sub ' New

   ' create String using Me and implicit references
   Public Function BuildString() As String
      Return "Me.ToUniversalString(): " & Me.ToUniversalString() _
         & vbCrLf & "ToUniversalString(): " & ToUniversalString()
   End Function ' BuildString

   ' convert to String in standard-time format
   Public Function ToUniversalString() As String
      Return String.Format("{0:D2}:{1:D2}:{2:D2}", _
         mHour, mMinute, mSecond)
   End Function ' ToUniversalString

End Class ' CTime


Related examples in the same category