让窗体透明控件可见

最新推荐文章于 2024-09-21 11:36:26 发布

原创最新推荐文章于 2024-09-21 11:36:26 发布 · 597 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #user #byte

在 form 中随意放入一些控件贴入下面代码运行可看到效果

Const LWA_COLORKEY = &H1

Const LWA_ALPHA = &H2

Const GWL_EXSTYLE = (-20)

Const WS_EX_LAYERED = &H80000

Const WS_EX_TRANSPARENT As Long = &H20&

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

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 Sub Form_Load()

Dim co As Long

'Show

Me.BackColor = RGB(255, 23, 100)

co = Me.BackColor

Dim Ret As Long

Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)

Ret = Ret Or WS_EX_LAYERED 'Or WS_EX_TRANSPARENT

SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret

'Set the opacity of the layered window to 200

'SetLayeredWindowAttributes Me.hWnd, 0, 200, LWA_ALPHA

SetLayeredWindowAttributes Me.hWnd, co, 200, &H1