VB一些问题请教

Question

工程里建立一个
Text1
Text2
Command1
Command2
我在Text1中输入内容 比如“哈哈”然后点 Command2的时候Text2显示发送的内容
关键是我 再次 在Text1中输入 “哎呀”的时候Text2显示 “哎呀”。让Text2显示发送的记录：
“哈哈”
“哎呀”
的效果 如此类推 ！请求赐教

Answer 1

Private Sub Command2_Click()
Dim temp As String
temp = Text2.Text
Text2.Text = temp & Text1.Text
End Sub
如果要换行之类，连接符中间加个CHR(10)之类的追问

Text2属性设置 滚动条 的时候呢？让TEXT2的显示一直最下面

追答

什么意思？没明白想干嘛。

追问

前面的已经弄好了 现在 还有一个不明白 Texe2的已经设置为滚动条，但是怎么让滚动条一直保持在最下面呢？
Private Sub Command1_Click()
If Text1.Text "" Then
If Text2.Text "" Then
Text2.Text = Text2.Text & vbCrLf & vbCrLf + Text1.Text
Else
Text2.Text = Text2.Text + Text1.Text
End If
End If
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub

追答

做个TEXT2的焦点即可，但缺点是下次TEXT1录入要重新获得焦点
Private Sub Text2_Change()
Text2.SetFocus
SendKeys "{end}"
End Sub