構造体の宣言

Public Structure SampleStruct

    Public Field1 As String 'フィールド
    Public Property Prop1 As Integer 'プロパティ。 この構文でプロパティを宣言できるのはVB2010以上。

    'コンストラクター
    Public Sub New(initValue As String)
        Field1 = initValue
    End Sub

    'メソッド
    Public Function Add(x As Integer, y As Integer) As Integer
        Return x + y
    End Function

End Structure

Public Structure SampleStruct(Of T)

    Public X As T
    Public Y As T
    Public Z As T

End Structure

使用例

Dim s1 As SampleStruct(Of Decimal)
s1.X = 100
s1.Y = 200

Dim s2 As SampleStruct(Of String)
s2.X = "AAA"
s2.Y = "BBB"

Public Structure SampleStruct(Of T1, T2)

    Public X As T1
    Public Y As T2

End Structure

使用例

Dim s1 As SampleStruct(Of Decimal, String)
s1.X = 100
s1.Y = "AAA"

Dim s2 As SampleStruct(Of Boolean, Date)
s2.X = True
s2.Y = #6/27/2024#

構造体 - Visual Basic | Microsoft Docs

Structure ステートメント - Visual Basic | Microsoft Docs

構造体とクラス - Visual Basic | Microsoft Docs