在RichTextBox中，当文本文件比较大时（比如10M多），取得文本的长度或文本内容都要花很长时间。
比如下面的代码：
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub cmdShowLen_Click()
Dim T As Long, L As Long
T = timeGetTime
L = Len(RichTextBox1.Text)
T = timeGetTime - T
MsgBox "用时=" & Str(T) & " 长度=" & Str(L)
End Sub
Private Sub cmdGetText_Click()
Dim T As Long
Dim S As String
T = timeGetTime
S = RichTextBox1.Text
T = timeGetTime - T
MsgBox "获取文本用时=" & Str(T)
End Sub
编译成本机代码后进行测试。
对一个690K的文本文件，获取长度或文本均在85ms左右；
对一个5.5M的文本文件，获取长度或文本需要9,600ms左右；
对一个14.2M的文本文件，获取长度或文本需要65,400ms左右。
对于更大的文件已经不想测试了。
第2个文件不到第1个文件的10倍大小，花费的时间却超过100倍！
第3个文件不到第2个文件的3倍大小，花费的时间也近7倍！
有什么办法可以快速取得RichTextBox里面的文本和长度呢？
SendMessage可以吗？
又或者有什么控件可以快速取得文本和长度的呢？（只要能容纳大的纯文本文件）
