PB透明文本的实现
添加时间: 2006-2-21 20:19:21 作者: PowerBuilder教程 阅读次数:980 来源: http://www.d9soft.com
(1) 新建Standard Visual用户对象uo_transparent_st，类型为定义实例变量：Boolean ib_painting
(2) 编写uo_transparent_st的Constructor 事件脚本：
// 透明色 536870912
This.backcolor = 2^29
(3) 定义用户对象uo_transparent_st的用户事件ue_paint（Event ID：pbm_paint），并编写脚本如下：
IF IsValid(This) THEN
if ib_painting THEN Return 0
ib_painting = True
This.Visible = False
Do While Yield()
Loop
This.Visible = True
ib_painting = False
END IF</P><P>Return 0
上下文章:
上一篇文章: 在PB下实现圆形的窗口 下一篇文章: 如何在PB中实现串口编程
相关文章: