以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文本框里怎样一行一行写入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161660)
--  作者：2425004926
--  发布时间：2021/3/25 15:59:00
--  [求助]文本框里怎样一行一行写入
文本框里增加了一万行，显示会出现延迟，怎样一行一行显示出来

Dim xt As String
With Forms("窗口1").Controls("txtMemo")
    For i As Integer = 0 To 10000
        xt = xt & .Lines(i) & vbcrlf
    Next
End With
e.Form.Controls("TextBox1").text = xt
--  作者：有点蓝
--  发布时间：2021/3/25 16:13:00
--  
没有办法。这个文本框也就是一个普通控件，并不是专业的字处理控件
--  作者：2425004926
--  发布时间：2021/3/25 16:40:00
--  
 好的