USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Fechar todos os forms abertos (simples)
Postada em 16/3/2007 por LCRamos            
Public Function FECHAFORM()
Dim iFORM As Integer
iFORM = 0
For iFORM = (Forms.Count - 1) To 0 Step -1
  Unload Forms(iFORM)
Next iFORM
End Function

Chame antes do End, em qualquer Formulário, de preferencia no MDI.

FECHAFORM

vlu//
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página