网站 › 『 PB源代码 』 › 透明文本示例

newease 发表于 2009-6-1 11:04:19

透明文本示例

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

zyxaaa 发表于 2009-8-10 14:30:42

谢谢了，好象以前做过了

kele558 发表于 2009-8-27 13:13:37

好，，，，，，，，，，，，，，，，，

lin 发表于 2009-11-9 21:46:42

谢谢楼主。

526611785 发表于 2014-11-6 10:44:38

好东西，收藏了

surachai43 发表于 2016-5-10 02:49:51

Thanks for sharing

djhell 发表于 2022-5-26 23:46:48

nice man tks

查看完整版本: 透明文本示例