Office中国论坛/Access中国论坛

标题: 【新手求助】已添加问题图示方便查看——子窗体可否添加鼠标移动事件 [打印本页]

作者: ilovshevchenko 时间: 2009-8-24 20:58
标题: 【新手求助】已添加问题图示方便查看——子窗体可否添加鼠标移动事件
本帖最后由 ilovshevchenko 于 2009-8-24 22:42 编辑

各位高手路过留名啊~小白我在做界面菜单时遇到一技术问题，大致设想是把主窗体分割成上下两块，上面为菜单（TreeView加表list联动），下面为子窗体（也是由表list中的字段控制事件过程，比如子窗体数据源，打开外部程序，运行宏等），菜单设计成自动显示和隐藏的形式，就是当鼠标离开菜单框的时候会自动消失，但是子窗体内无法添加mousemove事件项，这样就不能实现这个功能，而且现在调试下来，就说“不能隐藏拥有焦点的空间”很头大~还望高手指点一下

做了个问题图示方便高手查看~
[attach]39389[/attach]

具体文件在这里
[attach]39388[/attach]

谢谢您的关注了

作者: ilovshevchenko 时间: 2009-8-24 22:44
自己顶下或者有什么其他变通的办法希望高手能够执教一二啊

作者: liwen 时间: 2009-8-25 12:01
本帖最后由 liwen 于 2009-8-25 12:04 编辑

Private Sub TreeView0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
Me.Text53 = "T MouseMove X:" & x & " Y:" & y & " H:" & Me.TreeView0.Height
ss = Me.TreeView0.Height
If x < 10 Or x > 1630 Or (y > ((ss - 55) * 240 / 250)-15) Then HideMenu
End Sub

作者: 九鹤 时间: 2009-8-28 10:49
我做过这样的菜单，
现实方法是如下
象队伍管理等按钮菜单是有两个控件做的，一前一后，一明一隐，一大一小。
前面的是队伍管理的主要控件，有文字，单击或移动时能出现下拉窗口，
后面的控件比前面的控件要大，隐性，主要事件就是增加关闭下拉窗口程序。
鼠标移到大小两个控件间隔区域时（后面的隐藏控件比前面大），就会激发关闭下拉的窗口。
感觉上就是鼠标移动过程中自动隐闭或开启下拉菜单

希望对你有用。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)