ATIVAR MDICHILD ABERTO
Boa noite,
estou iniciando o trabalho com MDI no VB.Net, como faço para ativar um mdichild que já está aberto.
Exemplo.
Abro 4 mdichild e adiciono 4 tabpage de forma ao pressionar um dessas tabpage ele ativa o mdi referente.
Estou abrindo desta forma
Dim frm As New frmProgramacao
frm.MdiParent = Me
frm.Show()
tabMenu.TabPages.Add(frm.Text )
Atenciosamente
Jadson Gois
estou iniciando o trabalho com MDI no VB.Net, como faço para ativar um mdichild que já está aberto.
Exemplo.
Abro 4 mdichild e adiciono 4 tabpage de forma ao pressionar um dessas tabpage ele ativa o mdi referente.
Estou abrindo desta forma
Dim frm As New frmProgramacao
frm.MdiParent = Me
frm.Show()
tabMenu.TabPages.Add(frm.Text )
Atenciosamente
Jadson Gois
[ô]vasculha por todos forms filhos
For Each ChildForm As Form In MdIParent1.MdiChildren
[ô]aqui dentro voce faz uma verificacao comparando o nome da tabpag com o do form
if tabpage. name = ChildForm.Name then
ChildForm.Show()
exit for
end if
next
Fiz aqui de cabeça só para te dar uma ideia, mas agora eu acho que vai ficar mais facil pra voce.
vlw
Muito obrigado, me ajudou muito, ficou só uma pequena alteração segue abaixo para conhecimento:
[ô]vasculha por todos forms filhos
For Each ChildForm As Form In MdIParent1.MdiChildren
[ô]aqui dentro voce faz uma verificacao comparando o nome da tabpag com o do form
if tabpage. name = ChildForm.Name then
ChildForm.BringToFront()
exit for
end if
next
[ô]vasculha por todos forms filhos
For Each ChildForm As Form In MdIParent1.MdiChildren
[ô]aqui dentro voce faz uma verificacao comparando o nome da tabpag com o do form
if tabpage. name = ChildForm.Name then
ChildForm.BringToFront()
exit for
end if
next
Tópico encerrado , respostas não são mais permitidas