VB6でテキストボックスに入力した内容をリアルタイムにテキストファイルに書き出していく方法は？

質問

テキストボックスに書き出した内容をテキストファイルに書き出すのに、最後に「保存」ボタンを作りまとめて行っていますが、これを、テキストボックスに内容を入力し始めたらそのままテキストファイルとして保存されるとともに、どんどん追加書き出しされるような方法はありませんか？
多分Keydownとかを使うのでは、と思うのですが、やり方が全然分かりません。どなたか教えてください！！！よろしくお願いします。

回答No.1

TAGOSAKU7

キーダウン、キープレスだと、マウス操作による変更が反応しません。
リアルタイムということなら、チェンジイベントを使用しましょう。

サンプルは、テキストボックスのMultiLineをTrueにして使用した方が、見栄えがいいかも？

Private Sub Text1_Change()
　　Const TEST_FILE = "c:\test.txt"

　　Dim strText As String
　　Dim lngFile As Long

　　strText = Me.Text1.Text

　　lngFile = FreeFile
　　Open TEST_FILE For Binary Access Write As #lngFile
　　　　Put #lngFile, , strText
　　Close #lngFile
End Sub

お礼

ありがとうございます！Text1_Changeって全然知りませんでした。なるほど、テキストを更新する度にそういうイベントが発生しているわけですね。試してみます。