大家在Win7下用过IE8及后续版本吗?体验到了地址栏里那个鼠标手势了吗? 在Access中,也可以！
首先,在模块中,建立一个通用过程如下:
Sub ComboDropdown(Button As Integer, X As Single, Y As Single)
Static OldY As Single
    If Button <> acLeftButton or X < 0 Then
        OldY = 0
        Exit Sub
    ElseIf OldY = 0 Then
        OldY = Y
    End If
    If Y - OldY > 240 Then Screen.ActiveControl.Dropdown    '打开下拉列表
    If OldY - Y > 240 Then Screen.ActiveForm.Recalc         '关闭下拉列表
End Sub
在组合框的鼠标移动属性中,添加 事件过程 ,在代码中调用上述过程即可:
    ComboDropdown Button, X, Y