易语言中如何实现编辑框透明,并且不穿透窗体!

 我来答
578296660
2010-09-09 · TA获得超过418个赞
知道小有建树答主
回答量:403
采纳率:0%
帮助的人:243万
展开全部
用API函数。
SetLayeredWindowAttributes
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

hWnd是透明窗体的句柄,

crKey为掩码的颜色,可以用RGB(r,g,b)来指定。

bAlpha是不透明度,取值范围是(0,255),其中0代表全透明,255代表不透明。

dwFlags是透明方式,可以取两个值:

当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效;

当取值为LWA_COLORKEY时,窗体中的所有颜色为crKey的地方将变为透明,bAlpha参数无效。

LWA_ALPHA = 0x2

LWA_COLORKEY=0x1

也可以取两个值的组合:LWA_ALPHA Or LWA_COLORKEY。这样crKey的地方将变为全透明,而其它地方根据bAlpha参数确定透明度。

要使使窗体拥有透明效果,首先要有WS_EX_LAYERED扩展属性,方法:

先声明GetWindowLong和SetWindowLong

Dim rtn As Long

rtn = GetWindowLong(Me.hWnd, -20)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong Me.hWnd, -20, rtn
弘映寒ew
2010-09-06 · TA获得超过2048个赞
知道小有建树答主
回答量:466
采纳率:0%
帮助的人:388万
展开全部
是指就可以显示字,但是没有白边吗?
那可以用透明标签
不然 我不清楚你的意思
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式