在MicroHelp Bar上显示时间

2006-9-30　网友评论 0 条　点击进入论坛

下面示例了在MDI的Microhelp棒的右边显示时间。它利用一个包含有一个单行
编辑控件sle_time的Pop-Up类型窗口w_popup，用SLE显示时间。
//定义MDI Frame的实例变量
INTEGER OX,OY,OH,OW // OLD X,Y AND HEIGHT, WIDTH
W_POPUP LPOP // LOCAL POPUP WHICH TRAIPES ...
//w_MDI_frame的Open事件
integer wx,wy,wh,ww // workspace extents
ox=this.x
oy=this.y
oh=this.height
ow=this.width
wx=this.workspacex ( )
wy=this.workspacey ( )
wh=this.workspaceheight ( )
ww=this.workspacewidth ( )
open(lpop)
move(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)
show(lpop)
//w_MDI_frame的Resize事件
integer wx,wy,wh,ww
wx=this.workspacex ( )
wy=this.workspacey ( )
wh=this.workspaceheight ( )
ww=this.workspacewidth ( )
if ( handle (lpop) > 0 ) then
     move(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)
end if
SetFocus(this)
//w_MDI_frame的用户事件pbm_move
integer wx,wy,wh,ww
wx=this.workspacex ( )
wy=this.workspacey ( )
wh=this.workspaceheight ( )
ww=this.workspacewidth ( )
if ( handle (lpop) > 0 ) then
     move(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)
end if
SetFocus(this)
//w_popup的Open事件
sle_time.weight = 300
Timer(5)
triggerevent(this,timer!)
//w_popup的Timer事件
Time t
t=now()
sle_time.hide ( ) //hide the sle
sle_time.text=space(len(sle_time.text))
sle_time.text=string(hour(t))+":"+string(Minute(t))+":"+string(Second(t))
sle_time.show ( ) //re-show the sle

今日推荐

• ·信息化 SOA架构中间件发展趋势调查分析
• ·中间件是促进我国软件产业发展的突破口
• ·中国电信业2011年整体IT支出将达461亿元
• ·中间件突出重围 逐渐成为企业应用趋势
• ·安全措施大升级 补丁管理走向自动化

• ·局域网ARP攻击免疫
• ·曙光推出基于龙芯的防火墙产品[组图]
• ·ACL的基本原理、功能与局限性
• ·基于MAC的访问控制列表详解
• ·Rambo安全经验谈：如何应对DoS攻击

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点