2013-10-10 99 views
0

我有一個問題,涉及一個按鈕單擊事件,更改窗體上當前選定的文本框的文本。這可能嗎?如果是這樣,我該如何去做呢?按鈕點擊改變選定文本框的文本

編輯:我不知道文本框的名稱,但它將始終是當前選定或'重點'文本框。

+0

您試過了什麼? – varocarbas

回答

0

主要問題是,當您按下按鈕時,文本框不再是焦點。 通過解決方案出現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 
相關問題