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