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.