VB.Net/Class/Me

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

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>