VB.Net Tutorial/Class Module/Me
Demonstrates Me reference
<source lang="vbnet">Module Tester
Sub Main() Dim time As New MyTime(12, 30, 19) Console.WriteLine(time.ToUniversalString()) End Sub " Main
End Module
Class MyTime
Private mHour, mMinute, mSecond As Integer 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 Public Function ToUniversalString() As String Return String.Format("{0:D2}:{1:D2}:{2:D2}", _ mHour, mMinute, mSecond) End Function " ToUniversalString
End Class</source>
12:30:19
Use Me to reference myself
<source lang="vbnet">Option Strict On
Imports System Public Class Time Private Second As Integer Public Sub DisplayCurrentTime( ) System.Console.WriteLine(Second) End Sub Public Sub New(ByVal dt As System.DateTime) Second = dt.Second End Sub Public Sub New(ByVal Second As Integer) Me.Second = Second End Sub End Class Module Module1 Sub Main( ) Dim currentTime as System.DateTime = System.DateTime.Now Dim time1 As New Time(currentTime) time1.DisplayCurrentTime( ) Dim time2 As New Time(30) time2.DisplayCurrentTime( ) End Sub End Module</source>