listbox怎么清除选中状态?

Question

VB6.0环境,我有2个LISTBOX,如何实现选中list1中的ITEM的时候,LIST2中被选中的ITEM恢复无选中状态?先谢过了!

Answer 1

我也想到了,但是那个表示选中状态的"蓝条"还在,我就是不想两个LISTBOX都显示有蓝条.
先谢谢.

Answer 2

Option Explicit
Dim LastselRec1%, LastselRec2%
Private Sub Form_Load()
   List1.AddItem "111"
   List1.AddItem "222"
   List2.AddItem "333"
   List2.AddItem "444"
   LastselRec1 = -1
   LastselRec2 = -1
End SubPrivate Sub List1_Click()
   LastselRec1 = List1.ListIndex
   If LastselRec2 >= 0 Then List2.Selected(LastselRec2) = False: LastselRec2 = -1
End SubPrivate Sub List2_Click()
   LastselRec2 = List2.ListIndex
   If LastselRec1 >= 0 Then List1.Selected(LastselRec1) = False: LastselRec1 = -1
End Sub