LOAD

JOHNHEY 30/04/2012 13:52:50
#401057

Boa tarde pessoa, tenho um sistema que possui:

MDIPrincipal
FrmRegisto (que utilizo como children)

o form FRMRegisto utilizo para todos os tipos de cadastro evitando assim criar um form para cada.

Quando clico no menu Gestão - Cadastro de Ruas, tenho uma variavel que recebe a palavra Rua, e executo todas as linhas em base desta palavra, quando clico no menu Gestão - Cadastro de Pais, o valor que é jogado na variavel é PAIS, e executo todas as linhas referente a pais, e assim por diante.

Só que tenho um problema.

Para abrir o form utilizo:

Try
[ô]Verifica se o form já esta aberto e traz para frente
For Each child In Me.MdiChildren
If TypeOf child Is Registos Then
If child.Text = [Ô]Registo de Paises[Ô] Then
child.WindowState = FormWindowState.Normal
child.Focus()
tabela = [Ô]TBPais[Ô]
Exit Sub
End If
End If
Next
[ô]caso não esteja aberto ele abre
Dim frm As New Registos
frm.MdiParent = Me
variaveldcf = [Ô]Registo de Paises[Ô] [ô] atribui um valor a variavel
frm.Show()
tabela = [Ô]TBPais[Ô]
[ô]Se der erro exibe o erro
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try

Neste form tenho um botão de pesquisa, que abre outro form como filho também.

linha do botão:

Try
Select Case variaveldcf
Case [Ô]Registo de Paises[Ô]
Try
[ô]Verifica se o form já esta aberto e traz para frente
For Each child In Principal.MdiChildren
If TypeOf child Is Pesquisa Then
child.WindowState = FormWindowState.Normal
child.Focus()
Exit Sub
End If
Next
[ô]caso não esteja aberto ele abre
Dim frm As New Pesquisa
frm.MdiParent = Principal
frm.Top = [Ô]232[Ô]
frm.Left = [Ô]970[Ô]
frm.Text = [Ô]Pesquisar...[Ô]
frm.Show()
[ô]Se der erro exibe o erro
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
Case [Ô]Registo de Ruas[Ô]

Case [Ô]Registo de Saidas[Ô]

Case [Ô]Registo de Estado civil[Ô]

End Select
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
End Sub

O Erro é, quando abro pela primeira vez, o sistema passa pelo evento LOAD do primeiro form filho, só que clicar no botão procurar e abrir o form pesquisa e clicar no botão fechar ou mesmo no X do segundo form filho, já não passa pelo evento LOAD do primeiro form filho.

no botão fechar do segundo form filho já utilizei:
me.hide
e
me.close