VB窗体透明的实现_vb如何设置透明窗体-CSDN博客

本文链接：https://blog.csdn.net/ty5858/article/details/113449399

这篇博客介绍了如何使用VB.NET代码实现窗体的透明和半透明效果。通过调用`GetWindowLong`、`SetWindowLong`和`SetLayeredWindowAttributes`函数，设置窗体的额外样式和透明度，实现用户点击按钮后窗体变为半透明或指定颜色透明。在窗体加载时，两个命令按钮分别用于设置半透明和指定颜色透明效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在这里插入图片描述
'添加一个标准模块，代码如下：
Option Explicit
Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib “user32” (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1

'窗体透明或半透明
'MeLoad函数说明:
'F:窗体名
'B:指定透明的颜色或透明度(当LWA=True时为透明度,反之为要透明的颜色值)
'LWA:全透明或半透明

Public Sub MeLoad(F As Form, B As Long, LWA As Boolean)
Dim rtn As Long
rtn = GetWindowLong(F.hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong F.hwnd, GWL_EXSTYLE, rtn
If LWA And B > 255 Or B < 0 Then Exit Sub
SetLayeredWindowAttributes F.hwnd, IIf(LWA <> True, B, 0), IIf(LWA, B, 0), IIf(LWA, LWA_ALPHA, LWA_COLORKEY)
End Sub

'在窗体上画两个CommandButton按钮，属性为默认，代码如下：
Private Sub Command1_Click()
Call MeLoad(Me, 100, True) '数值在0~255
End Sub

Private Sub Command2_Click()
Me.BackColor = RGB(255, 0, 0)
Call MeLoad(Me, Me.BackColor, False)
End Sub

Private Sub Form_Load()
Command1.Caption = “半透明”
Command2.Caption = “指定颜色透明”
End Sub