VB改变窗体的透明度

最新推荐文章于 2021-01-31 00:50:55 发布

小鸿叔

最新推荐文章于 2021-01-31 00:50:55 发布

阅读量2k

点赞数 1

分类专栏： VB 文章标签： vb function user byte

本文链接：https://blog.csdn.net/jyh_jack/article/details/2112487

版权

VB 专栏收录该内容

77 篇文章 8 订阅

订阅专栏

Option Explicit
Private Declare Function SetLayeredWindowAttributes Lib " user32 " ( ByVal hwnd As Long , ByVal crKey As Long , ByVal bAlpha As Byte , ByVal dwFlags As Long ) As Long
Private Declare Function GetWindowLong Lib " user32 " Alias " GetWindowLongA " ( ByVal hwnd As Long , ByVal nIndex As Long ) As Long
Private Declare Function SetWindowLong Lib " user32 " Alias " SetWindowLongA " ( ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long ) As Long
Const WS_EX_LAYERED = & H80000
Const GWL_EXSTYLE = ( - 20 )
Const LWA_ALPHA = & H2
Const LWA_COLORKEY = & H1

Private Sub Form_Load()
Dim sty As Long
sty = GetWindowLong( Me .hwnd, GWL_EXSTYLE)
sty = sty Or WS_EX_LAYERED
SetWindowLong Me .hwnd, GWL_EXSTYLE, sty
SetLayeredWindowAttributes Me .hwnd, 0 , 190 , LWA_ALPHA ' 190是透明度，修改
End Sub