VB挖空窗体，实现悬浮控件效果
发布时间：2020-12-17 08:17:41 所属栏目：百科 来源：网络整理
导读：大家有兴趣的可以试试，希望对你们有帮助 代码使用三个API函数，简单地说，把窗体里面所有部分都变成红色，然后去掉所有的红色部分，代码直接复制粘贴可以运行，看看神奇效果吧 Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias
|
大家有兴趣的可以试试，希望对你们有帮助
代码使用三个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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |