Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Listbox in visual basic

ik wil een listbox in visual basic waarbij aan de rechterkant ernaast een cmdbutton zit die het getal in de listbox +1 doet, en aan de linkerkant ernaast een die - 1 doet. nu is het zo dat het aantal telkens 0 blijft en dus als je op +1 drukt, er altijd 1 komt te staan in de listbox, terwijl ik wil dus dat het optelt. verder wil ik het getal in de listbox gebruiken als "aantal" (zie programma hieronder) en dat werkt nog niet... verder had ik het eerst met een textbox waar je een getal in moest voeren, en toen werkte het wel, maar ik wil dat als de laatste msgbox[i:f432818d66](If MsgBox("Wilt u nog meer kopen?", vbYesNo) = vbNo Then End)[/i:f432818d66] beantwoord wordt met ja, dan moet het programma opnieuw beginnen, alleen moet de voorraad dan geen 200 zijn, maar het aantal dat er overbleef. dus als er eerst aantal 3 ingevoerd werd, moet bij de 2e keer dat het programma draait de voorraad 197 zijn ipv 200 Dit is wat ik nu heb: Private Sub cmdAantalMin_Click() [i:f432818d66] de knop voor +1 bij het aantal in de listbox[/i:f432818d66] lstAantal.Clear lstAantal.AddItem (Aantal - 1) End Sub Private Sub cmdAantalPlus_Click() [i:f432818d66] de knop voor -1 bij het aantal in de listbox[/i:f432818d66] lstAantal.Clear lstAantal.AddItem (Aantal + 1) End Sub Private Sub cmdInvoer_Click() Dim Aantal As Integer Aantal = CInt(lstAantal.List) [i:f432818d66] kan niet [/i:f432818d66] :? lstVoorraad.Clear Voorraad = Str(200 - Aantal) lstVoorraad.AddItem (Voorraad) If Aantal > 9 Then Prijs = 90 Else Prijs = 100 lstBedrag.Clear bedrag = Str(Aantal * Prijs) & " Eurocent" lstBedrag.AddItem (bedrag) If Voorraad = 0 Then End If Aantal = 0 Then End If Aantal > Voorraad Then MsgBox (" Er zijn maar ... blikjes aanwezig") If MsgBox("Wilt u nog meer kopen?", vbYesNo) = vbNo Then End End Sub

jan_heijnis