@634

VB.NET - 配列とコレクション

Advertisement

配列

書式
Dim 配列名(初期要素数) As 型

配列に要素を追加
配列名(インデックス) = 要素

配列から要素を取得
配列名(インデックス)

配列の要素数
配列名.Length

利用例
Class TestClass
    Public Name As String

    Sub New(ByVal Str As String)
        Me.Name = Str
    End Sub
End Class

Module Module1
    Sub Main()

        Dim List(3) As TestClass
		List(0) = New TestClass("TAROU")
		List(1) = New TestClass("JIROU")
		List(2) = New TestClass("SABUROU")
		List(3) = New TestClass("SIROU")
		Dim i As Integer
		For i = 0 To ist.Length - 1 Step 1
		    Console.WriteLine(ist(i).Name)
		Next

	End Sub
End Module

結果
TAROU
JIROU
SABUROU
SIROU

コレクション

生成
Dim オブジェクト名 As Collection
オブジェクト名 = new Collection

コレクションへオブジェクトを追加する
オブジェクト名.Add(オブジェクト)

コレクションへキー付きで要素を格納する
オブジェクト名.Add(オブジェクト, キー)

コレクション内のオブジェクト数
オブジェクト名.Count

コレクション内の要素の削除
オブジェクト名.Remove(インデックス)
オブジェクト名.Remove(キー)

コレクションから要素を取り出す
オブジェクト名.Item(インデックス)
オブジェクト名.Item(キー)

利用例
Class TestClass
    Public Name As String

    Sub New(ByVal Str As String)
        Me.Name = Str
    End Sub
End Class

Module Module1
    Sub Main()

        Dim List As Collection
        List = New Collection

        Console.WriteLine(List.Count)
        List.Add(New TestClass("TAROU"))
        List.Add(New TestClass("JIROU"))
        List.Add(New TestClass("SABUROU"))
        Console.WriteLine(List.Count)

        For Each Parts As TestClass In List
            Console.WriteLine(Parts.Name)
        Next

	End Sub
End Module

結果
0
3
TAROU
JIROU
SABUROU

Advertisement

ショートカット

634
634ブログ
このカテゴリのトップページに戻る
Incubator(Pukiwiki)
634ラボ
   UIコレクションギャラリー
   ZO-3ジェネレーター

サイト検索


Y!ログール