自定义PictureBox控件内ToolTip事件无法触发的问题求助

ToolTip不需要必须以窗体为父，完全可以在自定义PictureBox内部创建并管理，但你的代码存在几个关键问题导致事件未触发：

核心问题分析 #

1. 空ToolTip文本阻止触发：你调用imageToolTip.SetToolTip(Me, "")时传入了空字符串，Windows Forms的ToolTip机制默认只会在文本非空时才触发Popup和Draw事件，空文本会直接跳过显示逻辑。
2. 未关联顶级窗体消息循环：创建ToolTip时未显式指定Owner属性，虽然ToolTip会自动关联到控件的父容器，但如果控件还未完全加入窗体的控件树（比如OnHandleCreated执行时控件可能还没被添加到窗体），ToolTip可能无法接收来自窗体的消息，导致事件不触发。
3. 事件绑定顺序不合理：先设置ToolTip文本再绑定事件，可能导致初始的触发逻辑错过事件订阅。

修复后的代码示例 #

Public Class ItemPreviewBox
    Inherits PictureBox
    Private imageToolTip As ToolTip
    Private _ItemType, _ItemNum As String
    Private _ColorID As Integer
    Private _Thumb As Boolean
    Private _Label As Label = New Label
    
    Protected Overrides Sub OnHandleCreated(e As EventArgs)
        MyBase.OnHandleCreated(e)
        
        ' 初始化ToolTip并指定Owner为所在窗体
        imageToolTip = New ToolTip With {
            .OwnerDraw = True,
            .Owner = Me.FindForm() ' 显式关联到顶级窗体
        }
        
        ' 先绑定事件，再设置ToolTip文本（用非空占位符，后续可动态修改）
        AddHandler imageToolTip.Popup, AddressOf HandlePopup
        AddHandler imageToolTip.Draw, AddressOf HandleDraw
        AddHandler Click, AddressOf HandleClick
        
        ' 设置非空初始文本，确保触发逻辑能执行
        imageToolTip.SetToolTip(Me, " ")
        
        SizeMode = PictureBoxSizeMode.Zoom
        Cursor = Cursors.Hand
    End Sub
    
    ' 处理控件销毁，清理ToolTip引用避免内存泄漏
    Protected Overrides Sub OnHandleDestroyed(e As EventArgs)
        MyBase.OnHandleDestroyed(e)
        If imageToolTip IsNot Nothing Then
            RemoveHandler imageToolTip.Popup, AddressOf HandlePopup
            RemoveHandler imageToolTip.Draw, AddressOf HandleDraw
            imageToolTip.Dispose()
            imageToolTip = Nothing
        End If
    End Sub
    
    Private Sub HandlePopup(sender As ToolTip, e As PopupEventArgs)
        Log("Tooltip Popped Up")
        ' 如果没有数据，取消显示
        If String.IsNullOrEmpty(_ItemType) Then 
            e.Cancel = True
            Return
        End If
        ' 设置ToolTip尺寸
        e.ToolTipSize = New Size(250, 200)
    End Sub
    
    Private Sub HandleDraw(sender As ToolTip, e As DrawToolTipEventArgs)
        If String.IsNullOrEmpty(_ItemType) Then Exit Sub
        LogVerbose("opening image tooltip")
        e.Graphics.Clear(SystemColors.Info)
        Dim imgFileName = CacheImage(_ItemType, _ItemNum, _ColorID, _Thumb) 'Returns a string
        Log($"{e.AssociatedControl.Name} - {e.AssociatedControl.Location.X},{e.AssociatedControl.Location.Y} top={e.AssociatedControl.Top} left={e.AssociatedControl.Left}")
        Using img As Image = Image.FromFile(imgFileName)
            e.Graphics.DrawImage(img, New Rectangle(0, 0, 250, 200))
        End Using
    End Sub
    
    ' 补充Click事件处理（原代码未实现，这里保留占位）
    Private Sub HandleClick(sender As Object, e As EventArgs)
        ' 你的点击逻辑
    End Sub
    
    ' 补充CacheImage方法占位（原代码未实现）
    Private Function CacheImage(itemType As String, itemNum As String, colorID As Integer, thumb As Boolean) As String
        ' 你的缓存逻辑
        Return ""
    End Function
    
    ' 补充Log和LogVerbose方法占位
    Private Sub Log(message As String)
        ' 日志逻辑
    End Sub
    Private Sub LogVerbose(message As String)
        ' 详细日志逻辑
    End Sub
End Class

额外说明 #

• 用FindForm()获取控件所在的顶级窗体，确保ToolTip能接入正确的消息循环，无论控件被添加到哪个容器都能正常工作。
• 设置非空占位符文本（比如空格），保证ToolTip的触发逻辑能启动，然后在Popup事件里根据实际数据决定是否取消显示。
• 在OnHandleDestroyed里清理ToolTip的事件绑定并释放资源，避免内存泄漏。

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