透明文本的实现

　　(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

最新文章

如何判断当前操作系统是否为98/2000/XP[01-04]

PowerBuilde应用开发系列讲座(19)续[01-04]

用PowerBuilder制作指示灯[01-04]

PowerBuilder应用开发系列讲座(37)[01-04]

用Pb 7.0创建一个具有多功能的下拉列表框[01-04]

PB8.0应用程序编译发布技术研究[01-04]

相关文章