Excel ActiveX ComboBox onClick事件

Question

我想在Excel中使用ActiveX组合框。一切工作正常，从下拉按钮click_event填充点。但是，当它设置点击事件时，我发现它甚至从诸如箭头键之类的击键中被触发。这是正常的行为，如果是这样，我怎么能绕过这个？

我的工作在Excel 2007中VBA

这是我用来允许使用按键组合框中导航方法，我会等待，看看是否有更好的解决办法..：是的lastKey公共变量

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    If KeyCode = 38 Then 
     If ComboBox1.ListIndex <> 0 Then 
      lastkey = KeyCode 
      ComboBox1.ListIndex = ComboBox1.ListIndex - 1 
      KeyCode = 0 
     End If 
    ElseIf KeyCode = 40 Then 
     If ComboBox1.ListIndex <> ComboBox1.ListCount - 1 Then 
      lastkey = KeyCode 
      ComboBox1.ListIndex = ComboBox1.ListIndex + 1 
      KeyCode = 0 
     End If 
    End If 
End Sub 

Private Sub ComboBox1_Click() 
    If lastkey = 38 Or lastkey = 40 Then 
     Exit Sub 
    Else 
     MsgBox "click" 
    End If 
End Sub 

Answer 1

是的，这是正常的行为。使用箭头键导航组合中的项目，因此点击事件被触发。

绕过插入此代码。这将捕获所有4个箭头键，并在按下时不执行任何操作。这种方法的唯一缺点是您将无法再使用箭头键进行导航。

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    Select Case KeyCode 
    Case 37 To 40: KeyCode = 0 
    End Select 
End Sub 

随访

Dim ArKeysPressed As Boolean 

Private Sub ComboBox1_Click() 
    If ArKeysPressed = False Then 
     MsgBox "Arrow key was not pressed" 
     '~~> Rest of Code 
    Else 
     ArKeysPressed = False 
    End If 
End Sub 

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    Select Case KeyCode 
    Case 37 To 40: ArKeysPressed = True 
    End Select 
End Sub