如何取消 Listbox 选中的选项

blue_idea

FORM 中有两个 listbox，它们之间的关系是相互排斥的。如果选择了listbox1中的某一项，listbox2中原来选中的选项要 回到未选中状态（即l背景色取消高亮显示），反之亦然。
请问代码该如何写，该用 listbox的哪个属性来设置取消选中？

zhaogang1960

ListIndex属性:

1. Private Sub ListBox1_Click()
   
2.     If ListBox1.ListIndex = -1 Then Exit Sub
   
3.     ListBox2.ListIndex = -1
   
4. End Sub
   
5. 
   
6. Private Sub ListBox2_Click()
   
7.     If ListBox2.ListIndex = -1 Then Exit Sub
   
8.     ListBox1.ListIndex = -1
   
9. End Sub

复制代码

blue_idea

正是这个属性： ListIndex = -1， 谢谢！

scrollex

对于单选来说可以，但对于多选来说不行。

02761752696

学习      学习  谢谢

longxh28

取消ListBox高亮还需重绘
UserForm1.ListBox1.ListIndex = -1
UserForm1.Repaint