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

Question

每次都报一个警:说无法找到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 TypePrivate 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 NOTIFYICONDATAPrivate 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

Answer 1

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

Answer 2

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long" Shell_NotifyIconA" 多了一个空格

Answer 3

我是用APiView查找,然后复制粘贴的..明天试试下,,

Answer 4

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