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

ilovshevchenko

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

做了个问题图示方便高手查看~


具体文件在这里




谢谢您的关注了

ilovshevchenko

自己顶下 或者有什么其他变通的办法 希望高手能够执教一二啊

liwen

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

九鹤

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

希望对你有用。