pb托盘+菜单+热键呼出,该如何解决 - PB当前位置:& &&&pb托盘+菜单+热键呼出,该如何解决pb托盘+菜单+热键呼出,该如何解决&&网友分享于：&&浏览：4次pb托盘+菜单+热键呼出谁给个完整的代码?200分
注意,是要托盘,和托盘上面显示的菜单,还有显示成托盘用热键可以呼出来的,最好是可以自定义热键的
------解决方案--------------------api定义：
Public&Function&Integer&Shell_NotifyIcon&(Long&dwMessage,&Any&lpData)&Library&"shell32"&Alias&For&"Shell_NotifyIconA"
Public&Function&Long&LoadImage&(Long&hInst,&String&lpsz,&Long&un1,&Long&n1,&Long&n2,&Long&un2)&Library&"user32"&Alias&&For&"LoadImageA"&
Public&Function&Long&DestroyIcon&(Long&hIcon)&Library&"user32"&Alias&For&"DestroyIcon"
Public&Function&Long&SetForegroundWindow&&(Long&hwnd)&Library&"user32"&Alias&For&"SetForegroundWindow"
Public&Function&Long&OpenIcon&&(Long&hwnd)&Library&"user32"&Alias&For&"OpenIcon"
自定义函数&&：
//&Boolean&AddToTray&()
if&hIcon&=&0&then
//&the&icon&has&not&been&loaded&yet
hIcon&=&LoadImage(0,&"RED.ICO",&IMAGE_ICON,&0,&0,&LR_LOADFROMFILE)
if&hIcon&=&0&then
// MessageBox&("Error",&"Can't&load&icon!")
// Return&False
nid&=&SetNotifyIconData&(Handle&(This),&0,&NIF_MESSAGEorNIF_ICONorNIF_TIP,&WM_MOUSEMOVE,&hIcon,&"南京＊＊数据采集程序")
Shell_NotifyIcon&(NIM_ADD,&nid)
Return&True
//&RemoveFromTray&()
nid&=&SetNotifyIconData&(Handle&(This),&0,&NIF_MESSAGEorNIF_ICONorNIF_TIP,&0,&hIcon,&"")
Shell_NotifyIcon&(NIM_DELETE,&nid)
if&hIcon&&&&0&then&DestroyIcon&(hIcon)
//&NotifyIconData&SetNotifyIconData&(Long&hWnd,&Long&ID,&Long&Flags,&Long&CallbackMessage,&Long&Icon,&String&Tip)
Char&MyTip&[64]
NotifyIconData&NidTemp
NidTemp.cbSize&=&88&//&Len&(NidTemp)
NidTemp.hWnd&=&hWnd
NidTemp.uID&=&ID
NidTemp.uFlags&=&Flags
NidTemp.uCallbackMessage&=&CallbackMessage
NidTemp.hIcon&=&Icon1
MyTip&=&Tip&+&Char&(0)
NidTemp.szTip&=&MyTip
return&NidTemp
if&AddToTray&()&then&Visible&=&False
MouseMove:
//&Long&MouseMove&(UnsignedLong&Flags,&Int&xPos,&Int&yPos)
if&yPos&&&&0&And&Visible&then
//&This&event&has&been&triggered&by&really&moving&the
//&mouse&over&the&window.&Note&that&we&can't&trace&a
//&first&graphic&line&(yPos&=&0)&of&mouse&movements&any
//&more&since&tray&events&always&set&yPos&to&0&but&that
//&won't&be&a&problem&in&most&of&the&cases&anyway.
//&TODO:&place&your&own&code&here&to&handle&then&MouseMove&event
//&&&&&&&if&you&want.
//&This&is&really&a&tray&event.&We&can&find&out&what
//&triggered&this&event&by&examining&xPos&value.
choose&case&Mod&(xPos,&256)
//&case&84,&41&&&//&Left&MouseDown
&&&&&&//&case&88,&46&&&//&Left&MouseUp
&case&95,&55&&&//&Right&MouseDown
&m_taskbar
lm_Current
&&&&integer
li_X,&li_Y
lm_Current&=&CREATE&m_Taskbar
li_X&=&This.X
li_Y&=&This.Y
This.X&=&-&This.Width&-&10
This.Y&=&-&This.Height&-&10&
This.Visible=TRUE
lm_Current.m_main.Popmenu(PointerX(),&PointerY())
This.Visible=FALSE
This.X&=&li_X
This.Y&=&li_Y
DESTROY&lm_Current
case&99,&59&&&//&Right&MouseUp
&&&&&&&case&91,&50&&&//&Left&DoubleClick
OpenIcon&(Handle&(This))
Visible&=&True
SetForegroundWindow&(Handle&(This))
//&case&102,&64&&//&Right&DoubleClick
&&&&&&//&case&else&//&MouseMove
//&Note&that&the&only&guarantee&that&the&mouse
//&is&really&moving&over&the&tray&icon&is&that
//&the&form&is&not&being&visible&at&this&time.
//&The&mouse&could&also&be&moving&over&the 共&2&页:
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有易语言怎么用热键呼出窗口？-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
易语言怎么用热键呼出窗口？
来源：互联网 发表时间： 6:48:07 责任编辑：王亮字体：
为了帮助网友解决“易语言怎么用热键呼出窗口？”相关的问题，中国学网通过互联网对“易语言怎么用热键呼出窗口？”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:易语言怎么用热键呼出窗口？，具体解决方案如下：解决方案1：.版本 2
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 热键, 整数型
.子程序 __启动窗口_创建完毕
热键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 ＝ 热键)
可视 ＝ 真'这里你也可以改成窗口位置
SetForegroundWindow (取窗口句柄 ())
.如果真结束
.子程序 _按钮1_被单击
可视 ＝ 假'这里你也可以改成窗口位置
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号劫持的DLL如何设置热键来呼出窗口？_易语言吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：135,065贴子：
劫持的DLL如何设置热键来呼出窗口？收藏
劫持的DLL如何设置热键来呼出窗口？不会，求大神指点指点。
缺牙要及时修复，揭秘种植牙如何做到几十年不掉？
应用吧活动,
我漂亮么，下面给你吃
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}