鼠标手势打开组合框-羽扇子君
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


鼠标手势打开组合框

发表时间:2011/9/12 10:05:37 评论(1) 浏览(5201)  评论 | 加入收藏 | 复制
   
摘 要:像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群(群号:198465573)
 
 相关文章
判断鼠标移入或移出窗体  【纵云梯  2012/7/19】
鼠标滚轮翻页\用滚动鼠标中轴实现翻页功能  【叶海峰  2012/7/20】
判断鼠标移入或移出窗体另一例  【叶海峰  2012/8/27】
鼠标变成手指,光标移动到控件变成手型的示例  【Access软件网  2012/8/29】
 
 访客评论
2011/9/12jia
少写了:主体鼠标移动属性中,“事件过程”调用:ComboDropdown Button, X, Y

收藏了。


总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

羽扇子君

文章分类

文章存档

友情链接