VB.Net/Class/Me
Use Me to Reference myself
<source lang="vbnet"> 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
</source>