读取text文件的最快方法是使用Input$函数，就象下面的过程： @H_502_0@ Function FileText(ByVal filename As String) As String @H_502_0@ Dim handle As Integer' 判断文件存在性 @H_502_0@ If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到 @H_502_0@ End If @H_502_0@ ' 以binary模式打开文件 @H_502_0@ handle = FreeFile @H_502_0@ Open filename$ For Binary As #handle @H_502_0@ ' 读取内容，关闭文件 @H_502_0@ FileText = Space$(LOF(handle))Get #handle,FileText @H_502_0@ Close #handle @H_502_0@ End Function @H_502_0@ 使用上述方法要比使用Input命令读取文件每一行的方法快很多。下面是应用这个函数读取Autoexec.bat的内容到多行textBox控件的例子： @H_502_0@ Text1.Text = FileText("c:\autoexec.bat") @H_502_0@ @H_502_0@

无闪烁地快速附加字符串到TextBox控件 附加文本到TextBox或者RichTextBox控件的通常方法是在当前内容上连接上新的字符串： Text1.Text = Text1.Text & newString 但还有一个更快的方法，并且会减少连接操作的闪烁感，代码如下： Text1.SelStart = Len(Text1.Text) Text1.SelText = newString

原文链接：https://www.f2er.com/vb/259336.html