首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

关于pb控件解决方法

2012-05-05 
关于pb控件pb有没有控件只显示文字而不显示背景就像vb中的Label1,把backstyle改成0-transparent[解决办法]

关于pb控件
pb有没有控件只显示文字而不显示背景
就像vb中的Label1,把backstyle改成0-transparent

[解决办法]
text也可以变透明,就是麻烦点。

如果用datawindow就容易多了
[解决办法]
用statictext就要在写点代码了

1、constructor:
backcolor=2^29
2、写个自定义事件 event_id:pbm_paint
//ib_paintst 是个Boolean类型的实例变量,需要定义一下
if IsValid(this) then //主要是这里的问题 
if ib_paintst then Return 0 
ib_paintst = True 
Visible = False 
Do While Yield() 
Loop 
Visible = True 
ib_paintst = False 
end if 
Return 0
[解决办法]
不好使,明天再说
[解决办法]
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

热点排行