VB中光标穿透

最新推荐文章于 2016-02-02 15:52:00 发布

原创最新推荐文章于 2016-02-02 15:52:00 发布 · 464 阅读

0 ·

CC 4.0 BY-SA版权

Vb.Vc 专栏收录该内容

16 篇文章

订阅专栏

本文深入探讨了如何使用Windows API实现光标穿透透明层窗口的效果，包括设置窗口样式、颜色键和透明度的步骤。通过修改窗口属性，可以实现光标在透明背景下的可见性，为用户提供更流畅的视觉体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★光标穿透有形无影
'声明
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As Long = &H20&
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

'启动
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 200
SetLayeredWindowAttributes Me.hWnd, 0, 50, LWA_ALPHA
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★光标穿透