关于往任务栏添加图标的问题,求各位赐教!!!谢谢

[dazhi518]

每次都报一个警:说无法找到Dll入口,请各位帮忙看下是不是代码有误呀....
代码如下:

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
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

Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private nfIcondata As NOTIFYICONDATA



Private Sub Form_Load()

nfIcondata.cbSize = Len(nfIcondata)
nfIcondata.hwnd = Me.hwnd
nfIcondata.uID = Me.Icon
nfIcondata.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
nfIcondata.uCallbackMessage = WM_MOUSEMOVE
nfIcondata.hIcon = Me.Icon.Handle
nfIcondata.szTip = "system tray example" & vbNullChar


Call Shell_NotifyIcon(NIM_ADD, nfIcondata)

End Sub

[dafu2003]

nfIcondata.hIcon = Me.Icon.Handle
Me.Icon还有hangdle?

[dazhi518]

该怎样写呢..

[cbm6666]

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

" Shell_NotifyIconA" 多了一个空格

[dazhi518]

我是用APiView查找,然后复制粘贴的..

明天试试下,,

[dazhi518]

多谢,,多谢..就是多了个空格,刚用API文本浏览器重新复制了一下,还是多了个空格..去掉之后OK...