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

Выделение всех элементов в ListBoxе



'Пример 1

Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LB_SELITEMRANGE = &H19B

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

Private Sub Command1_Click()
Call SendMessageBynum(List1.hwnd, LB_SELITEMRANGE, 1, (List1.ListCount - 1))
End Sub

Private Sub Command2_Click()
Call SendMessageBynum(List1.hwnd, LB_SELITEMRANGE, 0, (List1.ListCount - 1))
End Sub

'Пример 2

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

Private Sub Form_Load()
List1.AddItem "111"
List1.AddItem "222"
List1.AddItem "333"
End Sub

Private Sub Command1_Click()
SendMessage List1.hwnd, LB_SETSEL, True, ByVal True
End Sub

Private Sub Command2_Click()
If List1.SelCount Then
SendMessage List1.hwnd, LB_SETSEL, False, ByVal True
Else
Command1_Click
End If
End Sub


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


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

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


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