Question

VB如何做到点击任意一个文本框再点击一个按钮使按钮上的文字输入在选定的文本框内？

如图，如果选中第一个文本框再点按钮使第一个文本框内出现按钮上的文字；如果选中第二个文本框再点按钮使第二个文本框内出现按钮上的文字。

Answer 1

设一个窗体变量，记录下最近一次获取焦点的textbox

Option Explicit
Private ntext As Integer
Private Sub Command1_Click()
If ntext = 1 Then
Text1.Text = Command1.Caption
ElseIf ntext = 2 Then
Text2.Text = Command1.Caption
End If


End Sub
Private Sub Command2_Click()
If ntext = 1 Then
Text1.Text = Command2.Caption
ElseIf ntext = 2 Then
Text2.Text = Command2.Caption
End If

End Sub
Private Sub Text1_GotFocus()
ntext = 1

End Sub
Private Sub Text2_GotFocus()
ntext = 2

End Sub

追问

谢谢！