200分！如何让VB6文本框滚动条总在上面?

来源：百度知道 编辑：UC知道 时间：2024/05/22 06:33:04
VB6文本框text1.text输入内容，提交后，放到了文本框text2.text中，
问题：
text2.text满框后如何让滚动条始终置于最上面，也即是实现总是在text2.text最下方显示最新提交的内容？
请写出代码.

'添加窗体Form1,按钮Command1,文本框Text1,Text2,并将Text1和Text2的MultiLine设为True，ScrollBars设为Both，然后复制如下代码：
Private Sub Form_Load()
Dim n As Integer
For n = 1 To 10
Text1.Text = Text1.Text & CStr(n) & vbCrLf
Next
Command1.Caption = "提交"
End Sub

Private Sub Command1_Click()
Text2.Text = Text1.Text
Text2.SetFocus
Text2.SelStart = Len(Text2.Text)
End Sub

bailing793好象回答 的不对题哦

--------------
我不知道你说的是什么意思，不过如果要text2显示最新提交的只要
text2.seltext=text1

LZ你好，我觉得应该是这样：

当Text1中的内容提交到Text2中的时候，如果Text1.text的长度小于Text2的显示区域的话，的确可以用
text2.selstart=len(text2)
但是问题是如果Text1.text的长度大于Text2的显示区域的话，用text2.selstart=len(text2)就会把插入点（光标）移到Text2的最末尾，从面向用户设计的角度来说这样并不是最亲切的（一般来说用户都需要在Text1.text提交以后在Text2的文本框里显示所最新插入的Text1.text的首位置）

而要实现在Text1.text提交以后在Text2的文本框里显示所最新插入的Text1.text的首位置，可以用一个模块级变量intSum记录所有提交Text1.text的总字数，当提交Text1的内容后将Text2的插入点位于intSum所在的