Private Sub ButtonClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click For Each t As TextBox In GroupBoxGen.Controls.OfType(Of TextBox)() t.Text = "" Next For Each t As TextBox In GroupBoxPin.Controls.OfType(Of TextBox)() t.Text = "" Next For Each t As TextBox In GroupBoxKey.Controls.OfType(Of TextBox)() t.Text = "" Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub ButtonClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click For Each t As TextBox In Me.Controls.OfType(Of TextBox)() t.Text = "" Next End Sub