COMO DESCARREGAR FORMS QUE ESTAO ABERTOS?

TAMANINI 16/04/2007 10:03:47
#212053
Alguém teria uma idéia de como descarregar os forms que estão abertos, ficando aberto apenas o form principal?
A idéia que eu tive for declarar uma variável como public e armazenar sempre o nome do form que foi carregado no form_load() e assim criei um método que verifica o form que está aberto atualmente e vou descarregando, tipo:
Select Case FrmMenu
Case "frmDmc2051"
     Unload frmDmc2051
Case "frmDmcConfig"
     Unload frmDmcConfig
     Unload frmDmc2051
Case "frmProgramas"
     Unload frmProgramas
Case "frmExpPrgOpt"
     Unload frmExpPrgOpt
     Unload frmProgramas
...
USUARIO.EXCLUIDOS 16/04/2007 10:08:58
#212054 Resposta escolhida
Public Sub UnloadAllForms()
Dim f As Form
For Each f In VB.Forms
If f.Name <> "Nome do seu form principal" Then _
Unload f: Set f = Nothing
Next
End Sub

'Espero ter te ajudado
TAMANINI 16/04/2007 10:22:46
#212060
OK, eu já tentei algo semelhante e não funcionou corretamente, mas vou tentar aqui.
A for que eu fiz foi:
Private Sub DescarregaForms()
Dim intCont As Integer

On Error Resume Next

    For intCont = Forms.Count - 1 To 1 Step -1
        Unload Forms(intCont)
        'If Not Force Then
        If Forms.Count > intCont Then
            Exit For
        End If
        'End If
    Next intCont

    frmMainCli.Show
    frmMainCli.Enabled = True
    Screen.MousePointer = vbDefault
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar