VB.NET实现Checkbox控制窗体点击穿透及解决交互失效问题

我来帮你搞定这两个问题——把Checkbox和点击穿透功能关联起来，同时解决开启穿透后无法操作Checkbox的痛点。

首先，你原来的代码是通过重写CreateParams固定添加WS_EX_TRANSPARENT样式，这会让窗体一直处于穿透状态，没法动态切换。而且这个样式会让整个窗体的鼠标消息都透过去，包括Checkbox，所以你点不到它。下面是具体的解决方案：

一、动态切换点击穿透状态（关联Checkbox） #

我们需要用API来动态修改窗体的扩展样式，而不是固定在CreateParams里。先声明必要的API和常量：

Imports System.Runtime.InteropServices

Public Class YourFormName
    Private Const WS_EX_TRANSPARENT As Integer = &H20
    Private Const GWL_EXSTYLE As Integer = -20

    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function GetWindowLongPtr(hWnd As IntPtr, nIndex As Integer) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SetWindowLongPtr(hWnd As IntPtr, nIndex As Integer, dwNewLong As IntPtr) As IntPtr
    End Function

    ' 切换点击穿透的方法
    Private Sub ToggleClickThrough(isEnabled As Boolean)
        Dim currentExStyle As IntPtr = GetWindowLongPtr(Me.Handle, GWL_EXSTYLE)
        If isEnabled Then
            ' 开启穿透：添加WS_EX_TRANSPARENT样式
            currentExStyle = New IntPtr(currentExStyle.ToInt64() Or WS_EX_TRANSPARENT)
        Else
            ' 关闭穿透：移除WS_EX_TRANSPARENT样式
            currentExStyle = New IntPtr(currentExStyle.ToInt64() And Not WS_EX_TRANSPARENT)
        End If
        SetWindowLongPtr(Me.Handle, GWL_EXSTYLE, currentExStyle)
        ' 强制刷新窗体样式
        Me.Refresh()
    End Sub

然后把这个方法和Checkbox的CheckedChanged事件关联起来：

Private Sub CheckBox_ClickThrough_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_ClickThrough.CheckedChanged
        ToggleClickThrough(CheckBox_ClickThrough.Checked)
    End Sub

二、解决开启穿透后无法操作Checkbox的问题 #

上面的方法虽然能切换穿透，但开启后还是点不到Checkbox——因为WS_EX_TRANSPARENT会让整个窗体的鼠标事件都穿透下去。我们需要让Checkbox成为例外，这里有两种靠谱的方案：

方案1：使用分层窗口+透明度控制 #

这种方法通过设置窗体为分层窗口，把整体透明度设为0实现穿透，但控件保持可交互：

先补充API声明：

Private Const WS_EX_LAYERED As Integer = &H80000
Private Const LWA_ALPHA As Integer = &H2

<DllImport("user32.dll")>
Private Shared Function SetLayeredWindowAttributes(hWnd As IntPtr, crKey As Integer, bAlpha As Byte, dwFlags As Integer) As Boolean
End Function

修改ToggleClickThrough方法：

Private Sub ToggleClickThrough(isEnabled As Boolean)
    Dim currentExStyle As IntPtr = GetWindowLongPtr(Me.Handle, GWL_EXSTYLE)
    If isEnabled Then
        ' 添加分层窗口和透明样式
        currentExStyle = New IntPtr(currentExStyle.ToInt64() Or WS_EX_TRANSPARENT Or WS_EX_LAYERED)
        SetWindowLongPtr(Me.Handle, GWL_EXSTYLE, currentExStyle)
        ' 设置窗体透明度为0（实现穿透）
        SetLayeredWindowAttributes(Me.Handle, 0, 0, LWA_ALPHA)
    Else
        ' 移除透明样式
        currentExStyle = New IntPtr(currentExStyle.ToInt64() And Not WS_EX_TRANSPARENT)
        SetWindowLongPtr(Me.Handle, GWL_EXSTYLE, currentExStyle)
        ' 恢复窗体不透明度
        SetLayeredWindowAttributes(Me.Handle, 0, 255, LWA_ALPHA)
    End If
    Me.Refresh()
End Sub

这样设置后，窗体整体是透明穿透的，但Checkbox作为控件依然能接收鼠标点击。

方案2：精确控制鼠标穿透区域（推荐） #

通过处理WM_NCHITTEST消息，判断鼠标是否在Checkbox范围内——如果是，就让窗体接收鼠标事件；否则就穿透。这种方法更灵活，适合需要多个可交互控件的场景：

重写窗体的WndProc方法：

Protected Overrides Sub WndProc(ByRef m As Message)
    MyBase.WndProc(m)
    ' WM_NCHITTEST消息：判断鼠标位置对应的窗口区域
    If m.Msg = &H84 Then
        ' 把屏幕坐标转换为窗体客户端坐标
        Dim mousePos As New Point(m.LParam.ToInt32())
        mousePos = Me.PointToClient(mousePos)
        
        ' 检查鼠标是否在Checkbox范围内
        If CheckBox_ClickThrough.ClientRectangle.Contains(mousePos) Then
            ' 返回HTCLIENT，表示鼠标在客户区，接收事件
            m.Result = New IntPtr(&H1)
        Else
            ' 返回HTTRANSPARENT，表示鼠标穿透到下层窗口
            m.Result = New IntPtr(&H18)
        End If
    End If
End Sub

用这个方案的话，你可以保留之前动态切换WS_EX_TRANSPARENT的逻辑，或者直接依赖这个消息处理来实现穿透——当Checkbox勾选时，启用这个消息处理，取消勾选时禁用即可。

总结 #

• 用API动态修改窗体扩展样式，实现Checkbox对穿透状态的控制；
• 用分层窗口或消息拦截的方式，让Checkbox在穿透状态下依然可交互。

你可以根据自己的需求选择方案，方案2的精确控制更适合游戏覆盖层的场景，不会影响其他需要交互的控件。

内容的提问来源于stack exchange，提问作者Baseult Private