1 2 3 4 5 6 7 8 9 10 11 12 13
|
public sub ajouterChamp()
Dim t As New TextBox
t.Name = "NomSystemDuTxtBox"
t.Location = New System.Drawing.Point(15, 18) ' position du champ sur le form
t.DataBindings.Add(......) ' ici faitre la liaision entre ta source de donnée et ton txtbox mais je te laisse de remplir cette fonction car j'ai peur de marquer des bétisses.
AddHandler t.Validated, AddressOf MafunctionValider 'fonction qui sera appelé lors de l'événement Validated, j'ai pris Validated jsute pour exemple mais tu peux changer
Me.Controls.Add(t) 'ajoute le champ à la form
End Sub
Public Sub MafunctionValider(ByVal sender As Object, ByVal e As System.EventArgs)
'Fait ton code valider ici
End Sub |
Partager