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

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

posted on 2012-12-26 15:15  o紫夏o  阅读(575)  评论(0编辑  收藏  举报

导航