如何在VBA中关闭鼠标移动事件组合框中的下拉列表？_Vba_Combobox

如何在VBA中关闭鼠标移动事件组合框中的下拉列表？

vba combobox

如何在VBA中关闭鼠标移动事件组合框中的下拉列表？,vba,combobox,Vba,Combobox,我正在Access中开发一个用户表单。当鼠标位于组合框上时，我有以下代码打开下拉菜单： Private Sub cmbx_ID_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmbx_ID.SetFocus Me.cmbx_ID.Dropdown End Sub 但当鼠标离开组合框时，我想关闭下拉菜单（现在要关闭表单，他应该在下拉菜单中选择一项或单击表单）。我发现我

我正在Access中开发一个用户表单。当鼠标位于组合框上时，我有以下代码打开下拉菜单：

    Private Sub cmbx_ID_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.cmbx_ID.SetFocus
    Me.cmbx_ID.Dropdown
End Sub

但当鼠标离开组合框时，我想关闭下拉菜单（现在要关闭表单，他应该在下拉菜单中选择一项或单击表单）。我发现我可以创建一个按钮并在鼠标位于该按钮上时关闭窗体：

    Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.SetFocus
    SendKeys "{esc}", True    
End Sub

但那不是我想要的