|
分類:[.NET 全般]
現在、部活の提出プログラムとして、VB6.0でノベルゲームを作ろうとしている者なのですが、ファイルの文章を全部テキストに表示することまではできるようになっていますが、どうすればファイルの文章を１０行程度表示させ、ボタン操作で次の10行に変えるように出来るのかが分からず非常に困っております。
提出期限が迫っている中、部活の先輩に尋ねても、彼自身もプログラムのEOFの部分をどういう風に直せばいいのかわからない有様です。
恥を承知でお尋ねいたします。どなたか、以下のプログラムをどのように改良すればファイルの文章を１０行程度表示させ、ボタン操作で次の10行に変えるように出来るのかについてのアドバイスをお願いいたします。
Private Sub Form_Click()
'使用可能なファイル番号を取得する
Dim str As String
str = FileSystem.FreeFile()
'ファイルから読み込み
Open "C:\シナリオ.txt" For Input As #str
Dim stPrompt As String
'テキスト ファイルの最後まで読み込む(1行読み込みを繰り返す)
Do While (Not FileSystem.EOF(str))
Dim stBuffer As String
Line Input #str, stBuffer
stPrompt = stPrompt & stBuffer & vbNewLine
Loop
'ファイルを閉じる
Close #str
'結果を表示する
Text1.Text = stPrompt
End Sub
|
