Postada em 14/02/2007 15:07 hs
Oi.
O Menu também é um tipo de controle. Então se você fizer um For Each pelos controles do seu MDIForm, verificando se o tipo do controle é Menu, você consegue pegar o Nome, Caption e outros atributos deste Controle que seria um Menu.
Se não ficou claro, seria algo mais ou menos assim:
List1.Clear
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is Menu Then List1.AddItem Ctrl.Name & vbTab & Ctrl.Caption
Next Ctrl
Neste trecho, é jogado na lista o Nome e o Caption de um menu que exista no Form. Ele pegará todos os menus e sub-menus do Form.
Até
|
