VB托盘程序事件问题请教
VB做托盘程序,我的窗体里放了个SStab控件,这个空间覆盖整个form窗体,然后我在FORM_MOUSEDOWN事件里写托盘触发事件,却没有效果,写在SSTAB_MOU...
VB做托盘程序,我的窗体里放了个SStab控件,这个空间覆盖整个form窗体,然后我在FORM_MOUSEDOWN事件里写托盘触发事件,却没有效果,写在SSTAB_MOUSEMOVE里也没有效果我想问问改怎么处理……
Private Sub SSTab1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim L
L = X / screen.TwipsPerPixelX '15
If L = WM_RBUTTONDOWN Then
Me.PopupMenu Menu
ElseIf L = WM_LBUTTONDOWN Then
OpenIcon Me.hwnd
Icon_Del Me.hwnd, 0
End If
End Sub
为什么还是没反应呢……我在Private Sub SSTab1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
这句这下了个断,然后运行程序,鼠标点击托盘图标根本反应,根本就不会执行到这……还有就是我先前的程序里没有用到SSTAB这个控件就能正常运行…… 展开
Private Sub SSTab1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim L
L = X / screen.TwipsPerPixelX '15
If L = WM_RBUTTONDOWN Then
Me.PopupMenu Menu
ElseIf L = WM_LBUTTONDOWN Then
OpenIcon Me.hwnd
Icon_Del Me.hwnd, 0
End If
End Sub
为什么还是没反应呢……我在Private Sub SSTab1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
这句这下了个断,然后运行程序,鼠标点击托盘图标根本反应,根本就不会执行到这……还有就是我先前的程序里没有用到SSTAB这个控件就能正常运行…… 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询