http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html 「どのコントロールを右クリックしてコンテキストメニューを表示したかを調べる」に投稿されたコメントの一覧 ja https://dobon.net/banner/dbs1.gif http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html 88 31 http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#10
Private Function GetMenuStripSourceControl(vMenuItem As ToolStripMenuItem) As Control
Dim ans As Control = Nothing
Try
Dim obj As Object = vMenuItem.GetCurrentParent()
Select Case obj.GetType
Case GetType(ContextMenuStrip)
ans = CType(obj, ContextMenuStrip).SourceControl
Case GetType(ToolStripDropDownMenu)
ans = GetMenuStripSourceControl(CType(obj, ToolStripDropDownMenu).OwnerItem)
End Select
Catch ex As Exception
Throw (ex)
End Try
Return ans
End Function

Private Sub SomeLayerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SomeLayerToolStripMenuItem.Click
Dim tmpMenuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)

Dim sourceCtl As Control = GetMenuStripSourceControl(tmpMenuItem)

End Sub]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#9 http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#8 > ContextMenuStrip.SourceControlがNothingになるようです。

ご報告ありがとうございます。記事に追記させていただきます。]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#7 nullになります]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#6 ContextMenuStrip.SourceControlがNothingになるようです。]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#5 http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#4 よくわからん]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#3 何故かnullが返ってきます。]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#2 RichTextBoxだと使えませんでした。]]> http://dobon.net/cgi-bin/pc/pc.php?mode=v&id=control%2Fcmsourcecontrol.html#1 タイトルがわかりやすく、かつ内容も役立つものだった。]]>