Главная страницаОбратная связьКарта сайта

Сколько элементов выделено



'Данный пример покажет, сколько всего элементов выделено в ListBox'е.
'Расположите на форме 1 ListBox и элемент CommandButton.
'Установите свойство MultiSelect элемента ListBox в 1 или 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const LB_GETSELCOUNT = &H190

Private Sub Form_Load()
List1.AddItem "11"
List1.AddItem "22"
List1.AddItem "33"
List1.AddItem "44"
End Sub

Private Sub Command1_Click()
MsgBox SendMessage(List1.hwnd, LB_GETSELCOUNT, 0&, 0&)
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Сколько элементов выделено", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info