Recorrer menú

29/10/2005 - 13:50 por Hugo Gsell | Informe spam
Julio Casal me paso lo siguiente (ver abajo)
Esto me permite hacerlo pero me da el error de que no reconoce
ToolStripMenuItem.
Tendré que ver la versión de .net?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click
For Each item As ToolStripMenuItem In MenuStrip1.Items
RecorrerItemMenu(item)
Next
End Sub

Private Sub RecorrerItemMenu(ByVal itemPadre As ToolStripMenuItem)
For Each item As ToolStripMenuItem In itemPadre.DropDownItems
RecorrerItemMenu(item)
Next
End Sub

Preguntas similare

Leer las respuestas

#1 RokeFeler
31/10/2005 - 20:14 | Informe spam
La Clase que mencionas es válida solo para el nuevo FrameWork 2.0 de
VS2005.
para mayor informacion ve el sgte link:

http://msdn2.microsoft.com/en-us/li...ipmenuitem


Ahora si deseas utilizar codigo de VS2003.. entonces quedaria así:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim item As MenuItem
For Each item In Me.Menu1.MenuItems
Debug.WriteLine("PAdre: " & item.Text)
RecorrerItemMenu(item)
Next
End Sub

Private Sub RecorrerItemMenu(ByVal itemPadre As MenuItem)
Dim item As MenuItem
For Each item In itemPadre.MenuItems
Debug.WriteLine("Hijo[" & item.Text & "] de [" &
CType(item.Parent, MenuItem).Text) & "]"
RecorrerItemMenu(item)
Next
End Sub


Saludos

RokeFeler
Respuesta Responder a este mensaje
#2 Hugo Gsell
06/11/2005 - 12:42 | Informe spam
GRACIAS!!!

Hugo A. Gsell
Sgo del Estero
Argentina

"RokeFeler" escribió en el mensaje
news:
La Clase que mencionas es válida solo para el nuevo FrameWork 2.0 de
VS2005.
para mayor informacion ve el sgte link:

http://msdn2.microsoft.com/en-us/li...ipmenuitem


Ahora si deseas utilizar codigo de VS2003.. entonces quedaria así:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim item As MenuItem
For Each item In Me.Menu1.MenuItems
Debug.WriteLine("PAdre: " & item.Text)
RecorrerItemMenu(item)
Next
End Sub

Private Sub RecorrerItemMenu(ByVal itemPadre As MenuItem)
Dim item As MenuItem
For Each item In itemPadre.MenuItems
Debug.WriteLine("Hijo[" & item.Text & "] de [" &
CType(item.Parent, MenuItem).Text) & "]"
RecorrerItemMenu(item)
Next
End Sub


Saludos

RokeFeler
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida