浅谈如何利用PB实现树型列表动态半透明提示(三)(原
来源:互联网 发布:淘宝提前收款疯狂扣费 编辑:程序博客网 时间:2024/05/19 06:19
作者:BALLOONMAN2002 2004年6月26日
三、半透明效果实现
1、创建一个可视USER OBJECT对象,并在主窗口中创建该UO的实例变量。
2、声明本地外部函数:
Function ulong GetDC(ulong hwnd) LIBRARY "user32.dll"
Function ulong BitBlt(ulong hDestDC,ulong x,ulong y,ulong nWidth,ulong nHeight,ulong hSrcDC,ulong xSrc,ulong ySrc,ulong dwRop) LIBRARY "gdi32.dll"
Function ulong ReleaseDC(ulong hwnd,ulong hdc) LIBRARY "user32.dll"
Function ulong CreateCompatibleDC(ulong hdc) LIBRARY "gdi32.dll"
Function ulong CreateCompatibleBitmap(ulong hdc,ulong nWidth,ulong nHeight) LIBRARY "gdi32.dll"
SUBROUTINE Sleep(ulong dwMilliseconds) LIBRARY "kernel32.dll"
Function ulong SelectObject(ulong hdc,ulong hObject) LIBRARY "gdi32.dll"
Function ulong AlphaBlend(long hDestDC , long X, long Y , long nWidth , long nHeight, long hSrcDC,long xSrc,long ySrc, long WidthSrc, long HeightSrc ,long dreamAKA ) LIBRARY "msimg32"
Function ulong DeleteDC(ulong hdc) LIBRARY "gdi32.dll"
Function ulong GetSystemMetrics(ulong nIndex) LIBRARY "user32.dll"
SUBROUTINE CopyMemory2 (ref long Destination , blendfunction Source, long Length) LIBRARY "kernel32" Alias for "RtlMoveMemory"
Function ulong DeleteObject(ulong hObject) LIBRARY "gdi32.dll"
3、处理主窗口的TIMER事件,用于定期触发提示信息:
long ll_x,ll_y
if ii_tip > 0 then
if ib_tipshow then
ib_tipshow = false
iuo_tips.hide()
timer(0)
else
ib_tipshow = true
ll_x = w_main.pointerx() + 50
ll_y = w_main.pointery() - iuo_tips.height - 5
if ll_y < 2 then
ll_y = 2
end if
//wf_maketrans(iuo_tips,iuo_tips.mle_1,il_x,il_y,50)
wf_maketrans(iuo_tips,iuo_tips.mle_1,ll_x,ll_y,40)
//上述函数是用于实现半透明效果的函数
timer(6)
end if
end if
- 浅谈如何利用PB实现树型列表动态半透明提示(三)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(一)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(二)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(四)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(原创)
- 利用PB实现树型列表动态半透明提示
- 浅谈如何利用PB实现动态添加菜单(原创)
- 浅谈如何利用PB实现动态添加菜单(原创)
- 浅谈如何利用PB实现图片透明叠加(改编)
- 浅谈如何利用PB实现图片透明叠加(改编)
- 浅谈如何利用PB实现仿QQ自动显示/隐藏窗口(原创)
- 浅谈如何查阅PB利用OLE操作WORD、EXCEL的函数?(原创)
- PB如何实现动态建立菜单
- PB如何实现动态建立菜单
- 浅谈动态规划(三)
- 利用半透明对话框实现新浪微博android客户端首次运行时的提示界面
- 利用半透明对话框实现新浪微博android客户端首次运行时的提示界面
- 利用半透明对话框实现新浪微博android客户端首次运行时的提示界面
- 如何把应用程序程序和ORACLE客户端一起打包
- 学习笔记(1)--Crystal Enterprise组件
- 『收藏』收缩日志文件的SQL脚本
- 浅谈如何利用PB实现树型列表动态半透明提示(一)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(二)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(三)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(四)(原
- 浅谈如何利用PB实现动态添加菜单(原创)
- 设置sql进行跟踪
- [ZT]精妙SQL语句
- 在Linux下访问MS SQL Server数据库(转)
- ITpub发布第六期免费电子杂志
- 生成交叉表的简单通用存储过程
- 长命百岁和死而复生