VB.NET ContextMenuStrip not found on form when using "for each control"

Question

I need to do something with a ContextMenuStrip if it exists on a form.

Therefore I tried

    For Each c As Control In uForm.Controls
        If TypeOf c Is ContextMenuStrip Then

            Dim n As ContextMenuStrip
            n = DirectCast(c, ContextMenuStrip)

            For Each c2 As ToolStripMenuItem In n.Items
                MsgBox(c2.Text)
            Next
        End If
    Next

However, the ContextMenuStrip is not "there" when I iterate over the controls. For example, when I put a button on a form, then this button is found using the above iteration. But the ContextMenuStrip isn't.

Thank you for the help!

You should have to iterate thru **Components** collection as ContextMenuStrip is added to Components. — Krishnraj Rana, Feb 11 '14 at 12:13

Sathish · Accepted Answer · 2014-02-11T12:59:09.030

1

Try Like This

For Each c As Control In uForm.components.Components

        If TypeOf c Is ContextMenuStrip Then

            Dim n As ContextMenuStrip
            n = DirectCast(c, ContextMenuStrip)

            For Each c2 As ToolStripMenuItem In n.Items
                MsgBox(c2.Text)
            Next
        End If

    Next

I tested Like this : This is you want?

   For Each c As Control In Me.components.Components

            If TypeOf c Is ContextMenuStrip Then
                MsgBox("sadfsadfsd")
            End If

        Next

edited Feb 11 '14 at 12:59

answered Feb 11 '14 at 12:20

Sathish

4,419
4
30
59

The IDE tells me "components" is not a member of "System.Windows.Form.Forms" – tmighty Feb 11 '14 at 12:35
@tmighty did you find the controls in same form or other forms control ? – Sathish Feb 11 '14 at 12:39
No. I have googled around, and I found the same problem. There does not seem to be a simple solution. – tmighty Feb 11 '14 at 12:50

VB.NET ContextMenuStrip not found on form when using "for each control"

1 Answers1