How can I disable all MenuItems in a Form

[mcerk]

I'd like to disable all MenuItems (menu File, Edit, View, Help, etc..)

 

I have a function which disables all controls in a container:

'Function that Disables or Enables all controls in a container control
Public Sub EnableDisableObject(ByVal Enable As Boolean, ByVal Container As Control)
 Dim Control As Control
 For Each Control In Container.Controls
   Control.Enabled = Enable
 Next
End Sub

 

but the problem is that MenuItem is not a controll. How can I do it?

 

tx a lot

 

matej

[Rick_Fla]

Loop through the MainMenu's menuitem collection.

 

Dim obj As MenuItem

       For Each obj In Me.MainMenu1.MenuItems
           obj.Enabled = False
       Next

[SonicBoomAu]

Instead of doing all of the menu items. All you have to do is set enable to false on the top level items.

 

me.mnuFile.enabled = false

...etc

 

Hope this helps

[snarfblam]

Instead of doing all of the menu items. All you have to do is set enable to false on the top level items.

 

me.mnuFile.enabled = false

...etc

 

Hope this helps

I believe that that is exactly what the code provided does. Enumerates through all the top level menus in MainMenu1 and sets their enabled property to false.

[Rick_Fla]

Correct, each menuItem has it's own menuitem collection. The code I provided will do just the top level.

[SonicBoomAu]

My Bad.

 

I thought (my big mistake) that it loop through all the menu items not just the top level. Well you learn something new every day.