Pomoc s jednou funkcí – Visual Basic – Fórum – Programujte.com

Potřeboval bych poradit.
V programu budu mát hodne TextBoxů a pro každý chci provést toto:

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If IsNumeric(TextBox1.Text) = False Then

            ErrorProvider1.SetError(TextBox1, "Chybná hodnota: " & TextBox1.Text & ", do tohoto pole můžete zadat pouze číslo!")

        Else

            ErrorProvider1.SetError(TextBox1, "")

        End If

    End Sub

Mno asi nejjednodušší řešení bych viděl v tom , si z toho udělat pole Textboxu. Jestli nevíš jak, tak jeden si označ ctrl+c a pak jeď ctrl+v a klikni na ANO když se tě to bude ptát, jestli chceš vytvořit control aray
vzknikne ti: Text1(0),Text1(1) atd...
No a pak stačí jenom
Pak 2x klikni na tyto textoboxy a do parametru funkce _TextCahnged ještě přibide: Index as integer ... nevim kde, hodil jsem ti ho na začátek , ale je možné že bude někde jinde:

Private Sub TextBox1_TextChanged(Index as integer,ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If IsNumeric(TextBox1(index).Text) = False Then

ErrorProvider1.SetError(TextBox1(index), "Chybná hodnota: " & TextBox1(index).Text & ", do tohoto pole můžete zadat pouze číslice!")

Else

ErrorProvider1.SetError(TextBox1(index), "")

End If

End Sub

Toť vše...doufám že jsi to pochopil...kdyžtak pisni na Palecek58@seznam.cz a já ti pošlu zdroják s přikladem