表示プログラムについて

質問

テキストの中の”あいうえお”のような文章を表示させるプログラムを作りたいんですが
Private Sub Command1_Click()
Open "c:\mydata\test.txt" For Input As #1
End Sub

Private Sub Command2_Click()
Close #1
End Sub
では表示されませんでした。何がおかしいかとかどうすればいいか教えてください。お願いします。

回答No.1

TAGOSAKU7 · ベストアンサー

テキストを開いているのですが、値を取得しないで閉じてます。
取得するようにしましょう。

Private Sub Command1_Click()
　　Dim strWork　As String

　　'テキストを開く
　　Open "c:\mydata\test.txt" For Input As #1

　　　　'１行取得
　　　　Line Input #1, strWork

　　'テキストを閉じる
　　Close #1

　　MsgBox strWork
End Sub

お礼

丁寧なそしてお早い回答ありがとうございました。値を取得しないで閉じていたんですね、ありがとうございます。