テキストボックス表示

---

1,2,3,4,5,・・・・のようなデータの入ったファイルを選択して開
き、テキストボックスに表示させようと思って、以下のようなプログラムを組みました。
CommonDialog1.ShowOpen
strfilename = CommonDialog1.FileName
filenum = FreeFile()
Open strfilename For Input As filenum
Do While Not EOF(filenum)
 Input #filenum, mystr
 Text1.Text = mystr

Loop
Close #filenum

しかし、これだと一番最後のデータ（データが1,2,3だと最後の3）しか表示されません。すべて表示させるにはどうすればよいのでしょうか？

編集 削除

---

>Text1.Text = mystr
ここで最後の文字に置き換えてるからです
文字列の結合を行うには＆を使います

編集 削除

---

改行したかったら「vbCrLf」をお使いください。

編集 削除

---

テキストボックスに表示できる文字数の制限を超えないように気を付けて下さい。
MultiLineプロパティの設定に依存しますが最大３２ＫＢなのでちょっと大きいファイルだと表示不能です。

大きいファイルを表示したいときはリッチテキストボックス等のもっと大きいデータの表示が可能なコントロールを使用することをお勧めします。

編集 削除

---

返信ありがとうございます。これはやはりファイルを読み込むところのプログラムから見直す必要があるのでしょうか？

編集 削除

---

>これはやはりファイルを読み込むところのプログラムから見直す必要があるのでしょうか？
なぜそう思うのかを書きましょう。

>しかし、これだと一番最後のデータ（データが1,2,3だと最後の3）しか表示されません。すべて表示させるにはどうすればよいのでしょうか？
は解決されたのでしょうか？

編集 削除

---

>これはやはりファイルを読み込むところのプログラムから見直す必要があるのでしょうか？
解決されていないのなら、この2つのソースを試してみてください。
あと、参考程度に・・・・・・・・・・・・

Dim i as Long
For i=1 To 3
 Text1.Text=i
Next i

Dim i as Long
For i=1 To 3
 Text1.Text=Text1.Text & i
Next i

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。