问专家-实时错误'453':找不到DLL入口点 Shell

实时错误'453':找不到DLL入口点 Shell_NotifyIconA in shell32.dll

编号：	QA004825
建立日期：	2003年12月31日	最后修改日期：	2003年12月31日
所属类别：	Visual Basic - Windows API

    操作系统: win98
    编程工具: vb6.0
    问题: 你好，我是一个刚学VB不久的VB爱好者，近来在制作一个小软件的时候遇到了一些问题，希望您能在百忙之中给以提示，我将对您致意深深的感激
    这是我写的一段程序：
    在标准模块中有以下代码：
    Option Explicit
    Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    Public Const NIM_ADD = &H0
    Public Const NIM_DELETE = &H2
    Public Const NIM_MODIFY = &H1
    Public Const NIF_ICON = &H2
    Public Const NIF_MESSAGE = &H1
    Public Const NIF_TIP = &H4
    Public 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 Sub Command1_Click()

    Dim ind As NOTIFYICONDATA
    ind.cbSize = Len(ind)
    ind.hwnd = Me.hwnd
    ind.uID = 0
    ind.uFlags = NIF_ICON
    ind.hIcon = Me.Icon
    Shell_NotifyIcon NIM_ADD, ind

    End Sub

    程序运行后出现错误，提示为：
    实时错误'453':
    找不到DLL入口点 Shell_NotifyIconA in shell32.dll
    请问我该如何修正这个错误？
    希望大哥能伸出援助之手，助小弟一臂之力，在下不胜感激，切切！

    水平: 刚入门

    ---------------------------------------------------------------------------

    HTTP_USER_AGENT: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
    HTTP_REFERER: http://www.china-askpro.com/askform.shtml(贺海波)

    Visual Basic的WinAPI的定义有一个错误。你需要删除掉Shell_NotifyIcon中的Alias " Shell_NotifyIconA" 中Shell_NotifyIconA前面的那个空格，即改为
    Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long


    尽管只是一个不起眼的空格，但是多了它程序就会有错。

此问题由李海回答。

附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Windows API, win32, api, windows api, gdi32, kernel。

	把这个问题推荐给朋友

Web Designed by ZebraStudio