鼠标手势打开组合框

时　间:2011-09-12 10:05:37
作　者:羽扇子君   ID：15117  城市：铁岭
摘　要:像IE8的地址栏一样，用鼠标手势打开组合框。
正　文:

大家在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


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店