主题：运行错误

全局代码

 

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public const MOUSEEVENTF_MOVE As Int32 = &H1 '  mouse move
Public const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 '  left button down
Public const MOUSEEVENTF_LEFTUP As Int32 = &H4 '  left button up
Public const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 '  right button down
Public const MOUSEEVENTF_RIGHTUP As Int32 = &H10 '  right button up
Public const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 '  middle button down
Public const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 '  middle button up
Public const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 '  absolute move
Public const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled

 

ItemMouseEnter事件

 

If e.StripItem.ParentItem Is Nothing Then
    mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
    mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End If

做了个菜单窗体，所属：所有者，上靠，启动程序后怎么显示不全呢？怎样将菜单窗体所选择主窗体和停靠窗体的上面，功能组的下面呢？

默认就是会在上方正常显示。你做个例子发上来测试。

已经解决，是我设置的菜单窗体太窄的原因