'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
Me.Hide

准备做一个托盘程序，托盘程序的托盘代码
我先是下载了一个实例，实例放在附件里，这个实例没有任何API调用声明却能够正常运作。
将整个代码照搬到真正的程序里头，出现“子程序或函数未定义”的错误。
为什么在一个工程里正常另一个工程异常呢？

[ 本帖最后由 renxiaoyao36 于 2015-5-4 20:57 编辑 ]

人工置顶
抱歉，该问题很急，必须在两天内解决，所以对不住了！人工置顶了！

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
这两个不是API？

在附件中有定义？！
我竟然没看到 模块
好吧，没注意
这个问题毫无技术含量啊……

[ 本帖最后由 renxiaoyao36 于 2015-5-5 19:16 编辑 ]

同样的工程，同样的代码，又来一次错误了……
MouseMove事件在工程 测试 中不管如何都正常运作
在真正的工程中却完全无法运行到select case 语句
为何？
两个工程唯一的不同是
测试 中没有自定义控件
真正 中有自定义控件
测试发现 在自定义控件上 不会触发Mouse Move事件
但是这不应该影响到托盘啊？
就是说，无法触发MouseMove事件

[ 本帖最后由 renxiaoyao36 于 2015-5-6 06:27 编辑 ]