我是否需要显式处置自定义的上下文菜单条

Question

我有一个类 clsContextPopUpMenu 来创建一个 ContextMenuStrip，其中包含一些可以在不同控件中使用的基本功能（例如复制）。

    Friend Sub New(ByRef objControl As System.Windows.Forms.Control)

    m_objControlContainer = objControl
    m_mnuCopyCell2Clipboard = New ToolStripMenuItem("Copy Cell")
    m_PopupMenu = New ContextMenuStrip
    m_PopupMenu.Items.AddRange(New ToolStripMenuItem() {m_mnuCopyCell2Clipboard})
End Sub

例如，我可以在 DataGridView DGVTable: 中使用它

 Private m_objPopUpMenu As clsContextPopUpMenu
 m_objPopUpMenu = New clsContextPopUpMenu(CType(DGVTable, System.Windows.Forms.Control))

，但是请注意，m_objPopUpMenu 与具有上述 datagridview 的表单不相关。根据MSDN中的ContextMenuStrip构造函数解释，我认为m_objPopUpMenu 无法自动处理，因为它不是表单的子项。

我的问题是，我是否必须在设计器中显式处置 m_objPopUpMenu：

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
            **m_objPopUpMenu.Dispose()**
        End If
    Finally
        MyBase.Dispose(disposing)
    End Try
End Sub

更广泛的问题是我何时应该自己处置对象/资源？当然，gc收集器并不是释放所有可用内存的魔术师。我是否可以始终如上所示在 Dispose Sub 中处置对象/资源？

Answer 1

由于更好​​地理解问题而修改了答案：

因为 ContextMenuStrip 实现了 IDisposable，所以您需要将其添加到表单管理的组件列表中，以便正确且自动地处理它，或者管理处理正如您最初问题中所建议的那样。

这是您的类的修订版，它将支持自动处理，就像您将 ContextMenuStrip 直接添加到表单时 Windows 处理它一样：

Friend Sub New(ByVal objControl As System.Windows.Forms.Control, ByVal components As System.ComponentModel.IContainer)

    m_objControlContainer = objControl
    m_mnuCopyCell2Clipboard = New ToolStripMenuItem("Copy Cell")
    m_PopupMenu = New ContextMenuStrip(components)
    m_PopupMenu.Items.AddRange(New ToolStripMenuItem() {m_mnuCopyCell2Clipboard})
End Sub

要从表单或用户控件中调用这个新的构造函数：

 Private m_objPopUpMenu As clsContextPopUpMenu
 m_objPopUpMenu = New clsContextPopUpMenu(DGVTable, Me.components)

请注意，我还从构造函数中删除了 ByRef，因为它不是必需的，这也消除了在将控件传递给构造函数之前对其进行强制转换的需要。

附加说明：过去（“过去”）组件不一定出现在每个表单或用户控件上。我相信这已经改变/已修复，但如果您发现自己没有，很容易手动添加：

Private components As System.ComponentModel.IContainer

在您的构造函数中：

Me.components = New System.ComponentModel.Container()

在您的 Dispose 方法中（我已经添加了完整的 dispose 方法，以防它尚不存在；如果它是，只是添加了组件相关的代码）：

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
        If Not (components Is Nothing) Then
            components.Dispose()
        End If
    End If
    MyBase.Dispose(disposing)
End Sub