PB中文字标签背景透明实现方法

ehxz

免费乐捐，感谢支持

定义窗口实例变量：

1. Boolean   ib_painting

复制代码

st_1   的   Constructor   事件，程序：

1. BackColor   =   2^29

复制代码

st_1   用   Event   ID:pbm_paint   
自定义用户事件：ue_paint   ，
程序：

1. if   IsValid(This)   then
   
2. if   ib_painting   then   Return   0
   
3. ib_painting   =   True
   
4. Visible   =   False
   
5. Do   While   Yield()
   
6. Loop
   
7. Visible   =   True
   
8. ib_painting   =   False
   
9. end   if
   
10. Return   0

复制代码

做一个继承了静态文本框的自定义用户对象，设置好后，在窗口上放这个自定义用户对象，不要放静态文本框。
附件是打包好的自定义用户对象PB9版本的。可以导入后直接调用。
ue_st.zip (594 Bytes, 下载次数: 19)

2020-7-22 11:15 上传

点击文件名下载附件

surachai43

Thank you very much.

zhihuicn

感谢大佬分享

zhihuicn

试试你的这个