社区
PowerBuilder
帖子详情
如何将后台服务pb程序最小化后放入屏幕右下角
yuge1002
2001-12-19 09:25:07
我用Powerbuild做了一个和UNIX通信的程序
如何将后台pb程序最小化后放入屏幕右下角
...全文
225
5
打赏
收藏
如何将后台服务pb程序最小化后放入屏幕右下角
我用Powerbuild做了一个和UNIX通信的程序 如何将后台pb程序最小化后放入屏幕右下角
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
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
9教程
第一章PowerBuilder简介 在计算机专业中,软件教学占有非常重要的位置。为了满足计算机职业岗位群的需要,近年来,我们对计算机网络专业和计算机
程序
员专业中的软件课程进行...通过学习
PB
使学生能够编写客户端应用
程序
PB
编程常用API函数
1. 如何使
PB
窗口总在最上层 通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST,就可以使指定窗口永远不会被其他窗口覆盖,该函数声明为: Function Long SetWindowPos(Long hwnd, Long ord, ...
收集
PB
使用中的一些资料及技巧
收集
PB
使用中的一些资料及技巧! [转]自定义事件ID含义:Event ID 含义 内容浅析单选或多选按钮消息(前缀:
pb
m_bm)
pb
m_bmgetcheck 单选按钮或多选按钮是否被选。
pb
m_bmgetstate 按钮是否加亮。
pb
m_...
(转)
pb
+api实际应用
1、利用Api函数计算Windows从启动后所运行的总时间 Function long GetTickCount() Library "kernel32.dll" //获取windows从启动开始的总微秒数 窗口w_example的open事件: timer(0.05)//...
C++
程序
设计原理与实践(第二版)思考题答案
看到原版标题就应该明白,这本书是教你
程序
设计的,目的是使你掌握
程序
设计原理并付诸实践,而C++是作为教学的工具语言。作者在本书的前言和引言有提到,如果你只是想掌握C++语法的话,那么这本书或许并不合适;如果...
PowerBuilder
1,108
社区成员
66,453
社区内容
发帖
与我相关
我的任务
PowerBuilder
PowerBuilder 相关问题讨论
复制链接
扫一扫
分享
社区描述
PowerBuilder 相关问题讨论
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章