首页 > 代码库 > VB API 之 透明窗体创建

VB API 之 透明窗体创建

2024-07-30 01:52:22   223人阅读

　　首先我们要用到的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的偏移值。可以是以下指定的值：

常量
常量值
意义
GWL_EXSTYLE
-20
设定一个新的扩展风格。
GWL_HINSTANCE
-6
设置一个新的应用程序实例句柄。
GWL_ID
-12
设置一个新的窗口标识符。
GWL_STYLE
-16
设定一个新的窗口风格。
GWL_USERDATA
-21
设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值。
GWL_WNDPROC
-4
为窗口过程设定一个新的地址。
GWL_HWNDPARENT-8　　改变子窗口的父窗口,应使用SetParent函数。
当hWnd参数标识了一个对话框时，也可使用下列值：
常量
常量值
意义
DWL_DLGPROC
DWLP_MSGRESULT + sizeof(LRESULT)
设置对话框过程的新地址。
DWL_MSGRESULT
0
设置在对话框过程中处理的消息的返回值。
DWL_USER
DWLP_DLGPROC + sizeof(DLGPROC)
设置的应用程序私有的新的额外信息，例如一个句柄或指针。

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的偏移值。可以是以下值：
一：
值
　　		意义
　　
GWL_EXSTYLE
(-20)
获得扩展窗口风格。
GWL_HINSTANCE
(-6)
获得应用实例的句柄。
GWL_HWNDPARENT
(-8)
如果父窗口存在，获得父窗口句柄。
GWL_ID
(-12)
获得窗口标识。
GWL_STYLE
(-16)
获得窗口风格。
GWL_USERDATA
(-21)
获得与窗口有关的32位值。每一个窗口均有一个由创建该窗口的应用程序使用的32位值。
GWL_WNDPROC
(-4)
获得窗口过程的地址，或代表窗口过程的地址的句柄。必须使用CallWindowProc函数调用窗口过程。
[1] 
hWnd参数为对话框句柄时，还可用下列值：
值
　　		意义
　　
DWL_DLGPROC
(4)
获得对话框过程的地址，或一个代表对话框过程的地址的句柄。必须使用函数CallWindowProc来调用对话框过程。
DWL_MSGRESULT
(0)
获得在对话框过程中一个消息处理的返回值。
DWL_USER
(8)
获得应用程序私有的额外信息，例如一个句柄或指针。
[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 LongPrivate Declare Function GetWindowLong Lib "user32" _                Alias "GetWindowLongA" _                (ByVal hwnd As Long, _                ByVal nIndex As Long) _                As LongPrivate Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA As Long = &H2Private Const WS_EX_LAYERED As Long = &H80000Private Declare Function SetLayeredWindowAttributes Lib "user32" _                (ByVal hwnd As Long, _                ByVal crKey As Long, _                ByVal bAlpha As Long, _                ByVal dwFlags As Long) _                As LongPrivate 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

VB API 之 透明窗体创建


联系
我们