拐个帅鬼老公萌萌哒:VB中如何把文本框2的里的内容 输入到文本框1的末尾

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 07:39:43
比如文本框1里输入ABCD,文本框2里输入789以后就自动追加到文本框1里,此时文本框1里的内容是ABCD789,求具体代码
还有就是如何做到文本框2里的内容变了,文本框1的末尾添加的字也变,而不是在原有的基础上追加

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变的时候难道就只有最后一个字符变,不会中间的变?你没考虑删除一个字符等情况,只考虑了顺序输入的情况,这是最简单的!

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

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

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

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

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