powerbuilder中把图标放在时间显示处

转载 2004年09月17日 14:55:00

将窗口最小化为时钟旁的小图标

编辑整理:panya

建立主窗口“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,021025,依此类推

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_eventevent idpbm_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图标时点击右键时弹出的菜单。

PowerBuilder中图片文件的处理

PowerBuilder中图片文件的处理 杨勤 莫国庆 摘 要 文章总结了在PowerBuilder应用程序中处理图片文件的两种方法:PowerBuilder语句加Picture控件以及OLE列加...
  • tlammon
  • tlammon
  • 2015年01月17日 16:24
  • 2674

【PB】pb菜单详解和MDI

菜单条-MenuBar、菜单项-MenuItem、级联菜单(子菜单)-SubMenu 菜单项(MenuItem)是菜单中最基本的元素,只要有文字内容的就是菜单项。菜单条(MenuBar)是菜单中级别...
  • lijianhe043
  • lijianhe043
  • 2013年03月06日 17:20
  • 7455

如何实现鼠标放在图片上出现文字说明效果?

最近在浏览网页时,看到一些图片,鼠标一放上去呢,就会有说明文字“浮”上来,移开又“沉”下去,感觉好炫!自己就在网上找实现代码啊,看看事件是怎么实现的!然后就找到了如下的代码: ...
  • ZYGG5521
  • ZYGG5521
  • 2015年08月10日 10:16
  • 3379

powerbuilder编写的显示日期时间的程序

  • 2010年11月29日 11:43
  • 152B
  • 下载

PowerBuilder制作IE风格的图标按钮

PowerBuilder制作IE风格的图标按钮 (加入日期:2001-9-9) 【保存文章至硬盘】【打印文章】【字体:大 中 小】 分享到: 0 ---- 本文介绍在PowerBui...
  • hunter403
  • hunter403
  • 2012年03月30日 21:41
  • 194

在PowerBuilder中创建图标栏应用

在PowerBuilder中创建图标栏应用 (加入日期:2001-4-25) 【保存文章至硬盘】【打印文章】【字体:大中 小】 分享到: 0 国防科技大学理学院 陈玉教 邮编: ...
  • hunter403
  • hunter403
  • 2012年03月31日 11:11
  • 213

aero任务栏小图标显示时间日期主题

  • 2012年11月15日 12:32
  • 4.02MB
  • 下载

BB95xx-主页时间大图标显示 BigClock v1.00.10

  • 2011年05月29日 14:15
  • 18KB
  • 下载

000XLCloud用于解决最近系统启动突然变慢,桌面图标长时间不显示问题(是迅雷公司和Adobe的问题)

3.19号上班后,一开机发现电脑的开机速度有原来的40秒变为4分钟,但是自己没有对电脑做过任何改变,于是网上搜索了一下,发现很多人都有这个问题,基本都是3.18左右“发病”的,偶然看到一个帖子也是关于...
  • yy13210520
  • yy13210520
  • 2012年04月05日 00:32
  • 2115

PowerBuilder常用日期时间函数

  • 2012年08月29日 00:31
  • 14KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:powerbuilder中把图标放在时间显示处
举报原因:
原因补充:

(最多只允许输入30个字)