Question

VB winsock 接收数据会变慢

请问大家帮忙看看我的代码？为什么接收数据会越来越慢，我是先发送一条命令给我的服务器，然后服务器会返回一些告警信息，大概有几万行的信息。
接收代码如下：
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

Static strData, strSend As Byte

Winsock.GetData strData, vbString

RichTextBox1.Text = RichTextBox1.Text & strData

RichTextBox1.SelStart = Len(RichTextBox1.Text)

End Sub

Answer 1

估计应该不是接收数据变慢了，而是richtextbox的内容太多了。
你试试在最前面加一个richtextbox.visible=false
最后面再加一个判断，用于判断传输是否完成
if 传输完成 then
richtextbox.visible=true
RichTextBox1.SelStart = Len(RichTextBox1.Text)
end if
这样应该能提高一些速度。
至于判断条件，可以由服务器发送一个传输完成的信息

追问

我试了你说的方法，没有效果啊
而且当我运行程序的时候，CPU使用率很高，我只能在程序管理器里强行关闭它。