浅谈如何利用PB实现树型列表动态半透明提示(三)(原
2008-05-01 02:22
701 查看
作者: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实现仿QQ自动显示/隐藏窗口(原创)
- 浅谈如何利用PB实现图片透明叠加(改编)
- 利用js实现输入框动态提示信息
- 浅谈 Vue v-model指令的实现原理 - 如何利用v-model设计自定义的表单组件
- 利用JS弹出层实现简单的动态提示“正在加载中,请稍等...”
- 如何在SpringMVC框架中利用Java反射机制和Javassist实现Java对象、属性、注解的动态创建生成
- 如何实现象kali.com.cn一样,将鼠标移到动态数据上时,下面出现文本提示框?
- 【远程调用框架】如何实现一个简单的RPC框架(三)优化一:利用动态代理改变用户服务调用方式
- C# :实现水印与图片合成,并利用Graphics 压缩图像质量 , (委托实现listBox的动态添加提示)。。。。。。。。。。。。
- 浅谈移动端的自适应问题——响应式、rem/em、利用Js动态实现移动端自适应
- 在Winfrom 中,如何实现combox 的列表自动显示ToolTip提示 ?
- PB动态数组实现机理1 --- 利用本身的结构来实现动态二维数组