VB简单制作透明窗口或透明Frame代码(2页).doc

《VB简单制作透明窗口或透明Frame代码(2页).doc》由会员分享，可在线阅读，更多相关《VB简单制作透明窗口或透明Frame代码(2页).doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-VB简单制作透明窗口或透明Frame代码-第 2 页具体代码如下：首先创建一个FORM，在FORM上放一个Button，放一个Frame然后输入代码：Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nInde

2、x As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32.dll (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const GWL_EXSTYLE As Long = (-20)Private Const WS_EX_LAYERED As Long = &H80000Private Co

3、nst LWA_COLORKEY As Long = &H1Private Sub Command1_Click()Dim rtn As Long = &HFF0000rtn = GetWindowLong(hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY 将扣去窗口中的蓝色End Sub最后执行点击Button，那么Frame就透明了。制作透明Frame Privat

4、e Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWind

5、owAttributes Lib user32.dll (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const GWL_EXSTYLE As Long = (-20)Private Const WS_EX_LAYERED As Long = &H80000Private Const LWA_COLORKEY As Long = &H1制作透明Frame（放在监控控件中执行）Dim rtn As Long = &HFF0000rtn = GetWindowLong(hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY 将扣去窗口中的蓝色