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,LWA_COLORKEY

End Sub

欢迎访问我的博客：http://151451325.blog.163.com/ ；http://blog.sina.com.cn/tonyliuchen