复制某些文本框的前三个字母并粘贴到另一个文本框

Question

我知道这是一个愚蠢的问题，但我仍然想知道它。我有两个文本框，textbox1和textbox2。我在textbox1中输入了一些文字。现在我希望当我使用tab索引或在textbox2上单击鼠标从textbox1移动到textbox2时，textbox1的前3个字符首先显示在textbox2中。我知道我可以让我们把鼠标放在事件上，但如果我从你那里得到一些好的意见，那就太棒了。提前谢谢。

Answer 1

这应该做的工作：

Private Sub textbox2_GotFocus()
 Dim length As Integer
 length = Len(textbox1.Text)
 If length > 3 Then length = 3
 textbox2.Text = Left$(textbox1.Text, length)
End Sub

如果单击文本框或使用Tab键，将触发GotFocus事件。