クラス(概要編)

Class Person

    Public Age As Integer
    Public Name As String

End Class

Class Person

    Public Age As Integer
    Public Name As String

End Class

Module MainModule

    Sub Main()

        Dim suzuki As Person

        suzuki.Age = 20
        suzuki.Name = "鈴木"

    End Sub

End Module

Sub Main()

    Dim suzuki As Person

    ' 新たにPersonクラスのインスタンスを作成し、suzukiへ代入
    suzuki = New Person()

    suzuki.Age = 20
    suzuki.Name = "鈴木"

End Sub

' 変数の宣言とインスタンスの作成を同時に行う
Dim suzuki As Person = New Person()

suzuki.Age = 20
suzuki.Name = "鈴木"

' 変数の宣言とインスタンスの作成を同時に行う
Dim suzuki As New Person()

suzuki.Age = 20
suzuki.Name = "鈴木"

Dim suzuki As Person = New Person()

suzuki.Age = 20
suzuki.Name = "鈴木"

Console.WriteLine("名前:{0} 年齢:{1}", suzuki.Name, suzuki.Age)

' 構造体(値型)
Structure ValPerson

    Public Name As String

End Structure

Module MainModule

    Sub Main()

        ' 値型
        Dim valPerson1 As ValPerson
        Dim valPerson2 As ValPerson

        valPerson1.Name = "鈴木"
        valPerson2.Name = "佐藤"

        ' それぞれのNameフィールドの値を表示
        Console.WriteLine("{0} {1}", valPerson1.Name, valPerson2.Name)

        ' valPerson1のコピーがvalPerson2に代入される
        valPerson2 = valPerson1

        ' valPerson1.Nameの値を変更
        valPerson1.Name = "山田"

        ' それぞれのNameフィールドの値を表示
        Console.WriteLine("{0} {1}", valPerson1.Name, valPerson2.Name)

    End Sub

End Module

' クラス(参照型)
Class RefPerson

    Public Name As String

End Class

Module MainModule

    Sub Main()

        ' 参照型
        Dim refPerson1 As New RefPerson()
        Dim refPerson2 As New RefPerson()

        refPerson1.Name = "鈴木"
        refPerson2.Name = "佐藤"

        ' それぞれのNameフィールドの値を表示
        Console.WriteLine("{0} {1}", refPerson1.Name, refPerson2.Name)

        ' refPerson1が参照しているインスタンスへの参照がrefPerson2に代入される
        refPerson2 = refPerson1

        ' refPerson1.Nameの値を変更
        refPerson1.Name = "山田"

        ' それぞれのNameフィールドの値を表示
        Console.WriteLine("{0} {1}", refPerson1.Name, refPerson2.Name)

    End Sub

End Module

Class Person

    ' 内部的に名前を保持するためのフィールドです
    Private m_Name As String

    ' 内部的に年齢を保持するためのフィールドです
    Private m_Age As Integer

    ' クラスでは引数を取らないコンストラクタを指定することもできます
    Sub New()

        m_Name = "(名無し)"
        m_Age = 0

    End Sub

    ' 引数を取るコンストラクタは構造体と同じです
    Sub New(ByVal name As String, ByVal age As Integer)

        m_Name = name
        m_Age = age

    End Sub

    ' プロパティの形式は構造体のものと同じです
    Property Name() As String
        Get
            Return m_Name
        End Get

        Set(ByVal Value As String)
            m_Name = Value
        End Set
    End Property

    Property Age() As Integer
        Get
            Return m_Age
        End Get

        Set(ByVal Value As Integer)
            m_Age = Value
        End Set
    End Property

    ' メソッドの形式も構造体と同じです
    Sub Introduce()

        Console.WriteLine("私は{0}, {1}歳です。", m_Name, m_Age)

    End Sub

End Class


Module MainModule

    Sub Main()

        ' コンストラクタにパラメータを指定しないでインスタンスを作成します
        Dim tanaka As New Person()

        ' プロパティを通して値を指定します
        tanaka.Name = "田中"
        tanaka.Age = 23

        ' まずPerson型の変数だけ作成します
        Dim saitou As Person

        ' コンストラクタにパラメータを指定してインスタンスを作成します
        saitou = New Person("斉藤", 21)

        ' コンストラクタに何も指定しないでインスタンスを作成します
        Dim nanashi As New Person()


        ' 同じメソッドを呼び出すことでクラスの値を表示します
        tanaka.Introduce()
        saitou.Introduce()
        nanashi.Introduce()

    End Sub

End Module