Public Class Form1
Private Declare Function GetWindowLong Lib
"user32" Alias
"GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex
As Integer) As Integer
Private Declare Function SetWindowLong Lib
"user32" Alias
"SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex
As Integer, ByVal dwNewLong As Integer) As Integer
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As
Integer = &H20&
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Me.TopMost = True
Me.Opacity = 0.3
SetWindowLong(Me.Handle, GWL_EXSTYLE,
GetWindowLong(Me.Handle, GWL_EXSTYLE) Or WS_EX_LAYERED Or
WS_EX_TRANSPARENT) ‘鼠标穿透
SetWindowLong(Me.Handle, GWL_EXSTYLE,
WS_EX_LAYERED) ‘取消鼠标穿透
End Sub
End Class
时间: 2025-01-03 22:50:20