读书人

经验分享:为实现类似QQ新闻小窗口的效

发布时间: 2012-03-01 10:25:47 作者: rapoo

经验分享:为实现类似QQ新闻小窗口的效果而获取任务栏高度。
我想在色球中制作类似QQ新闻消息提示窗口,在屏幕右下方升起的效果。代码如下。
~~~~~声明外部函数:
Function ulong SystemParametersInfoA(uLong uAction,uLong uParam, Ref structure lpvParam, uLong fuWinIni) Library "user32" //设置和取得windows系统参数
~~~~~还有定义一个结构体:
global type struct_screerect from structure
longleft
longright
longtop
longbottom
end type
~~~~~在小窗口的Open事件中:
environment env
integer rtn

rtn = GetEnvironment(env)

IF rtn <> 1 THEN RETURN

struct_ScreeRect strc_rect //屏幕方框结构体

ulong ll_Res
any la_temp
long ll_left,ll_right
ll_res = SystemParametersInfoA(48,0,strc_rect,0) //获取屏幕四个坐标

//根据环境变量提供的数量定位窗口
this.x = PixelsToUnits(env.ScreenWidth,XPixelsToUnits!) - this.width
this.y = PixelsToUnits(env.ScreenHeight,YPixelsToUnits!) - this.height - PixelsToUnits(env.screenheight - strc_rect.bottom,YPixelsToUnits!)//最后减去任务栏高度

~~~~~谢谢大家,www.colorlinez.cn

效果如下图:


[解决办法]
不错,支持下。沙发吗
[解决办法]
pb11你只用在window的属性上选一下就可以了,向powerpoint那样……
[解决办法]
发现楼主开了两个QQ,一个阿里旺旺,有个网卡出了故障。>_<
[解决办法]
leio好眼力啊
[解决办法]
一边说哀悼,一边还在玩。
[解决办法]
PB11有打开动作的选择
[解决办法]

PB11有这么强吗??

有空安装一下啦

读书人网 >PB

热点推荐