分享到新浪微博 分享到QQ空间 打印

[ZT][VB]半透明窗体

[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