Подсчет выбранных элементов в 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

14   голосов , оценка 3.786 из 5
Похожие ответы