me について

    Public Class Shuujin

      #Region "　MemberCode プロパティ　"

        Private _MemberCode As Integer

        Public ReadOnly Property MemberCode() As Integer
            Get
                Return Me._MemberCode
            End Get
        End Property

      #End Region

      #Region "　MemberName プロパティ　"

        Private _MemberName As String

        Public ReadOnly Property MemberName() As String
            Get
                Return Me._MemberName
            End Get
        End Property

      #End Region

      #Region "　インスタンスの状態を返すメソッド　"

        Public Function ToString() As String
            ' 自身のインスタンス メンバであると明示化できる
            Return Me.MemberCode.ToString() & " : " & Me.MemberName

            ' 静的メンバなのか、ローカルなのか "この 1 ステートメント" だけではわからない
            'Return MemberCode & " : " & MemberName
        End Function

      #End Region

      #Region "　何かしろの静的メソッド　"

        Private Shared nanika   As String
        Private Shared korekore As String

        Public Shared Function NanikaMethod() As String
            ' 皆さん、自身の静的メンバはどうしてます?
            Return Shuujin.nanika & Shuujin.korekore
        End Function

      #End Region

    End Class

class Class1
{
	private string prefixIsFloccinaucinihilipilification;
	
	public Class1( string prifixIsFloccinaucinihilipilification )
	{
		this.prefixIsFloccinaucinihilipilification = prefixIsFloccinaucinihilipilification
	}
}

class Class1
{
	private string _prefixIsFloccinaucinihilipilification;
	
	public Class1( string prifixIsFloccinaucinihilipilification )
	{
		_prefixIsFloccinaucinihilipilification = prifixIsFloccinaucinihilipilification
	}
}

Public Shared Function NanikaMethod() As Boolean
	Return ReferenceEquals( nanika, korekore )
End Function

Public Sub New(ByVal 番号初期値 As Integer, ByVal 名前初期値 As String)
    Me.番号 = 番号初期値
    Me.名前 = 名前初期値
    If (Not Me.番号の値は有効値()) Then
        Throw (New ArgumentOutOfRangeException("番号値が無効です"))
    End If
End Sub

class Foo {
  private string _bar;
  public Foo(string _bar) {
    _bar = _bar;
  }
}

    Public Sub New(ByVal code As Integer)
        Me.Code = code
    End Sub

    Public Sub New(ByVal newCode As Integer)
        Me.Code = newCode
    End Sub

    Public Sub SetCode(ByVal Value As Integer)
        Me.Code = Value
    End Sub

    Public Sub SetCodeAndName(ByVal aCode As Integer, ByVal aName As String)
        Me.Code = aCode
        Me.Name = aName
    End Sub

    Public Sub SetCodeAndName(ByVal iCode As Integer, ByVal stName As String)
        Me.Code = iCode
        Me.Name = stName
    End Sub