Optellen getallen uit listbox
- Onderwerp starter kevin1111
- Startdatum
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 41.936
- Besturingssysteem
- Windows 98SE, XP, 7, 10 LTSC, 11-25H2
- Office versie
- Office 2021
Je hebt nog steeds geen reactie en ik denk dat dat komt omdat je vraag zeer onduidelijk gesteld is.
Geef duidelijk aan wat je wilt en dan zul je vast wel een antwoord krijgen.
Geef duidelijk aan wat je wilt en dan zul je vast wel een antwoord krijgen.
MartinJM
Terugkerende gebruiker
- Lid geworden
- 9 nov 2008
- Berichten
- 1.144
Ik neem aan dat je zoiets bedoelt:
[CPP] Dim ItemArray As ListBox.ObjectCollection = ListBox1.Items
Dim Uitkomst As Double = 0
For i As Integer = 0 To ItemArray.Count - 1 Step 1
If IsNumeric(ItemArray(i).ToString.Replace(".", ",")) Then
Uitkomst += ItemArray(i).ToString.Replace(".", ",")
End If
Next
TextBox1.Text = Uitkomst[/CPP]
Je moet dan nog wel even de naampjes aanpassen... Deze code haalt alle getallen uit een listbox, telt ze op en zet ze in een textbox. Ik nam aan dat je dat bedoelde.
Succes!:thumb:
MartinJM
[CPP] Dim ItemArray As ListBox.ObjectCollection = ListBox1.Items
Dim Uitkomst As Double = 0
For i As Integer = 0 To ItemArray.Count - 1 Step 1
If IsNumeric(ItemArray(i).ToString.Replace(".", ",")) Then
Uitkomst += ItemArray(i).ToString.Replace(".", ",")
End If
Next
TextBox1.Text = Uitkomst[/CPP]
Je moet dan nog wel even de naampjes aanpassen... Deze code haalt alle getallen uit een listbox, telt ze op en zet ze in een textbox. Ik nam aan dat je dat bedoelde.
Succes!:thumb:
MartinJM
- Status
