关于Listbox的问题!

Question

在Listbox没有获得焦点的时候,怎样让其最上面的一条显示为带光条样式,也就是说,连续点一个命令按钮,就连续删掉Listbox中的第一条记录,而不需用鼠标点一下Listbox中的记录才能删一条.

Answer 1

Listbox不行，不过你可以设置焦点呀。

Answer 2

Private Sub Command1_Click()
List1.SetFocus
If List1.ListCount > 0 Then
    List1.Selected(0) = True
    List1.RemoveItem (List1.ListIndex)
    If List1.ListCount > 0 Then List1.Selected(0) = True
End If
End Sub