Instância

Question

Olá pessoal, boa tarde!

Criei um array de TextBox pra imprimir dados de forma mais eficiente no meu Form

A principio deu tudo certo. Mas agora está aparecendo a seguinte msg: 

'Referência de objeto não definida para uma instância de um objeto.'

Eis o meu código

Public txt(16) As TextBox

Sub AtribuiçãoTextBox_Parâmetros2019()

        'Atribui valor às TextBox
        With Parâmetros2019
            txt(0) = .TextBox3
            For i = 1 To 16
                If i < 5 Then 'GroupBox3
                    txt(i) = TryCast(.GroupBox2.Controls(8).Controls(i - 1), TextBox)
                Else 'GroupBox4
                    txt(i) = TryCast(.GroupBox2.Controls(9).Controls(i - 5), TextBox)
                End If
            Next
        End With

    End Sub

Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles TextBox3.GotFocus, TextBox4.GotFocus, TextBox5.GotFocus, TextBox6.GotFocus, TextBox7.GotFocus, TextBox8.GotFocus, TextBox9.GotFocus, TextBox10.GotFocus, TextBox11.GotFocus, TextBox12.GotFocus, TextBox13.GotFocus, TextBox14.GotFocus, TextBox15.GotFocus, TextBox16.GotFocus, TextBox17.GotFocus, TextBox18.GotFocus, TextBox19.GotFocus

        'Seleciona todo o texto da TextBox
        AtribuiçãoTextBox_Parâmetros2019()
        For i = 0 To 16
            If txt(i).Focused = True Then
                txt(i).SelectAll()
            End If
        Next

    End Sub

Answer 1

Onomaeus,

    Estou vendo algo estranho em seu código...

=================================================
   Dentro de "AtribuiçãoTextBox_Parâmetros2019", você escreve:

   "For i = 1 To 16"
=================================================

   Mas...

=================================================
   Dentro de "TextBox_GotFocus", você escreve:

   "For i = 0 To 16"
=================================================

   São só 16 itens... se você começar no 0 (zero) vai ter 17 itens... entendeu?

[]'s,
Fabio I.