そうですか・・・・
元ソースの抜粋をチョット改造してあったのですね。
しかしVersionが古くとも一緒です。
エクスプローラはTreeViewを使用しています。Win95のエクスプローラと言えども、２００個以上のフォルダは閲覧できないなんて制限はありませんよね。それと一緒のはずなのですが・・・
現在公開してもらったサンプルソースでも２００行ぐらいでエラーが起こるのですか？コード的には合ってるように見えます。
もしかしたら読み込んでるデータに不具合があるとか？
実際のエラーメッセージを正確に教えてもらえると、ちょっと参考になるかも？
投稿日時 - 2002-03-20 17:02:47
お礼
ありがとうございました。
諦めずにがんばってみます。
投稿日時 - 2002-03-21 09:04:46
1人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（2件中 1～2件目)
親となる"％"で始まる文字列のIndex値を、変数Jにて一時記憶している処理ですよね？
親となるNodeは[tree1]に追加されていて、子となるNodeは[tree2]に追加されています。
同じTreeView内でないと、親子の関係が結べないのではないのでしょうか？
投稿日時 - 2002-03-20 09:36:52
補足
ご回答ありがとうございます。
すみません。元のツリーの名前が結構恥ずかしかったので一般的な名前に置き換えたのですが、その時に間違えたようです。両方ともtree1だと考えてください。
お手数ですが、もう一度診ていただけませんでしょうか。
ＯＳはｗｉｎ９５でＶＢ４です。古くてすみません。
投稿日時 - 2002-03-20 14:25:18
きちんと実験をしてませんが・・・
こちらの環境では問題なく２００００件以上の登録ができました。
OS :WIN2KSP2
TOOL:VB6SP5
２００行の制限なんてありませんよ。
コードに問題があると思われます。
Nodeを追加している付近のコードを公開できませんか？
投稿日時 - 2002-03-19 09:19:26
補足
早速のコメントありがとうございます。
ご診断よろしくお願いします。
"test.ini"というファイルから１行ずつ読み込んで
先頭文字が"%"なら親ノードとして以降の文字列を登録、それ以外なら
その子ノードとして全部の文字列を登録、というつもりで作りました。
１５０行ぐらいのファイルならＯＫですが、２００行ぐらいでエラーです。
「実行時エラー35600 インデックスが指定可能範囲をこえています」と
出ます。
よろしくお願いします。
Private Sub Form_Load()
Dim s As String
Dim nd As Node
Dim i, j As Integer
i = 0
j = 0
Open "test.ini" For Input As #1
Do
If EOF(1) Then Exit Do
Line Input #1, s
i = i + 1
If Left$(s, 1) = "%" Then
Set nd = tree1.Nodes.Add(, , , Right$(s, Len(s) - 1), 0)
j = i
Else
Set nd = tree2.Nodes.Add(j, tvwChild, , s, 0)
End If
Loop
Close #1
End Sub
投稿日時 - 2002-03-19 23:24:01
OKWaveのオススメ
おすすめリンク
