[VB6 ] 輸入已超過檔案結尾

[A1pha ([αλφα])]

我在幫我的程式寫說明檔，
方法是寫在一個ReadMe.txt裡面，
然後使用者在程式終點選「說明」選單的時候，
會跳出一個表單，
表單上一個超大的文字框（txtReadMe），
然後把ReadMe.txt的東西讀出來丟進去...
一開始測的時候還OK，
後來寫好之後，測試就不行了，
出現，輸入超過檔案結尾。

我去查MSDN，沒有結果...
http://msdn2.microsoft.com/zh-tw/library/1k5e45de(VS.80).aspx
我應該試用循序的方式開啟的...
也沒有其他檔案在用ReadMe.txt

只好求助這邊了QQ
下面是程式碼...
--
Private Sub Form_Load()
    Open App.Path & "\ReadMe.txt" For Input As #1
    txtReadMe.Text = Input(LOF(1), #1)
    Close
End Sub

--
潘子曰：「浸信蘇，則不如無蘇。」

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.8.71.163
※ 編輯: A1pha           來自: 124.8.71.163         (01/12 00:46)
→ A1pha:我看大部分的人都是用回圈找 Eof(1)=True
→ A1pha:不過我這書上的範例是用  Input(LOF(1), #1)
→ A1pha:該不會是因為，我的說明檔用中文寫的，所以不能用LOF吧？
後來試了：
Private Sub Command1_Click()
    txtReadMe = ""
    Open App.Path & "\ReadMe.txt" For Input As #1
    Dim temptxt As String
    Do While Not (EOF(1))
        Input #1, temptxt
        txtReadMe = txtReadMe & temptxt
    Loop
    Close
End Sub
不過這樣就變成沒辦法斷行....
真搞不懂啊
※ 編輯: A1pha           來自: 124.8.71.163         (01/12 03:00)
→ A1pha:我會斷行了.... & vbCrLf   囧   奇摩知識真好用...囧