Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

鼠标手势打开组合框

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助