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

Question

我知道这是一个愚蠢的问题，但我仍然想知道它。我有两个文本框，textbox1 和 textbox2。我在 textbox1 中输入了一些文本。现在，当我使用选项卡索引或通过在 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 事件。