[RESOLVIDO] Definições entre Forms

[almamater]

Olá.

Tenho 2 Forms e qdo estou no 1º para chamar o 2 faço isto:

 Dim FrmSearch As New FrmPesquisa
        FrmSearch.Show()
       Me.WindowState = FormWindowState.Minimized

Até aqui tudo bem.. o problema é quando fecho o Form2 e quero alterar o Windowstate do Form1 para normal e não dá..:

 Dim FrmForm1 As New Frm1
        FrmForm1 .WindowState = FormWindowState.Normal
        Me.Close()

se fizer  FrmForm1.show ele abre mais um formulário igual e fico com 2 abertos...

Tenho forma de fazer isto? é pq o Form1 tem dados já escritos pelo utilizador e queria manter/mostrar os mesmos qdo se fecha o Form2.

Será que tenho de recorrer a um Timer e aos processos do windows para ver qdo se fecha a janela do form2?

Obrigado

[jpaulino]

Porque não abres a nova janela como Dialog ?

Dim FrmSearch As New FrmPesquisa
FrmSearch.ShowDialog()

[almamater]

Porque não abres a nova janela como Dialog ?

Dim FrmSearch As New FrmPesquisa
FrmSearch.ShowDialog()

Sim tb já fiz isso mas ele limpa as combobox e restantes qdo faço isso... e o meu objectivo é recuperar o Form1 mantendo tudo como estava!

[jpaulino]

Limpa ?!? Tens de explicar isso melhor e mostrares como tentaste.

[almamater]

Humm ok.. se puderes vê isto então: Ficheiro

Secalhar estou a fazer algo de errado...  mas selecciona uma opção na combobox e escreve algo no textbox e carrega no botão.. depois qdo volta a abrir dessa forma que dizes (showdialog) os campos estão todos limpos..

Thanks

[almamater]

Porque não abres a nova janela como Dialog ?

Dim FrmSearch As New FrmPesquisa
FrmSearch.ShowDialog()

Não pode ser dessa maneira pq assim estou a criar um novo Form (Dim FrmSearch As New FrmPesquisa) eu de alguma forma tenho de ir buscar as propriedades do form que já está criado e minimizado.. apenas para alterar o seu WindowsState

[jpaulino]

Não pode ser dessa maneira pq assim estou a criar um novo Form (Dim FrmSearch As New FrmPesquisa) eu de alguma forma tenho de ir buscar as propriedades do form que já está criado e minimizado.. apenas para alterar o seu WindowsState

Desculpa não consigo abrir o ficheiro onde estou ... podes enviar-me por email ? (vê o email no meu blog)

[jpaulino]

Ok, o problema é que tu estás a criar uma nova instância do Form1, e não a alterar as propriedades (neste caso WindowState ), do que já está aberto.

Crias o novo Form:

        Dim Form2 As New Form2
        Me.WindowState = FormWindowState.Minimized
        Form2.Show()

Depois podes utiliza o My Namespace, no Form2, para alterar a propriedade WindowState para normal :

        Dim form1 As Form1 = My.Forms.Form1
        form1.WindowState = FormWindowState.Normal
        Me.Close()

Vê lá se funciona agora 😉

[almamater]

Ok, o problema é que tu estás a criar uma nova instância do Form1, e não a alterar as propriedades (neste caso WindowState ), do que já está aberto.

Crias o novo Form:

        Dim Form2 As New Form2
        Me.WindowState = FormWindowState.Minimized
        Form2.Show()

Depois podes utiliza o My Namespace, no Form2, para alterar a propriedade WindowState para normal :

        Dim form1 As Form1 = My.Forms.Form1
        form1.WindowState = FormWindowState.Normal
        Me.Close()

Vê lá se funciona agora 😉

😛 Por acaso ainda não.. estou a usar o VB2008 enão me aceita o My.Forms..

Descobri esta página: http://www.devcity.net/Articles/94/1/.aspx e no tópico  "Method 7: Flip-Flop Form1 and Form2" acho que devia de resolver o meu problema mas tb n deu..

[vasco16]

Quando fazes para abrir o segundo form fazes:

        Dim Form2 As New Form2

        Me.hide()

        Form2.Show()

Quando sais do form2, fazes:

        Dim form1 As Form1 = My.Forms.Form1

        form1.show()

        Me.Close()

Será que ajuda ? :s

[almamater]

Quando fazes para abrir o segundo form fazes:

        Dim Form2 As New Form2

        Me.hide()

        Form2.Show()

Quando sais do form2, fazes:

        Dim form1 As Form1 = My.Forms.Form1

        form1.show()

        Me.Close()

Será que ajuda ? :s

Nops:

http://img138.imageshack.us/img138/2863/err.th.png

[vasco16]

Nops:

http://img138.imageshack.us/img138/2863/err.th.png

Tira essa linha de código, só tens o form 1 escondido, nao o precisas de declarar..

[jpaulino]

Mostra lá o código todo. Eu alterei o exemplo que mostraste e está a funcionar.

[almamater]

Ok obrigado pelas dicas... ainda estou com o erro "Forms is not a member of 'My' no projecto onde quero implementar isso...

na realidade no exemplo que meti aqui funciona 5*.. vou tentar decifrar esta! Num funciona noutro nao  ?

[almamater]

Resolvido 😉

Obrigado!

A questão estava associada ao Startup do projecto.. tinha escolhido para inciar num módulo e estava como "Windows Service" e não "Windows Forms Application"  :nono1:

[Ivo Pereira]

Põe o tópico como resolvido, acrescenta no início do título do mesmo 😄