VB如何实现透明效果

1、新建EXE。

2、代码如图。下一页有文字版。

3、在通用里面输入这些。注意是  （通用）

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 Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

4、在FORM里输这个。注意格式。

Private Sub Form_Load()

    Me.BackColor = &HFF0101

    Dim rtn As Long

    rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

    rtn = rtn Or WS_EX_LAYERED

    SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn

    SetLayeredWindowAttributes Me.hwnd, &HFF0101, 0, LWA_COLORKEY

End Sub

5、展示一下效果。

6、注意！控件不透明！