tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: ArrayListの定義
投稿日: 2013/06/29(Sat) 17:25
投稿者魔界の仮面弁士
> ArrayListの配列をはじめて使いますが、
VB6 に ArrayList は存在しません。
(VB.NET には ArrayList がありますが、配列ではありません)

VB.NET の ArrayList に近い物としては、VBA.Collection オブジェクトがあります。
ソートなどが必要なケースでは、ADODB.Recordset で代用する手法もありますね。

とりあえず、VBA.Collection を用いたサンプル:

Dim col As VBA.Collection
Set col = New VBA.Collection

col.Add "Item1"
col.Add "Item2"
col.Add "Item3"

Debug.Print "件数:", col.Count
Debug.Print "1番目:", col(1)
Debug.Print "2番目:", col(2)
Debug.Print "3番目:", col(3)

Debug.Print "2番目を削除"
col.Remove 2

Debug.Print "件数:", col.Count
Debug.Print "1番目:", col(1)
Debug.Print "2番目:", col(2)


もし、Collection や Dictionary などの機能ではどうしても都合が悪いのであれば、
下記の様にして、.NET の ArrayList を呼び出すこともできます。
(個人的にはあまりお奨めしません)

Dim ar As Object
Set ar = CreateObject("System.Collections.ArrayList")

ar.Add "Item1"
ar.Add "Item2"
ar.Add "Item3"

Debug.Print "件数:", ar.Count
Debug.Print "0番目:", ar(0)
Debug.Print "1番目:", ar(1)
Debug.Print "2番目:", ar(2)

Debug.Print "1番目を削除"
ar.Remove 1

Debug.Print "件数:", ar.Count
Debug.Print "0番目:", ar(0)
Debug.Print "1番目:", ar(1)

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。