複製一些文本框的前三個字母並粘貼到另一個文本框

Question

我知道它的一個愚蠢的問題，但我仍然想知道它。我有兩個文本框，textbox1和textbox2。我在textbox1中輸入了一些文本。現在我希望textbox1的前3個字符首先在textbox2中顯示，當我使用Tab索引或通過在textbox2上單擊鼠標從textbox1移動到textbox2時。我知道我可以讓我們對事件有所瞭解，但如果我從你那裏得到一些好的意見，這將是非常棒的。提前致謝。

Answer 1

這應該做的工作：如果你點擊文本框，或者如果您使用Tab鍵

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 

GotFocus事件將觸發。