Quiero algo como:
for each menuItems in Menus
menuItems.Enabled = false
Next
26/03/2007, 13:20
| ||||
| ||||
| Recorrer todos los ToolStripMenuItem dentro de un MenuStrip Tengo un menú creado con varias opciones. ¿Cómo puedo recorrer todos las opciones del menú de tal forma que pueda poner todos los menú Enabled = false? Quiero algo como: for each menuItems in Menus menuItems.Enabled = false Next
__________________ .::RsOfT::. --El que se aferra a lo conocido, nunca conocerá lo desconocido-- --Es intentando lo imposible como se realiza lo posible-- --Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance-- |
|
14/04/2010, 08:40
| |||
| |||
| Respuesta: Recorrer todos los ToolStripMenuItem dentro de un MenuStrip Hola.. Yo hice lo siguiente, solo adaptalo a lo que necesitas, con esto recorrer menu, submenu, subsubmenu,subsubsubmenu, etc.. For Each mnuitOpcion As ToolStripMenuItem In Me.MenuStrip1.Items If mnuitOpcion.Name = Dt_NmbreMenu Then CType(mnuitOpcion, ToolStripMenuItem).Visible = True End If If mnuitOpcion.DropDownItems.Count > 0 Then Me.CambiarOpcionesMenu(mnuitOpcion.DropDownItems, Dt_NmbreMenu) End If Next Private Sub CambiarOpcionesMenu(ByVal colOpcionesMenu As ToolStripItemCollection, ByVal nombre As String) For Each itmOpcion As ToolStripItem In colOpcionesMenu If itmOpcion.GetType() Is GetType(ToolStripMenuItem) Then If itmOpcion.Name = nombre Then CType(itmOpcion, ToolStripMenuItem).Visible = True End If If DirectCast(itmOpcion, ToolStripMenuItem).DropDownItems.Count > 0 Then Me.CambiarOpcionesMenu(DirectCast(itmOpcion, ToolStripMenuItem).DropDownItems, nombre) End If End If Next End Sub |
