shell_notifyicon使用困惑

[hackershell]

大家好，我在VB中写了个托盘程序，使用到了shell_notifyicon这个API,在参照了MSDN上的帮助后，实现了托盘图标的加载与删除，但就是在托盘图标上点击得不到响应，我把MSDN上的代码复制是可以成功的。我没看到自己写的和它有什么不同。
这是FORM_LOAD()
里的代码
Dim tNID As NOTIFYICONDATA
tNID.hIcon = Me.Icon
tNID.hwnd = Me.hwnd
tNID.szTip = "Author:[e-mail]"
tNID.uCallbackMessage = WM_MOUSEMOVE
tNID.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON
tNID.uID = 0&
tNID.cbSize = Len(tNID)
rtnval = Shell_NotifyIcon(NIM_ADD, tNID)
然后我在FORM_MOUSEMOVE事件里写道：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_LBUTTONDBLCLK
Call mnuAbout_Click
Case WM_RBUTTONDOWN
PopupMenu mnuFile
End Select
End Sub
请各位给些指点。如使用这个API要注意的地方，有人说要自定义什么。请赐教。

[帝企鹅已被占用]

试试Case WM_RBUTTONUP

[simon__sun]

貌似没什么问题！ 你把msdn的也贴上来看看！

[赵4老师]

请到我的资源http://download.csdn.net/source/570264里面下载“VBtray系统托盘图标动态绘制VB源码 ”

[a1875566250]

推荐LZ子类，这样成功率高

[三断笛]

在Form_MouseMove里处理消息？

[嗷嗷叫的老马]

http://www.m5home.com/blog2/blogview.asp?logID=217

送你一个封装好的类,直接在事件里处理即可.

[liguicd]

[Quote=引用 6 楼 myjian 的回复:]
http://www.m5home.com/blog2/blogview.asp?logID=217

送你一个封装好的类,直接在事件里处理即可.
[/Quote]
顶老马

[hackershell]

以下是MSDN上的示例程序，放上两个按钮，一个通用对话框就可以实验了。汗了，真没看出与我写的有什么不同。只不过他把shell_notifyicon声明成布尔型的了。大伙看看。
'Declare a user-defined variable to pass to the Shell_NotifyIcon
'function.
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

'Declare the constants for the API function. These constants can be
'found in the header file Shellapi.h.

'The following constants are the messages sent to the
'Shell_NotifyIcon function to add, modify, or delete an icon from the
'taskbar status area.
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

'The following constant is the message sent when a mouse event occurs
'within the rectangular boundaries of the icon in the taskbar status
'area.
Private Const WM_MOUSEMOVE = &H200

'The following constants are the flags that indicate the valid
'members of the NOTIFYICONDATA data type.
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

'The following constants are used to determine the mouse input on the
'the icon in the taskbar status area.

'Left-click constants.
Private Const WM_LBUTTONDBLCLK = &H203 'Double-click
Private Const WM_LBUTTONDOWN = &H201 'Button down
Private Const WM_LBUTTONUP = &H202 'Button up

'Right-click constants.
Private Const WM_RBUTTONDBLCLK = &H206 'Double-click
Private Const WM_RBUTTONDOWN = &H204 'Button down
Private Const WM_RBUTTONUP = &H205 'Button up

'Declare the API function call.
Private Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

'Dimension a variable as the user-defined data type.
Dim nid As NOTIFYICONDATA

Private Sub Command1_Click()
'Click this button to add an icon to the taskbar status area.

'Set the individual values of the NOTIFYICONDATA data type.
nid.cbSize = Len(nid)
nid.hWnd = Form1.hWnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Form1.Icon
nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar

'Call the Shell_NotifyIcon function to add the icon to the taskbar
'status area.
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Command2_Click()
'Click this button to delete the added icon from the taskbar
'status area by calling the Shell_NotifyIcon function.
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Form_Load()
'Set the captions of the command button when the form loads.
Command1.Caption = "Add an Icon"
Command2.Caption = "Delete Icon"
End Sub

Private Sub Form_Terminate()
'Delete the added icon from the taskbar status area when the
'program ends.
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Form_MouseMove _
(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
'Event occurs when the mouse pointer is within the rectangular
'boundaries of the icon in the taskbar status area.
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
CommonDialog1.DialogTitle = "Select an Icon"
sFilter = "Icon Files (*.ico)|*.ico"
sFilter = sFilter & "|All Files (*.*)|*.*"
CommonDialog1.Filter = sFilter
CommonDialog1.ShowOpen
If CommonDialog1.filename <> "" Then
Form1.Icon = LoadPicture(CommonDialog1.filename)
nid.hIcon = Form1.Icon
Shell_NotifyIcon NIM_MODIFY, nid
End If
Case WM_RBUTTONDOWN
Dim ToolTipString As String
ToolTipString = InputBox("Enter the new ToolTip:", _
"Change ToolTip")
If ToolTipString <> "" Then
nid.szTip = ToolTipString & vbNullChar
Shell_NotifyIcon NIM_MODIFY, nid
End If
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub

[赵4老师]

不要迷信MSDN上的示例程序！

[simon__sun]

你把shell_notifyicon 声明成什么类型了啊，应该LONG也可以的 我觉得会不会是你的菜单有什么问题

[chinaboyzyq]

WM_RBUTTONDOWN这些常量是否已经定义，并要注意是鼠标右键，而不是左键。