テキストボックスから文字列を一行ずつ読み込むには？

解決

てきすと  2004-12-01 17:32:20  No: 117934  IP: [192.*.*.*]

テキストボックスから一行ずつ文字列を読み込みたいのですが、
テキストファイルからなら、
dim str as string
Open "テキストファイル名" For Input As #1
 Do
 Input #1, str  'テキストファイルから一行
 
 Loop while EOF(1)=False
Close
みたいな感じでできたのですが、この場合のテキストファイルではなく、Text1.textやstr2などから一行ずつ読み出したいのですが。どうすればよいのでしょうか。
一行ずつ処理をしたいので、一度にまとめて読み込んでは意味がありません。
よろしくお願いします。
環境はvb6です。

編集 削除
nanashi  2004-12-01 18:03:59  No: 117935  IP: [192.*.*.*]

APIのSendMessageでEM_GETLINEを使えば取れます。

編集 削除
ねろ  2004-12-01 18:04:26  No: 117936  IP: [192.*.*.*]

テキストボックスから読み込むとは言わないかな。
取得するとか一行ずつ切り出すとか。。。。
Dim b() As String
Dim n As Integer
Text1.Text = "aaa" + vbCrLf + "bbb" + vbCrLf + "cccc"
b = Split(Text1.Text, vbCrLf)
For n = 0 To UBound(b)
    Debug.Print b(n)  '一行ずつ処理
Next
こんな感じです。

編集 削除
てきすと  2004-12-02 01:33:21  No: 117937  IP: [192.*.*.*]

解決しました。
大変参考になりました。
ありがとうございます。

編集 削除