none
Fechar varios forms deixando apenas um aberto RRS feed

  • Pergunta

  • Boas pessoal,

    Estou a fazer uma aplicação e eu pretendia ao clicar num botao fechar todos os forms e deixar apenas o form principal aberto? Eu fiz um codigo que funciona se eu meter  apalicacao a correr directamente do ecra principal, mas se eu meter aplicação a correr directamente do login ele fecha me os forms todos e nao me deixa aberto o principal. Podem ajudar?

    [code=vb]

    Elimina:
            Try
                For Each frm As Form In My.Application.OpenForms

                    If Not frm.GetType() = GetType(Projeto) Then
                        frm.Close()
                    End If
                Next
            Catch ex As Exception
                GoTo Elimina
            End Try

    [/code]

    sábado, 17 de maio de 2014 22:39

Todas as Respostas

  • Mas qual form que vc deseja nunca fechar é o form Principal ?
    • Sugerido como Resposta Giovani Cr segunda-feira, 19 de maio de 2014 19:06
    domingo, 18 de maio de 2014 21:22
  • Desejo fechar todos e deixar so o principal aberto

    segunda-feira, 19 de maio de 2014 21:42
  • Desejo fechar todos e deixar so o principal aberto

    Veja se isso lhe ajuda :

    'Codigo feito no form Principal
            For index = Application.OpenForms.Count - 1 To 0 Step -1
    
                'Faz a verificacao se o nome do form e diferente do form principal
                If Not Application.OpenForms(index).Name = Me.Name Then
    
                    Application.OpenForms(index).Close()
    
                End If
    
            Next

    terça-feira, 20 de maio de 2014 01:06
  • Onde é que eu mete esta parte? 
    'Codigo feito no form Principal
            For index = Application.OpenForms.Count - 1 To 0 Step -1
    terça-feira, 20 de maio de 2014 19:35
  • Onde é que eu mete esta parte? 
    'Codigo feito no form Principal
            For index = Application.OpenForms.Count - 1 To 0 Step -1
    Esse código deve ficar onde deseja fechar todos os Forms ! Ou seja onde você vai querer fechar os forms em um button ? 
    terça-feira, 20 de maio de 2014 20:08
  • Sim ao clicar num botao fecha todos os forms deixando o principal aberto so


    • Editado JotaMax quarta-feira, 21 de maio de 2014 23:24
    quarta-feira, 21 de maio de 2014 23:24
  • bom dia jotamax

    esse  codigo que passei pra vc so precisa subistituir o projeto por me

    Elimina:
            Try
                For Each frm As Form In My.Application.OpenForms
    
                    If Not frm.GetType() = GetType(me) Then
                        frm.Close()
                    End If
                Next
            Catch ex As Exception
                GoTo Elimina
            End Try

    pois o na linha

    If Not frm.GetType() = GetType(me) Then

    o form que vc quer que não feche seja o atual é so colocar o me no "Gettype(me)" se caso queira um form especifico e so colocar o nome do form


    Jonnathan Venancio

    jonnathanvb@outlook.com

    Whatsapp = +5511985149715


    • Editado Jonnathanvb sexta-feira, 23 de maio de 2014 13:59
    sexta-feira, 23 de maio de 2014 13:57