[ZT][VB]半透明窗体

深红喷火龙

苦逼宅

深红喷火龙训练师头像

初等会员[十一级]

Level 2 Level 2 Level 2 Level 1 Level 1

大焰界

帖子: 298
精华: 0
积分: 335
PT币: 520 枚
热度: 6 °C
贡献值: 0 点

发送到消息盒子

鬼斯 Lv.17

尚未获取任何徽章

[查看其他宠物]

发短消息

楼主大中小发表于 2007-9-29 12:27 显示全部帖子

[quote]原帖由 Woodu 于 2007-9-2 01:19 PM 发表
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, p Or WS_EX_LAYERED)
'加上一个透明属性
'0为完全透明，下面是设为200时的透明效果，可自行修改
Call SetLayeredWindowAttributes(Me.hwnd, 0, 200, LWA_ALPHA) [quote]
这里为什么要用call呢？不明白…………
望楼主明示
Private Const LWA_ALPHA As Long = &H2
Private Const WS_EX_LAYERED As Long = &H80000
这两句………………是vb2005的吗？

[ 本帖最后由深红喷火龙于 2007-9-29 12:35 PM 编辑 ]

TOP

«« 上一主题 | 下一主题 »» | 推荐给朋友