内存的奇怪有关问题

内存的奇怪问题

VB code

Function filetext(ByVal FileName As String) As String    ' 判断文件存在性    If Len(Dir$(FileName)) = 0 Then        Err.Raise 53 '文件没有找到    End If    ' 以binary模式打开文件    handle = FreeFile    Open FileName$ For Binary As #handle    ' 读取内容，关闭文件    filetext = Space$(FileLen(FileName))    Get #handle, , filetext    Close #handleEnd Function外部调用：CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueRichTextBox1 = ""RichTextBox1 = filetext(CommonDialog1.FileName)

用这段代码加载文本文件到richtextbox中，速度挺快，但是编译成可执行文件，如果读取的文本文件够大，比如2、3M的时候，关闭程序后，可执行文件还在任务管理器中，cpu和内存都占用不少，如果换成text框来接收数据，就能关闭可执行程序，但读取大文件又读取不全，而且格式比较差，不知道用richtextbox读取大文本文件用什么方法好呢？

[解决办法]
直接用RichTextBox1.FileName= 装载文件呢?
[解决办法]
友情Up.............

[解决办法]
Private Sub Form_Unload(Cancel As Integer)
RichTextBox1 = ""
End Sub
即可释放内存

查看更多 下一篇