如何取消vba列表框已选中的多个项目???

Question

因为我在一个sheet中又多个列表框，当其中一个列表框被选中时,其他列表框的选中项目都要取消,这些列表框都是多选的(multiselect=2).用Listindex=-1是不行的。无法取消选中的蓝色条。我不想对每个列表框都用循环设定每个列表框的项目=false
for i=0 to me.listbox1.listcount - 1
  me.listbox1.selected(i)=false
next我不想用这种方法做,请问还有其他方法么?

Answer 1

Private Declare Function SendMessage 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_SELITEMRANGEEX = &H183'表示该列表框Index取消选中从0到100
SendMessage List1.hwnd, LB_SELITEMRANGEEX, 100, 0
'表示该列表框Index选中从0到100
SendMessage List1.hwnd, LB_SELITEMRANGEEX, 0, 100