「VB.NET」構造体でコンストラクタを使う方法

書式
1.コンストラクタの定義
Sub New(ByVal 引数名 As データ型)
2.コンストラクタの引数に値を渡す
Dim 変数名 As New 構造体名(引数名)

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
odule Module1
'構造体Customerの定義
Structure Customer
'String型変数の宣言
Public userName As String
'Integer型変数の宣言
Public age As Integer
'コンストラクタ
Sub New(ByVal name As String, ByVal nn As Integer)
userName = name
age = nn
End Sub
End Structure
Sub Main()
'コンストラクタの引数name、nnに値を設定
Dim cst As New Customer("テスト太郎", 32)
'コンストラクタで設定した値を表示
Console.WriteLine("ユーザー名: " + cst.userName)
Console.WriteLine("年齢: " + cst.age.ToString)
Console.ReadKey()
End Sub
End Module
odule Module1 '構造体Customerの定義 Structure Customer 'String型変数の宣言 Public userName As String 'Integer型変数の宣言 Public age As Integer 'コンストラクタ Sub New(ByVal name As String, ByVal nn As Integer) userName = name age = nn End Sub End Structure Sub Main() 'コンストラクタの引数name、nnに値を設定 Dim cst As New Customer("テスト太郎", 32) 'コンストラクタで設定した値を表示 Console.WriteLine("ユーザー名: " + cst.userName) Console.WriteLine("年齢: " + cst.age.ToString) Console.ReadKey() End Sub End Module
odule Module1
    '構造体Customerの定義
    Structure Customer

        'String型変数の宣言
        Public userName As String

        'Integer型変数の宣言
        Public age As Integer

        'コンストラクタ
        Sub New(ByVal name As String, ByVal nn As Integer)
            userName = name
            age = nn
        End Sub

    End Structure

    Sub Main()
        'コンストラクタの引数name、nnに値を設定
        Dim cst As New Customer("テスト太郎", 32)

        'コンストラクタで設定した値を表示
        Console.WriteLine("ユーザー名: " + cst.userName)
        Console.WriteLine("年齢: " + cst.age.ToString)

        Console.ReadKey()

    End Sub

End Module

実行結果
ユーザー名: テスト太郎
年齢: 32

VB.net

Posted by arkgame