VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/10/25(Tue) 00:24
投稿者はせ
Eメール
URL
タイトルCollectionで悩んでます

VB6.0 + Win2000です

Collectionを使いこなせなくて悩んでます。
クラス内で宣言されているCollectionにオブジェクトを追加すると
Collection内の全てのオブジェクトが書き換えられてしまいます。

こんな感じです。
Item1、Item2、Item3、一覧はクラスです。

Item1.Name="あああ"
Item2.Name="いいい"
Item3.Name="ううう"

Call 一覧.Add Item1
Call 一覧.Add Item2
Call 一覧.Add Item3


------一覧クラス内
Private ItemList as Collection
Friend Sub Add(Item as clsItem)

ItemList.Add Item

end sub

Item1を追加した時は ItemList.Item(1).Name は ”あああ” なのですが
Item2を追加した時は ItemList.Item(1).Name も Item(2) も ”いいい”になってしまう
Item3を追加した時は ItemList.Item(1).Name も Item(2) も Item(3)も
 全部 Name=”ううう”になってしまうのです。

どこがいけなかったでしょうか?
レコードとか配列を使えば解決しそうなのですが
Collectionをやっつけれるように、ご教授お願いします。


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

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -