PB怎么做透明的文本_PB

PB如何做透明的文本
我现在工作空间，应用程序，窗口都创建好了。也加了文本“用户名”，从网上看了要创建可视用户对象，粘贴了代码。但是就是不能透明。求高手，详细指点。

------解决方案--------------------

SQL code

透明文本的实现（二零零四年一月十三日整理于深圳市南山区）PB中的静态文本控件可以设置各种不同的背景色，但没有办法设置为透明色，这在某些特殊界面设计要求时显得心有余而力不足。本文提供一种实现透明文本的简单方法，并不需要借助API。方法如下：1、    建立一个工作空间（workspace），取名为：transparent_st。2、    建立一个应用（application），取名为：transparent_st。3、    建立一个可视用户对象，uo_transparent_st，类型为statictext，定义下列变量：   boolean ib_painting4、    编写uo_transparent_st的Constructor事件脚本：   //536870912 透明色   This.backcolor =  2^29 5、    定义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 = FalseEND IFReturn 06、    运行后的效果图如下：
------解决方案--------------------
http://download.csdn.net//detail/newease/2411147


PB中的静态文本控件可以设置各种不同的背景色，但没有办法设置为透明色，这在某些特殊界面设计要求时显得心有余而力不足。本文提供一种实现透明文本的简单方法，并不需要借助API。方法如下：

1、 建立一个工作空间（workspace），取名为：transparent_st。

2、 建立一个应用（application），取名为：transparent_st。

3、 建立一个可视用户对象，uo_transparent_st，类型为statictext，定义下列变量：

boolean ib_painting

4、 编写uo_transparent_st的Constructor事件脚本：

//536870912 透明色

This.backcolor = 2^29  

5、 定义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

Return 0