none
Adicionar evento click em cada controle textbox no form RRS feed

  • Pergunta

  • Quero fazer um selectall() em todos os textbox do meu form

    Para evitar de abrir 1 por 1 em cada  evento click de cada textbox colocar o codigo, queria fazer isso em um loop

    Mas não estou conseguindo achar os textbox dentro do form

        Private Sub txt_Click(sender As Object, e As EventArgs)
            Dim txt = DirectCast(sender, TextBox)
            txt.SelectAll()
    
        End Sub
    
        Private Sub FRM_CADUSUARIO_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim txt As New TextBox
            For Each txt In Me.Controls
                AddHandler txt.Click, AddressOf txt_Click
            Next
        End Sub

    terça-feira, 29 de julho de 2014 20:35