关于静态文本问题

[sjysh]

在PB中有使静态文本变透明的方法吗？
谢谢!

[viv_wangsc]

呵呵，pb中直接不能够，但是可以取得静态文本的窗体句柄后然后使用WINAPI函数来设置背景颜色才能够做到；
具体的函数可以查WINAPI的窗口部分；

[michaelzhang]

我用如下方法实现，但如果显示的字被覆盖后就看不见了，所以我只能将她写在TIMER中，
不知有没有更好的方法。
Function ulong GetDC (ulong hWnd) Library "USER32.DLL"
Function long ReleaseDC( long hWnd, long hDC ) Library "user32"
Function boolean TextOut (ulong hdcr, integer stx, integer sty, ref string lpString, long nCount) Library "GDI32.DLL" Alias for "TextOutA"
Function int SetBkMode (ulong hdcr, integer mode) Library "GDI32.DLL"
Function ulong SetTextColor (ulong hDC, ulong crColor) Library "GDI32.DLL"


ulong iul_hdc

iul_hdc = getdc(handle( dw_1 ))
string ls_msg
ls_msg = "This is an example."
SetBkMode (iul_hdc, 1) //设定字符输出背景透明
SetTextColor (iul_hdc, RGB( 255,255,255 ))
TextOut (iul_hdc, 30, 30, ls_msg, len( ls_msg ))
ReleaseDC( handle( p_1 ), iul_hDC )