Mega Code Archive

 

Categories / VB.Net / Class

 

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)       Console.WriteLine(time.BuildString())            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