投稿日 | : 2003/06/12(Thu) 02:08 |
投稿者 | : JsMan |
Eメール | : |
URL | : |
タイトル | : ツリービューへアイテム追加 |
下記のようにFor〜To文で回し、アイテムを追加したいのですが、
●の部分で「実行時エラー35602、コレクション内で固有のキーではありません」
と出て、止まってしまいます。
配列要素をツリービューのアイテムに連続追加する方法はないでしょうか?
**************************
Dim NodeX As Node
Dim Cnt(3) As String
Cnt(0) = "りんご"
Cnt(1) = "バナナ"
Cnt(2) = "みかん"
Cnt(3) = "イチゴ"
i = 1
Set NodeX = TreeView.Nodes.Add(, , "kudamono", "果物")
For i = 0 To 3
● Set NodeX = TreeView.Nodes.Add("kudamono", tvwChild, "kuda_Name", Cnt(i))
Next i