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

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

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 If
End Sub

------解决方案--------------------
看代码没问题啊
我也是这样写的
------解决方案--------------------
是什么按钮控件？说来听听？
------解决方案--------------------
的确比较诡异。。。

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

相关推荐