Components on form

[Wally]

With this cycle

For each ctl in Controls
.....
Next

I can see all visual components on a form but I cannot see Menus,
ContextMenus, ToolTips, Timers, ecc.

How could I write a cycle to see these components. Thanks.

W

[Cor Ligthert]

Hi Wally,

The Menus and the Tooltips are no controls in the sence of forms.control
(not derived from)

For a menu you can use by instance this
For Each mn As MenuItem In Me.MainMenu1.MenuItems
'do your stuff
Next

I hope this gives an idea?

Cor


"Wally" <va**********@cambieri.it> schreef in bericht
news:Mf***********************@news4.tin.it...

With this cycle

For each ctl in Controls
.....
Next

I can see all visual components on a form but I cannot see Menus,
ContextMenus, ToolTips, Timers, ecc.

How could I write a cycle to see these components. Thanks.

W

[Herfried K. Wagner [MVP]]

* "Wally" <va**********@cambieri.it> scripsit:

With this cycle

For each ctl in Controls
.....
Next

I can see all visual components on a form but I cannot see Menus,
ContextMenus, ToolTips, Timers, ecc.

Untested:

<URL:http://www.google.de/groups?selm=OY2eI%24%236DHA.360%40TK2MSFTNGP12.phx .gbl>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Jorge]

Hi Wally

Herfried suggestion to use System.Reflexion works
perfectly. I've been using the following procedure to
browse all menus/contextMenus of a form.

Public Sub BrowseMenus(ByVal f As Form)

Dim myForm As Type = f.GetType()

Dim fields As FieldInfo() = myForm.GetFields
(BindingFlags.Instance Or BindingFlags.NonPublic)

For Each field As FieldInfo In fields

If field.FieldType.Name = "ContextMenu" Then
Dim menu As ContextMenu = DirectCast
(field.GetValue(f), ContextMenu)
<code here>
End If

If field.FieldType.Name = "MainMenu" Then
Dim menu As MainMenu = DirectCast
(field.GetValue(f), MainMenu)
<code here>

End If

Next
End Sub

Kind Regards
Jorge

-----Original Message-----
With this cycle

For each ctl in Controls
.....
Next

I can see all visual components on a form but I cannot see Menus,ContextMenus, ToolTips, Timers, ecc.

How could I write a cycle to see these components. Thanks.
W

.

[Cor Ligthert]

Hi Wally,

To overcome my very simple answer here something more complete sample
(it stays a sample)

\\\
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
testMenu(Me.MainMenu1.MenuItems(0), _
Me.MainMenu1.MenuItems)
testMenu(Me.ContextMenu1.MenuItems(0), _
Me.ContextMenu1.MenuItems)
End Sub
Private Sub testMenu(ByVal mi As MenuItem, _
ByVal mm As Menu.MenuItemCollection)
For Each mi In mm
MessageBox.Show(mi.Text)
testMenu(mi, mi.MenuItems)
Next
End Sub
///

Cor

[Wally]

"Jorge" <an*******@discussions.microsoft.com> ha scritto nel messaggio
news:12*****************************@phx.gbl...

Hi Wally

Herfried suggestion to use System.Reflexion works
perfectly. I've been using the following procedure to
browse all menus/contextMenus of a form.

Public Sub BrowseMenus(ByVal f As Form)

Dim myForm As Type = f.GetType()

Dim fields As FieldInfo() = myForm.GetFields
(BindingFlags.Instance Or BindingFlags.NonPublic)

For Each field As FieldInfo In fields

If field.FieldType.Name = "ContextMenu" Then
Dim menu As ContextMenu = DirectCast
(field.GetValue(f), ContextMenu)
<code here>
End If

If field.FieldType.Name = "MainMenu" Then
Dim menu As MainMenu = DirectCast
(field.GetValue(f), MainMenu)
<code here>

End If

Next
End Sub

Kind Regards
Jorge

-----Original Message-----
With this cycle

For each ctl in Controls
.....
Next

I can see all visual components on a form but I cannot

see Menus,

ContextMenus, ToolTips, Timers, ecc.

How could I write a cycle to see these components.

Thanks.

W

.

Thank you Herfried and Jorge. With your suggestions my program works fine.

W

[Wally]

"Cor Ligthert" <no**********@planet.nl> ha scritto nel messaggio
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi Wally,

To overcome my very simple answer here something more complete sample
(it stays a sample)

\\\
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
testMenu(Me.MainMenu1.MenuItems(0), _
Me.MainMenu1.MenuItems)
testMenu(Me.ContextMenu1.MenuItems(0), _
Me.ContextMenu1.MenuItems)
End Sub
Private Sub testMenu(ByVal mi As MenuItem, _
ByVal mm As Menu.MenuItemCollection)
For Each mi In mm
MessageBox.Show(mi.Text)
testMenu(mi, mi.MenuItems)
Next
End Sub
///

Cor

Thanks Core. Herfried and Jorge already answered to my question.

W