Подсчет выбранных элементов в ListBox и их общего количества - VB

Формулировка задачи:

Здравствуйте! Пишу программу,которая выводит количество шрифтов в виндовсе! Вывод шрифтов написал..все получается (использовал ЛистБокс)! Но нужно под лист боксом вывести строку с количеством выбранных шрифтов и сколько их в целом! (Например: 5 из 236) как это сделать?

Решение задачи: «Подсчет выбранных элементов в ListBox и их общего количества»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub List1_Click()
Dim i%, c%
For i = 0 To List1.ListCount - 1
  c = c - List1.Selected(i)
Next i
Label1 = c & " из " & List1.ListCount
End Sub

Оцени полезность:

14 голосов , оценка 3.786 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы