首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

托盘图标无响应【诡异】,该如何处理

2012-01-19 
托盘图标无响应【诡异】我的程序以前加入了最小化到托盘功能,一切正常。昨天为了让程序美观一点,于是找了一个

托盘图标无响应【诡异】
我的程序以前加入了最小化到托盘功能,一切正常。
昨天为了让程序美观一点,于是找了一个按钮控件,将窗体上的所有按钮都替换掉,于是界面变美观了。
但是最小化到托盘后,鼠标双击左键和右键均无响应,很奇怪。
补充:鼠标在指向图标时,能显示出程序名。
我想多半是那些按钮控件的原因,但具体原因还是不清楚。请各位高手给点提示,问题有可能出在哪里?
下面是鼠标移动事件的代码:

VB code
'============================='事件:鼠标移动到托盘区图标时'=============================Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)  If Me.WindowState = 1 Then    Dim lMsg As Single    lMsg = x / Screen.TwipsPerPixelX    Select Case lMsg      Case WM_LBUTTONDBLCLK               '双击打开窗体         ShowWindow Me.hwnd, SW_RESTORE         Me.SetFocus      Case WM_RBUTTONUP                   '在托盘图标上点右键显示菜单         SetForegroundWindow Me.hwnd               PopupMenu TuoPan                 '托盘图标右键菜单    End Select  End IfEnd Sub


[解决办法]
看代码没问题啊
我也是这样写的
[解决办法]
是什么按钮控件?说来听听?
[解决办法]
的确比较诡异。。。

热点排行