VB挖空窗體，實現懸浮控件效果

大家有興趣的可以試試，希望對你們有幫助

代碼使用三個API函數，簡單地說，把窗體裏面所有部分都變成紅色，然後去掉所有的紅色部分，代碼直接複製粘貼可以運行，看看神奇效果吧

Option Explicit

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

Private Sub Form_Load()

'   掏空窗體

    Me.BackColor = &HFF0000

    Dim rtn As Long

    Dim BorderStyler

    BorderStyler = 0

    rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

    rtn = rtn Or WS_EX_LAYERED

    SetWindowLong hwnd, GWL_EXSTYLE, rtn

    SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY

End Sub

歡迎訪問我的博客：http://151451325.blog.163.com/   ；http://blog.sina.com.cn/tonyliuchen