查看完整版本: 如何防止text框上下滚动

如何防止text框上下滚动

我用一个text控件来输出socket连接返回的代码，每次定位到最后一行
    Text1.Text = Text1.Text + STR1
   Text1.SelStart = Len(Text1.Text)

我的问题是，每次socket有输出，text框都会从最上面的一行滚到最后一行，让人眼晕，text控件能不能不来回滚动啊，
还有一个问题就是，text框能不能固定行数或大小，也就是说当text1.text达到一定的行数或大小时，超过的部分自动消失（不要让text过大，占用过多内存，text只保留固定大小或行数的最新内容）
请各位高手不吝赐教:)

没有人会么，郁闷中

Text1.SelStart = Len(Text1.Text)
Text1.selText = Text1.Text + STR1
Text1.SelStart = Len(Text1.Text)

不行啊，每次运行Text1.SelStart = Len(Text1.Text)，都是text1框从最上面滚到最下面，如果换成上面脚本，屏幕滚动更厉害了啊

如果是滚的慢，可能是你的文本太大，正常是很快的，如果文本量太大，可以使用richtextbox

上面的错了，你这样试试
Text1.SelStart = Len(Text1.Text)
Text1.selText = STR1
Text1.SelStart = Len(Text1.Text)