リストボックスの内容をテキストに書き込むには？

質問

似たような質問が前に出ていて恐縮なのですが、そちらと多少の違いがあって解決できなかったため、質問させていただきます。

Visual Basic6.0で、リストボックスに表示している内容をテキストボックスに書き込むにはどうすればよいのでしょうか？

一応、下記のようなプログラムを自分で組んでみたのですが、なぜかリストボックスの一行目にある項目だけが複数回書き込まれてしまいます。
（Print～の位置をNext～の次にすると、一行目が一度だけ書き込まれて終了、になってしまいました。）

Open filename For Output As #1
Dim lngIdx As Long
Dim strData() As String
ReDim strData(List.ListCount - 1)
For lngIdx = 0 To List.ListCount - 1
strData(lngIdx) = List.List(lngIdx)
Print #1, strData(IngIdx)
Next lngIdx
Close #1

Do UntilとLoopを入れるべきなのだと思いますが、どうも入れ方が悪いようで必ずプログラムが動かなくなってしまいました。

初めてまだ2ヶ月の初心者なのでかなり初歩的なことを質問しているとおもいますが、回答よろしくお願いします。

回答No.1

TAK_999 · ベストアンサー

Print文で使用しているstrData配列の添え字はIngIdxですが
それ以外の場所では、lngIdxとなっており、先頭がLとIで違う変数です

IngIdxは初期化されていないので常に０のままですから、質問に書かれている
通りの動作になります。

余計なお世話ですが、Option Explicitで変数の宣言を強制するとこのような
不具合はなくなりますよ

お礼

迅速な回答、本当にありがとうございます。

なんとその間違いを直しただけであっさり動いてしまいました。
あまりにも阿呆な質問をしてしまい、かなりお恥ずかしいですが、今後このようなことが起こらないように精進したいと思います。

しかしこんな初歩以前の問題とはいえ、約１週間も悩んでいたので、解決して実に嬉しかったです。ありがとうございました。

Option Explicitという変数宣言はまだ使用したこと、というか見たこともないのですが、そちらのほうも調べて組んでみたいと思います。