按钮点击改变选定文本框的文本

Question

我有一个问题，涉及一个按钮单击事件，更改窗体上当前选定的文本框的文本。这可能吗？如果是这样，我该如何去做呢？

编辑：我不知道文本框的名称，但它将始终是当前选定或'重点'文本框。

Answer 1

主要问题是，当您按下按钮时，文本框不再是焦点。 通过解决方案出现here，您可以这样做：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If lastTextBoxFocused IsNot Nothing Then 
     lastTextBoxFocused.Text = "Bla bla, bla!" 
    End If 
End Sub 

Dim lastTextBoxFocused As TextBox 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    'find all TextBox's in the Form. 
    For Each Ctrl In Me.Controls 
     If TypeOf Ctrl Is TextBox Then 
      'attach a lambda expression to each Enter event, to "remember" the last enter 
      AddHandler CType(Ctrl, TextBox).Enter, Sub(o, ev) lastTextBoxFocused = o 
     End If 
    Next 
End Sub