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