VB6中弹出式菜单怎么隐藏或关闭。

[a459056599]

现在遇到一个问题，就是鼠标右键第一次单击显示弹出菜单，如果在单击一次就隐藏或关闭弹出式菜单怎么实现该功能。现在显示弹出菜单可以实现。主要是不知道怎么关闭或隐藏已经弹出的菜单。求给位高手帮忙！！！弹出菜单是通过popupmenu实现的。请问怎么去隐藏或关闭该弹出菜单。

[a459056599]

万分感谢！！！给位老师，大神。跪求指导！

[赵4老师]

SetForegroundWindow The SetForegroundWindow function puts the thread that created the specified window into the foreground and activates the window. Keyboard input is directed to the window, and various visual cues are changed for the user. The system assigns a slightly higher priority to the thread that created the foreground window than it does to other threads. BOOL SetForegroundWindow( HWND hWnd // handle to window to bring to foreground ); Parameters hWnd Handle to the window that should be activated and brought to the foreground. Return Values If the window was brought to the foreground, the return value is nonzero. If the window was not brought to the foreground, the return value is zero. Remarks The foreground window is the window at the top of the Z order. It is the window that the user is working with. In a preemptive multitasking environment, you should generally let the user control which window is the foreground window. Windows NT 5.0 and later: An application cannot force a window to the foreground while the user is working with another window. Instead, SetForegroundWindow will activate the window (see SetActiveWindow) and call theFlashWindowEx function to notify the user. Windows CE: The thread that owns the window is not given a priority boost. QuickInfo Windows NT: Requires version 3.1 or later. Windows: Requires Windows 95 or later. Windows CE: Requires version 1.0 or later. Header: Declared in winuser.h. Import Library: Use user32.lib. See Also Windows Overview, Window Functions,FlashWindowEx, GetForegroundWindow, SetActiveWindow

[赵4老师]

VBtray系统托盘图标动态绘制VB源码 http://download.csdn.net/detail/zhao4zhong1/570264

[xbj_hyml]

这个问题，前段时间，我也碰到了-貌似没有太好的解决办法 有些大神也说这个问题，不好搞-就放着不管... 2个不太好的办法---- 1、如果你弹出菜单里有分割线-那么单击分割线，再单击其他地方，就可以消掉 2、你可以在弹出菜单里加一个子菜单(如Cancel)，然后单击这个子弹出菜单来隐藏整个菜单

[笨狗先飞]

'这里有一个问题，如果在弹出菜单后鼠标没有发生过移动，右键就不会发生作用
'因为鼠标处在一个没法响应事件的位置，估计要用api捕捉事件才能在这个位置响应了
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu PopMenu
End Sub

Private Sub PopMenu_Click()
    Static I As Integer
    I = (I + 1) Mod 2
    PopMenu.Visible = CBool(I = 1)
End Sub

[笨狗先飞]

'好，这样子可以了，移一个像素，它就可以响应窗体事件去了
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu PopMenu, 0, X + 15, Y + 15
End Sub

Private Sub PopMenu_Click()
    Static I As Integer
    I = (I + 1) Mod 2
    PopMenu.Visible = CBool(I = 1)
End Sub

[a459056599]

看起来没人晓得么？