如何创建可以修改“当前控件”的上下文菜单？

在我的应用程序中，RichTextBox当打开某个表单时会动态创建一个。当前，单击该框会打开一个OpenFileDialog，用户可以在其中选择一个文件，然后将文件位置放入RichTextBox。

我的最终用户昨天告诉我，他想要以下内容：

• 左键单击RichTextBox应在资源管理器中打开指定的文件
• 右键单击将打开一个ContextMenuStrip，带中的选项之一为“选择文件”。

我的修订代码包含在以下要点中：

我打开文件对话框子，其处理该.Click事件的ToolStripMenuItem

Sub openFileDialog(ByVal sender As System.Windows.Forms.ToolStripMenuItem, ByVal e As System.EventArgs)
    Dim myOpenFileDialog As New OpenFileDialog()

    If Not sender.GetCurrentParent().Parent.Text = "" Then
        myOpenFileDialog.InitialDirectory = sender.GetCurrentParent().Parent.Text
    Else
        myOpenFileDialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    End If

    myOpenFileDialog.Filter = "All files (*.*)|*.*"
    myOpenFileDialog.FilterIndex = 1
    myOpenFileDialog.RestoreDirectory = True

    If myOpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        sender.GetCurrentParent().Parent.Text = myOpenFileDialog.FileName
    End If
End Sub

我的fileControlRightClicked子，用于处理RichTextBox

Sub fileControlRightClicked(ByVal sender As System.Windows.Forms.RichTextBox, ByVal e As System.Windows.Forms.MouseEventArgs)
    If e.Button <> Windows.Forms.MouseButtons.Right Then Return

    Dim cms = New ContextMenuStrip
        'cms.Parent = sender
        Dim item1 = cms.Items.Add("Select File")
        item1.Tag = 1
        AddHandler item1.Click, AddressOf openFileDialog
        cms.Show(sender, e.Location)
End Sub

除了这两段代码之外，我能想到的只有相关代码是

AddHandler .MouseUp, AddressOf fileControlRightClicked

在RichTextBox声明时使用。

如何引用RichTextBox被点击的特定实例？

显然，使用sender.GetCurrentParent().Parent不起作用，也不起作用sender.GetCurrentParent.SourceControl。（这些可以在上面的openFileDialog要点中看到）

如果我遗漏了任何相关信息或代码，或者不清楚我遇到的问题，请发表评论，我将更正/添加任何必要的信息。