编程开发论坛 - Powered by Discuz! Board

标题: [控件] 如何防止text框上下滚动 [打印本页]

作者: xiangwentian 时间: 2010-6-17 16:55 标题: 如何防止text框上下滚动

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

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

作者: xiangwentian 时间: 2010-6-22 10:17

没有人会么，郁闷中

作者: Nothing 时间: 2010-6-22 12:38

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

作者: xiangwentian 时间: 2010-6-22 16:59

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

作者: Nothing 时间: 2010-6-23 20:43

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

作者: Nothing 时间: 2010-6-23 21:10

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

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)