Question

VB中如何把文本框2的里的内容 输入到文本框1的末尾

比如文本框1里输入ABCD，文本框2里输入789以后就自动追加到文本框1里，此时文本框1里的内容是ABCD789，求具体代码
还有就是如何做到文本框2里的内容变了，文本框1的末尾添加的字也变，而不是在原有的基础上追加

Answer 1

非常简单啦，没有2楼那么多代码

Private Sub Text2_Change()
Text1.Text = Text1.Text & Right(Text2.Text, 1)
'文本框1的后面连接上文本框2最后输入的字符，也就是最右面的字符
End Sub

Answer 2

text2改变的时候text1 也改变
当在text2中按回车的时候就添加到text1后面
Public ss As String
Public ss1 As String

Private Sub Form_Load()
ss1 = Text1.Text
End Sub

Private Sub Text2_Change()
ss = Text2.Text
Text1.Text = ss1 + ss
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ss1 = ss1 + ss
ss = ""
text2.text=ss
Text1.Text = ss1 + ss
End If
End Sub

楼下的：text2变的时候难道就只有最后一个字符变，不会中间的变？你没考虑删除一个字符等情况，只考虑了顺序输入的情况，这是最简单的！

Answer 3

写程序在 焦点小时的时候 将 text1.text=text1.text & text2.text

就行了
VB中对象有这个事件。
text1 是文本框1
text2是文本框2

Answer 4

text1.text=text1.text+text2.text
把这段代码加进（键盘点击）里面