Question

vb 两个listbox焦点转换问题。

vb 两个listbox用左右键来转换焦点，焦点到达时是个框，按向下键才会高亮显示；失去焦点时高亮仍然在。怎么解决啊？
希望焦点到达就是高亮，失去焦点高亮就失去。

Answer 1

Private Sub List1_GotFocus(Index As Integer)
List1(Index).BackColor = &H80000005
End Sub

Private Sub List1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
List1(0).SetFocus
ElseIf KeyCode = 39 Then
List1(1).SetFocus
End If
End Sub

Private Sub List1_LostFocus(Index As Integer)
List1(Index).BackColor = &H80000000
End Sub