VB API 之 透明窗体创建

　　首先我们要用到的API函数有SetWindowLong，GetWindowLong，SetLayeredWindowAttributes。

SetWindowLong函数原型：

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long

函数功能：

　　该函数用来改变指定窗口的属性

参数：

hwnd： Long     //窗口的句柄

nIndex：Long   //大于等于0的偏移值。可以是以下指定的值：

当hWnd参数标识了一个对话框时，也可使用下列值：

dwNewLong

指定的替换值。

dwNewLong中可以使用以下一些列表控件的专用风格：

LVS_ICON LVS_SMALLICON LVS_LIST LVS_REPORT

这四种风格决定控件的外观，同时只可以选择其中一种，分别对应：

大图标显示，小图标显示，列表显示，详细报表显示

LVS_EDITLABELS 结点的显示字符可以被编辑，对于报表风格来讲可编辑的只为第一列。

LVS_SHOWSELALWAYS 在失去焦点时也显示当前选中的结点

LVS_SINGLESEL 同时只能选中列表中一项

返回值：成功返回一个32位整数的值，失败为0.

　　GetWindowLong函数原型

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) _
As Long

函数功能：

　　该函数获得指定窗口的有关信息，函数也获得在额外窗口内存中指定偏移位地址的32位度整型值。

参数：

hWnd ：Long  //窗口的句柄

nIndex：Long //大于等于0的偏移值。可以是以下值：

一：

[1]

hWnd参数为对话框句柄时，还可用下列值：

[1]

返回值：　如果函数成功，返回值是所需的32位值；如果函数失败，返回值是0。　

　　SetLayeredWindowAttributes函数原型

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Long, _
ByVal dwFlags As Long) _
As Long

函数功能：此函数用于设置分层窗口透明度，常和 UpdateLayeredWindow 函数结合使用

参数：

hwnd：Long     //窗口句柄

crkey：Long    //指定需要透明的背景颜色值，可用RGB()宏

bAlpha：Long  //设置透明度，0表示完全透明，255表示不透明

dwFlags：Long //透明方式

其中，dwFlags参数可取以下值：

LWA_ALPHA时：crKey参数无效，bAlpha参数有效；

LWA_COLORKEY：窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。

LWA_ALPHA | LWA_COLORKEY：crKey的地方将变为全透明，而其它地方根据bAlpha参数确定透明度。

代码如下：

Private Declare Function SetWindowLong Lib "user32" _
                Alias "SetWindowLongA" _
                (ByVal hwnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) _
                As Long
Private Declare Function GetWindowLong Lib "user32" _
                Alias "GetWindowLongA" _
                (ByVal hwnd As Long, _
                ByVal nIndex As Long) _
                As Long

Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA As Long = &H2
Private Const WS_EX_LAYERED As Long = &H80000

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
                (ByVal hwnd As Long, _
                ByVal crKey As Long, _
                ByVal bAlpha As Long, _
                ByVal dwFlags As Long) _
                As Long

Private Sub Form_Load()
  Dim p As Long
  p = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ‘取得当前窗口属性
  Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, p Or WS_EX_LAYERED)
  ‘加上一个半透明属性
  Call SetLayeredWindowAttributes(Me.hwnd, 0, 125, LWA_ALPHA)
End Sub