VB 为什么我鼠标在窗口右下角移动的时候会弹出菜单
我为程序设计一个菜单,就是鼠标右击任务栏上的菜单的时候,会弹出一个菜单.程序代码如下PrivateSubForm_MouseMove(ButtonAsInteger,Sh...
我为程序设计一个菜单,就是鼠标右击任务栏上的菜单的时候,会弹出一个菜单.
程序代码如下
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Single
Msg = X / Screen.TwipsPerPixelX
If Msg = WM_LBUTTONUP Then
Me.WindowState = 0
Me.Show
End If
If Msg = WM_RBUTTONUP Then 'Right click
Me.PopupMenu TrayMenu
End If
End Sub
本来TrayMenu菜单在程序的主窗口上是隐藏看不见的.但不知道怎么搞的 ,我鼠标在主窗口的右下角移动的时候,有时候会弹出菜单TrayMenu.
求解决方案
如果对于问题不清楚的.可以加我的251877768;
急需解决,求高手! 展开
程序代码如下
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Single
Msg = X / Screen.TwipsPerPixelX
If Msg = WM_LBUTTONUP Then
Me.WindowState = 0
Me.Show
End If
If Msg = WM_RBUTTONUP Then 'Right click
Me.PopupMenu TrayMenu
End If
End Sub
本来TrayMenu菜单在程序的主窗口上是隐藏看不见的.但不知道怎么搞的 ,我鼠标在主窗口的右下角移动的时候,有时候会弹出菜单TrayMenu.
求解决方案
如果对于问题不清楚的.可以加我的251877768;
急需解决,求高手! 展开
4个回答
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
制作托盘的程序哦,不是很懂,期待高手!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我也碰到过差不多的问题 不知道是不是机器的原因
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询