none
Instância RRS feed

  • Pergunta

  • 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
    
    
    


    quarta-feira, 11 de setembro de 2019 15:52

Todas as Respostas

  • 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.
    quinta-feira, 12 de setembro de 2019 11:12