버튼 클릭시 선택한 텍스트 상자의 텍스트 변경

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