社区
PowerBuilder
帖子详情
如何将后台服务pb程序最小化后放入屏幕右下角
yuge1002
2001-12-19 09:25:07
我用Powerbuild做了一个和UNIX通信的程序
如何将后台pb程序最小化后放入屏幕右下角
...全文
203
5
打赏
收藏
如何将后台服务pb程序最小化后放入屏幕右下角
我用Powerbuild做了一个和UNIX通信的程序 如何将后台pb程序最小化后放入屏幕右下角
复制链接
扫一扫
分享
举报
写回复
配置赞助广告
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yuge1002
2001-12-21
打赏
举报
回复
多谢
kkbgp
2001-12-19
打赏
举报
回复
将窗口最小化为时钟旁的小图标(我也是从别处拷贝的)
建立主窗口“w_main”:
窗口定义如下“Local External Fuctions”:
function long LoadLibrary( ref string string ) LIBRARY "KERNEL32" Alias For LoadLibraryA
function long FreeLibrary( long long ) LIBRARY "KERNEL32"
function boolean Shell_NotifyIcon( ulong long, ref s_str str ) LIBRARY "SHELL32" Alias FOR "Shell_NotifyIconA"
function long LoadIcon( long long, long long ) LIBRARY "USER32" Alias For LoadIconA
定义结构型变量:
s_str:
size
Unsignedlong
Hwnd
Long
Id
Unsignedlong
Flags
Unsignedlong
Callbackmessage
Unsignedlong
Icon
Long
tips[64]
Character
定义实例变量:
private:
s_str istr_icon
窗口最小化按钮Click事件写入如下Script:
string ls_resource
Long ll_handle
// 下三句为装入图标资源,notepad.exe即为写字板,exe执行时显示的图标内定为1
ls_resource = "notepad.exe"
ll_handle = loadlibrary ( ls_resource )
istr_icon.icon = loadicon ( ll_handle, 1 )
// 窗口回调事件号,pbm_custom01即为1024,02为1025,依此类推
istr_icon.callbackmessage = 1024
istr_icon.tips = "应用程序"
istr_icon.hwnd = handle ( parent )
istr_icon.size = 88
istr_icon.id = 1
// 标识值,即为显示tips 4, 显示icon 2, 激活窗口对应事件号
istr_icon.flags = 7
// 显示icon关键函数, 0为显示,1为修改,2为删除
shell_notifyicon ( 0, istr_icon )
parent.hide ( )
// 释放资源
freelibrary ( ll_handle )
为窗口创建用户定义事件ue_event,event id为pbm_custom01,为其写script:
m_popup lm_popup
Integer li_X, li_Y
choose case lparam
Case 513 // LButtonUp
// 删除图标
Shell_NotifyIcon( 2, istr_icon )
// 显示窗口
this.show ( )
CASE 517 // RButtonUp
li_X = This.X
li_Y = This.Y
// 移动到屏幕外以免show 时看到,你可关闭此句看什么效果
This.Move ( - This.Width - 10, - This.Height - 10 )
// 加这句才能看到菜单条(菜单条属于此windows)
This.Show ( )
lm_popup = CREATE m_popup
lm_popup.m_item.PopMenu ( PointerX ( ), PointerY ( ) )
// 恢复设置
This.Hide ( )
This.Move ( li_X, li_Y )
DESTROY lm_popup
end choose
其中,“m_popup”为最小化成TRAYICON图标时点击右键时弹出的菜单。
liyc
2001-12-19
打赏
举报
回复
哪里有呀?
lesni
2001-12-19
打赏
举报
回复
网上有例程可以参考
liyc
2001-12-19
打赏
举报
回复
多谢!
相关推荐
PB
做的托盘
程序
(
最小化
后在左下角显示图标)
最小化
后,将在
右下角
显示图标。也就是托盘
程序
了! 做后后管理
程序
时,很实用!
PB
最小化
托盘、powerbuilder
最小化
到托盘,
最小化
后,会在
右下角
显示图标
PB
12.5
最小化
到托盘,powerbuilder12.5
最小化
到托盘,
最小化
后,会在
右下角
显示图标,双击
右下角
图标即可还原窗口
QT如何实现
后台
运行(即
最小化
到
右下角
托盘)
QT如何实现
后台
运行(即
最小化
到
右下角
托盘)
真正
屏幕
右下角
弹出消息窗口
经测试IE好用。 网上很多弹出窗口,都不能
最小化
,当主窗口
最小化
时,弹窗也没有了。 本
程序
绝对真正的“
屏幕
右下角
”弹出窗口,而非在IE内部弹出的窗口,当
最小化
时好用。
小
程序
之从
后台
取到数据后
放入
想要的标签list里
http://www.mamicode.com/info-detail-2380149.html
发帖
PowerBuilder
PowerBuilder
PowerBuilder 相关问题讨论
复制链接
扫一扫
1028
社区成员
6.6w+
社区内容
PowerBuilder 相关问题讨论
社区管理员
加入社区
获取链接或二维码
帖子事件
创建了帖子
2001-12-19 09:25
社区公告
暂无公告