Dus ik heb een programma geschreven waarmee men een klant kan toevoegen, via een klasse om die dan in een lijst te steken. Volgens de documentatie moet ik gewoon mijn lijst dimensioneren en dan insteken. Alleen wilt dit niet werken.
Elke keer als ik op de knop drukt schrijft hij gewoon de vorige variabele over.
Elke keer als ik op de knop drukt schrijft hij gewoon de vorige variabele over.
Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Private Sub btnOpslaan_Click(sender As Object, e As EventArgs) Handles btnOpslaan.Click Dim klantenlijst As New List(Of Klant) Dim nieuwe_klant As New Klant Dim path As String = IO.Path.GetTempFileName() nieuwe_klant.Naam = txtNaam.Text nieuwe_klant.Straat = txtStraat.Text nieuwe_klant.Postcode = txtPostcode.Text nieuwe_klant.Gemeente = txtGemeente.Text nieuwe_klant.Telefoon = txtTelefoon.Text nieuwe_klant.Email = txtEmail.Text If chkHardware.Checked = True Then nieuwe_klant.Hardware = True End If If chkInternet.Checked = True Then nieuwe_klant.Internet = True End If If chkMultimedia.Checked = True Then nieuwe_klant.Multimedia = True End If If chkSoftware.Checked = True Then nieuwe_klant.Software = True End If klantenlijst.Add(nieuwe_klant) MsgBox(klantenlijst.Count) End Sub |