1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| '############################################################
'# Eingabe/Entré de Données #
'############################################################
Private Sub btEingabe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEingabe.Click
Dim Artikel As New ArrayList()
Dim Anummer = tbEingabeANum.Text
Dim Aname = tbEingangName.Text
Dim Apreis = tbEingangPreise.Text
Dim Amenge = tbEingangmenge.Text
Artikel.Add(Anummer)
Artikel.Add(Aname)
Artikel.Add(Apreis)
Artikel.Add(Amenge)
lstA.Items.Add(Artikel) 'doit enregistrer sur( tvListe) et non pas lstA
End Sub |
Partager