| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 518 人关注过本帖
标题:API函数问题
只看楼主 加入收藏
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
结帖率:92.31%
收藏
已结贴  问题点数:15 回复次数:4 
API函数问题
程序代码:
'以下把程序放入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调用声明却能够正常运作。
将整个代码照搬到真正的程序里头,出现“子程序或函数未定义”的错误。
为什么在一个工程里正常另一个工程异常呢?
测试.zip (2.99 KB)


[ 本帖最后由 renxiaoyao36 于 2015-5-4 20:57 编辑 ]
2015-05-04 20:36
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
人工置顶
抱歉,该问题很急,必须在两天内解决,所以对不住了!人工置顶了!

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-04 21:02
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:15 
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?

大开眼界
2015-05-05 08:56
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
在附件中有定义?!
我竟然没看到 模块
好吧,没注意
这个问题毫无技术含量啊……

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

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-05 19:15
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
同样的工程,同样的代码,又来一次错误了……
MouseMove事件在工程 测试 中不管如何都正常运作
在真正的工程中却完全无法运行到select case 语句
为何?
两个工程唯一的不同是
测试 中没有自定义控件
真正 中有自定义控件
测试发现 在自定义控件上 不会触发Mouse Move事件
但是这不应该影响到托盘啊?
就是说,无法触发MouseMove事件

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

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-05 19:24
快速回复:API函数问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034067 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved