TOOLSTRIPMENUITEM MENUSTRIP VB .NET 2010
Boa noite pessoal.
Estou com uma dúvida relacionado ao menustrip e toolstripmenu, seguinte:
Inseri o componente, e adicionei os menus e sub-menus ( que pelo entendi são os toolstripmenu). Bom eu gostaria de percorrer todos via código. De que maneira posso fazer isto? já tentei de diversas maneiras e não estou conseguindo.. pesquisei e não encontrei, se alguém tiver alguma [ô]luz[ô] ....
Poderia passar um exemplo do tipo, fazer um for.. e aparecer uma mensagem com o nome do menu.. já ficarei eternamente grato! rs
Abraços :)
Estou com uma dúvida relacionado ao menustrip e toolstripmenu, seguinte:
Inseri o componente, e adicionei os menus e sub-menus ( que pelo entendi são os toolstripmenu). Bom eu gostaria de percorrer todos via código. De que maneira posso fazer isto? já tentei de diversas maneiras e não estou conseguindo.. pesquisei e não encontrei, se alguém tiver alguma [ô]luz[ô] ....
Poderia passar um exemplo do tipo, fazer um for.. e aparecer uma mensagem com o nome do menu.. já ficarei eternamente grato! rs
Abraços :)
use o mainmenu é muto melhor fica com aparencia igual do windows
vá na toolbox e clica com o botao direito do mouse na aba all windows forms em choose items
depois na aba .net framework components você irá achar o componente main menu
e sobre sua pergunta vc quer que quando clicar num form e ele estiver aberto vc ñ quer q abra o mesmo form 2 vezes e isso?
vá na toolbox e clica com o botao direito do mouse na aba all windows forms em choose items
depois na aba .net framework components você irá achar o componente main menu
e sobre sua pergunta vc quer que quando clicar num form e ele estiver aberto vc ñ quer q abra o mesmo form 2 vezes e isso?
se for isso está aq
Public Sub OpenForm(ByVal frm As Form)
Dim encontro As Boolean = False
For Each filho As Form In Me.MdiChildren
If filho.Name = frm.Name Then
filho.Activate()
encontro = True
MsgBox([Ô]O formulário já esta sendo exibido ![Ô], MsgBoxStyle.Exclamation)
End If
Next
If Not encontro Then
frm.MdiParent = Me
frm.StartPosition = FormStartPosition.CenterScreen
frm.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
frm.Show()
End If
End Sub
e para chamar o formulario
Me.OpenForm(My.Forms.seuformulario)
Public Sub OpenForm(ByVal frm As Form)
Dim encontro As Boolean = False
For Each filho As Form In Me.MdiChildren
If filho.Name = frm.Name Then
filho.Activate()
encontro = True
MsgBox([Ô]O formulário já esta sendo exibido ![Ô], MsgBoxStyle.Exclamation)
End If
Next
If Not encontro Then
frm.MdiParent = Me
frm.StartPosition = FormStartPosition.CenterScreen
frm.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
frm.Show()
End If
End Sub
e para chamar o formulario
Me.OpenForm(My.Forms.seuformulario)
Fala Fellipe, tudo bem?
Na verdade não, faço o controle de acesso do sistema em cima do nome(caption) do menu, certo?
Então eu preciso fazer um for em todos os menus do form principal verificando se é ou não permitido.
Resumindo: o que eu preciso é fazer um for nos menus do form (mdi) e verificar o name!
Como poderia fazer?
Grato!
Na verdade não, faço o controle de acesso do sistema em cima do nome(caption) do menu, certo?
Então eu preciso fazer um for em todos os menus do form principal verificando se é ou não permitido.
Resumindo: o que eu preciso é fazer um for nos menus do form (mdi) e verificar o name!
Como poderia fazer?
Grato!
http://social.msdn.microsoft.com/Forums/pt-BR/504/thread/9a330be0-7414-4928-b65a-5e4adb32fa23/
vê se ajuda
vê se ajuda
Citação::
http://social.msdn.microsoft.com/Forums/pt-BR/504/thread/9a330be0-7414-4928-b65a-5e4adb32fa23/
vê se ajuda
Exatamente isto! Muito obrigado pela ajuda!
Abraços
Tópico encerrado , respostas não são mais permitidas