Geselecteerde regels in een listbox optellen

[jan51]

Hallo,
Ik wil de geselecteerde regels in een listbox ingesteld op multiselect optellen in een label weet iemand hier wat op.
Groet jan

 

[snb]

Klinkt slim

For j= 0 to listbox1.listcount
  if listbox1.selected(j) then c0=c0+ listbox1.list(j)
Next
Label1.caption=c0

 

[jan51]

Beste snb,
Dank voor het snelle antwoord maar de bedoeling is om het aantal geselecteerde regels in een listbox op te tellen dus 2 regels geselecteerd een 2, 15 regels geselecteerd een 15 enz.
Groet Jan

 

[snb]

Dan had je eenvoudig mijn vorige suggestie kunnen aanpassen:

For j= 0 to listbox1.listcount
  if listbox1.selected(j) then c0=c0+ 1
Next
Label1.caption=c0

 

[jan51]

Dank snb,
Ik heb je code verwerkt en het werkt perfect.
Groet Jan