蔡逸竹

文字檔快速讀入 TextBox
使用 TextBox 顯示文字檔內容，通常對應設計的程式片段是

引用:

txtContent.Text = ""             '清除內容

Open sFile$ For Input As #1 '開啟文字檔

While Not EOF(1)                '未到檔案尾端

    Line Input #1, a$              '逐行讀取

    txtContent.Text = txtContent.Text & a$ & vbCrLf    '逐行加入txtContent及換行符號

Wend                                 '反覆執行

Close #1                             '關閉檔案

若是將 TextBox(txtContent) 顯示內容 的處理敘述略作變更，將可加快處理速度

引用:

txtContent.Text = ""             '清除內容

Open sFile$ For Input As #1 '開啟文字檔

While Not EOF(1)                '未到檔案尾端

    Line Input #1, a$              '逐行讀取

    txtContent.SelText = a$ & vbCrLf    '逐行加入txtContent及換行符號

Wend                                 '反覆執行

Close #1                             '關閉檔案

其中的道理是：
因為 txtContent.Text = txtContent.Text & a$ & vbCrLf 會安排一個記憶體位置儲存等式右側的運算結果，再清除 txtContent 原有內容，以此一運算結果取代之，其間包含許多的動作；而 txtContent.SelText = a$ & vbCrLf  是直接把右側的運算結果放入 txtContent 裡，少了很多不必要的的動作，所以比較快。

此外，以單一敘述一次讀入整個檔案更可加快完成

引用:

txtContent.Text = ""             '清除內容

Open sFile$ For Input As #1 '開啟文字檔

txtContent.Text = StrConv(InputB(LOF(F), #1), vbUnicode)    '一次讀入整個檔案

Close #1                             '關閉檔案

wisely9

謝謝分享，希望有更多教學，因為要趕快學會VB說

aa062102

最近要參加競賽
如果我的vb能夠在強勁一點
說不定更能大大交流了

大哥

謝謝分享，希望有更多教學

taiwu

謝謝大大無私的分享，感恩！

jiajun7725

真是受教了！
感謝分享喔！

naruto6404

有點兒複雜，這是VB6.0吧，我沒有VB6.0學的深...

如果用2010就簡單多了。