Select all textbox text

Question

I have the following code:

Private Sub nct_focus(sender As Object, e As EventArgs) Handles nCT.GotFocus, nCT.Click
    sender.SelectAll()
End Sub

what happens is this, it works well, however I have some 40 textboxes in my form, I already took a look and I would like to call this function in all textboxes of my form...

some way to do this without having to repeat the code every time you include a new textbox?

Answer 1

Just add the elements that will have the events treated (handled) by separating by commas:

Private Sub nct_focus(sender As Object, e As EventArgs) Handles text1.GotFocus, text2.GotFocus, text2.GotFocus.... etc....
    sender.SelectAll()
End Sub

Now if you want to automatically all the Textboxes of your form have the event associated with your method, you can search all the elements within your form, in Collection Controls, check if not of the type TextBox and associate the event.

You can do this by loading the form, something like that:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
   ' Para cada controle, verificar o tipo e associar ao evento
    For Each ctrl As Control In Me.Controls

        If TypeOf ctrl Is TextBox Then
            Dim textBox As TextBox = CType(ctrl, TextBox)
            AddHandler textBox.GotFocus, AddressOf nct_focus
        End If
    Next
End Sub