pb静态文本背景透明实现原理
constructor事件:This.backcolor=2^29自定义事件ue_paint事件ID:pbm_paint代码:IFIsValid(This)THENifi...
constructor事件:
This.backcolor = 2 ^ 29
自定义事件ue_paint 事件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
这样做确实可以使背景透明,但是当我把
Do While Yield()
Loop
这两句注释掉以后背景就不透明了
关于yield()函数无非是把控制权交给其他控件,到底是什么原因使文本背景透明的,谁能告诉一下
答得好再给50分 展开
This.backcolor = 2 ^ 29
自定义事件ue_paint 事件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
这样做确实可以使背景透明,但是当我把
Do While Yield()
Loop
这两句注释掉以后背景就不透明了
关于yield()函数无非是把控制权交给其他控件,到底是什么原因使文本背景透明的,谁能告诉一下
答得好再给50分 展开
2个回答
展开全部
首先,你要区分文本框和静态文本框,这是两种不同的控件,透明方法完全不同!
静态文本框的默认背景是灰色,也就是对话框的“底色”。只有文本框(编辑框)的默认背景为白色。
如果是静态文本框,那么控件属性里设置选中TRANSPARENT,你上面的代码就可以了。
如果是编辑框,那么需要改变刷子hbr 为空画刷。但编辑框,只在OnCtrlColor里面做,效果是很差的,你需要处理OnEraseBackGround,最好能重载编辑框类,处理一下文字刷新,否则总是有显示BUG。
静态文本框的默认背景是灰色,也就是对话框的“底色”。只有文本框(编辑框)的默认背景为白色。
如果是静态文本框,那么控件属性里设置选中TRANSPARENT,你上面的代码就可以了。
如果是编辑框,那么需要改变刷子hbr 为空画刷。但编辑框,只在OnCtrlColor里面做,效果是很差的,你需要处理OnEraseBackGround,最好能重载编辑框类,处理一下文字刷新,否则总是有显示BUG。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询