Como usar a coleção de formulários para descarregar todos os formulários filho MDI

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 97620
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Você pode usar código do Visual Basic para fechar todos os filhos MDI usando a coleção de formulários. A coleção de formulários contém referências a todos os formulários--o formulário pai MDI, formulários de filhos MDI e formulários não-MDI. Para descarregar ou fechar todos os formulários MDI, loop através da coleção formulários testando o valor da propriedade MDIChild em cada formulário. Se a propriedade MDIChild for verdadeira, descarrega o formulário.
Mais Informações

Passos para criar exemplo

  1. Inicie o Visual Basic ou no menu File, escolha New Project (ALT, F, N) se o Visual Basic já estiver sendo executado. O Form1 é criado por padrão.
  2. Altere a propriedade MDIChild do Form1 para True.
  3. No menu ' arquivo ', escolha novo formulário MDI (ALT+F + I). Isso cria o formulário pai MDI MDIForm1.
  4. No menu janela, escolha o design de menu (ALT + W + M) e crie o seguinte menu com dois itens de menu MDIForm1:
       Caption     Name         Indent   ------------------------------   File        mFile       no   New         mNew        once   Close All   mCloseAll   once						
  5. Adicione o seguinte código à seção declarações gerais de MDIForm1.
       Dim ChildCount As Integer						
  6. Adicione o seguinte código ao manipulador de eventos mNew.
       Sub mNew_Click ()      Dim newWindow As New Form1      ChildCount = ChildCount + 1      newWindow.Caption = "Child " & Str$(ChildCount)      newWindow.Show   End Sub						
  7. Adicione o seguinte código ao manipulador de eventos mCloseAll_Click.
       Sub mCloseAll_Click ()      i = 1      Do While i < Forms.Count         If forms(i).MDIChild Then            ' *** Do not increment i% since a form was unloaded            Unload forms(i)         Else            ' Form isn't an MDI child so go to the next form            i = i + 1        End If      Loop      ChildCount = 0   End Sub						
  8. No menu ' Opções ', escolha Project. Verifique MDIForm1 iniciar de formulário.
  9. A partir do menu Executar, escolha Start (ALT, R, S) para executar o programa.
  10. No menu Arquivo no MDIForm1, escolha novo. Repita isso várias vezes.
  11. No menu Arquivo no MDIForm1, escolha Fechar tudo para descarregar todos os MDI filhos.
2,00 3.00

Propriedades

ID do Artigo: 97620 - Última Revisão: 12/04/2015 09:25:46 - Revisão: 2.0

Microsoft Visual Basic 2.0 Standard Edition, Microsoft Visual Basic 3.0 Professional Edition, Microsoft Visual Basic 2.0 Professional Edition, Microsoft Visual Basic 3.0 Professional Edition

  • kbnosurvey kbarchive kbmt KB97620 KbMtpt
Comentários