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

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