VB挖空窗体，实现悬浮控件效果
大家有兴趣的可以试试，希望对你们有帮助代码使用三个API函数，简单地说，把窗体里面所有部分都变成红色，然后去掉所有的红色部分，代码直接复制粘贴可以运行，看看神奇效果吧
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private 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_COLORKEYEnd Sub
欢迎访问我的博客：http://151451325.blog.163.com/ ；http://blog.sina.com.cn/tonyliuchen
