combobox按向下键，失去焦点的问题。

hktkzyz

在“省份”后的combobox中，按向下键头（我添加了一个展开列表的按键事件，本问题应该和这个事件没关系），当按到“上海市”（list最后一个）时，停止，还可以向上按。但是当按到“上海市”时，再向下按，就失去了焦点，也不知焦点跑哪里去了。
问题1：这是怎么回事?原因何在?
       2：此时焦点跑到哪里去了?
       3：如何做才能使：按到“上海市”后，再按下键，不失焦点，而是还停留在“上海市”，还可以继续使用向上键。
            如果我没说清楚，大家可以看看qq登陆时，在账号（如果有多个qq号的情况下）那按向下键头一样，当按向下键到最后一个qq账号时，再按向下键，已经到头，然后可以再按向上键，而不会失去焦点。


谢谢大家。

补充 ：当我把listview给值后，发现原来一直按向下键头，再过了combobox的最后一项后，焦点是到了listview的第一项。
补充 ： 想出思路了，就是当If ComboBox1.ListIndex = ComboBox1.ListCount-1，即combobox为最后一项时，让向下键失效，可是不知具体怎么做。

学好VBA啊

下拉列表选项循环，其他控件不获得焦点

1. Private Sub cbx_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim keys As Integer, i As Integer, cbxname As String
   
3.     keys = KeyCode: i = cbx.ListCount
   
4.     If cbx.Value = cbx.List(0) And keys = 38 Then
   
5.         cbx.Value = cbx.List(i - 1): KeyCode = 0
   
6.     ElseIf cbx.Value = cbx.List(i - 1) And keys = 40 Then
   
7.         cbx.Value = cbx.List(0): KeyCode = 0
   
8.     End If
   
9.     keys = 0
   
10. End Sub

复制代码

下拉列表到顶端、底端停留，其他控件不获得焦点

1. Private Sub cbx_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim keys As Integer, i As Integer, cbxname As String
   
3.     keys = KeyCode: i = cbx.ListCount
   
4.     If cbx.Value = cbx.List(0) And keys = 38 Then
   
5.         cbx.Value = cbx.List(0): KeyCode = 0
   
6.     ElseIf cbx.Value = cbx.List(i - 1) And keys = 40 Then
   
7.         cbx.Value = cbx.List(i - 1): KeyCode = 0
   
8.     End If
   
9.     keys = 0
   
10. End Sub

复制代码