VB.NET如何实现类似Facebook群照标记的透明不可见触发控件？

我之前也做过类似的人像标记功能，针对你遇到的Button和PictureBox的问题，给你几个实用的解决方案：

方案一：自定义完全透明的标记控件 #

Button自带的样式逻辑（比如悬停变不透明）很难彻底绕过，PictureBox默认的鼠标事件响应也有局限，最稳妥的方式是自己写一个极简的自定义控件，继承Control类，完全控制它的透明度和事件：

Public Class TransparentMarker
    Inherits Control

    ' 重写绘制逻辑，不渲染任何背景，保持透明
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        ' 如果你需要在悬停时给标记加个边框，也可以在这里用e.Graphics绘制
        ' e.Graphics.DrawRectangle(Pens.Blue, Me.ClientRectangle)
    End Sub

    ' 处理鼠标悬停进入事件
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
        MyBase.OnMouseEnter(e)
        ' 在这里触发显示对应名称标签的逻辑，比如：
        ' nameLabel.Text = GetMarkerName(Me)
        ' nameLabel.Visible = True
    End Sub

    ' 处理鼠标离开事件
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        MyBase.OnMouseLeave(e)
        ' 隐藏名称标签
        ' nameLabel.Visible = False
    End Sub

    ' 设置控件为透明样式，让底层内容穿透显示
    Protected Overrides ReadOnly Property CreateParams As CreateParams
        Get
            Dim cp = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20 ' 启用WS_EX_TRANSPARENT扩展样式
            Return cp
        End Get
    End Property
End Class

这个控件完全没有多余的样式，既保持透明，又能正常响应鼠标悬停事件，你可以直接在窗体设计器里拖用，或者代码创建后加到照片容器上。

方案二：改造Label控件实现透明标记 #

如果不想自定义控件，Label是个现成的选择——它支持透明背景，且默认就能响应鼠标事件：

1. 创建Label控件，设置以下属性：

   • BackColor = Color.Transparent
   • BorderStyle = BorderStyle.None
   • Text = ""
   • 调整Size和Location到需要标记的人像区域

2. 绑定鼠标事件：

Private Sub MarkerLabel_MouseEnter(sender As Object, e As EventArgs)
    Dim targetLabel = DirectCast(sender, Label)
    ' 根据标记的Tag或者其他关联字段获取名称
    nameLabel.Text = targetLabel.Tag.ToString()
    nameLabel.Visible = True
End Sub

Private Sub MarkerLabel_MouseLeave(sender As Object, e As EventArgs)
    nameLabel.Visible = False
End Sub

注意：要把Label的父控件设置为承载照片的容器（比如PictureBox），这样透明背景才能正确显示照片内容，而不是窗体的背景。

方案三：无控件纯逻辑实现（推荐） #

如果不需要可视化的标记控件（比如不需要在设计时调整标记位置），直接通过照片容器的鼠标事件来判断，完全不需要额外控件，更轻量高效：

' 存储所有标记区域和对应名称的集合
Private markerData As New List(Of (Region As Rectangle, Name As String))()

' 初始化标记数据
Private Sub InitializeMarkers()
    ' 添加人像区域和对应名称，示例坐标根据实际照片调整
    markerData.Add((New Rectangle(80, 60, 70, 90), "张三"))
    markerData.Add((New Rectangle(200, 75, 65, 85), "李四"))
End Sub

' 照片容器的MouseMove事件
Private Sub PhotoBox_MouseMove(sender As Object, e As MouseEventArgs)
    Dim hoveredName As String = Nothing
    ' 遍历所有标记区域，判断鼠标是否在其中
    For Each marker In markerData
        If marker.Region.Contains(e.Location) Then
            hoveredName = marker.Name
            Exit For
        End If
    Next

    If hoveredName IsNot Nothing Then
        ' 显示名称标签，位置可以设置在鼠标附近
        nameLabel.Text = hoveredName
        nameLabel.Location = New Point(e.X + 15, e.Y + 15)
        nameLabel.Visible = True
    Else
        nameLabel.Visible = False
    End If
End Sub

' 鼠标离开照片容器时隐藏标签
Private Sub PhotoBox_MouseLeave(sender As Object, e As EventArgs)
    nameLabel.Visible = False
End Sub

这种方式没有控件样式的困扰，性能也更好，适合标记数量较多的场景，后期修改标记位置也只需要调整数据集合即可。

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