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

 

  Dicas

  Visual Basic    (Menu/Toobar/Coolbar)

Título da Dica:  Criando um AddIn no VB para fechar todas as janelas de uma vez
Postada em 9/10/2004 por Vaughyman            
Voce pode criar um Add-In no VB para fechar todas as janelas abertas na area de desenvolvimento do VB com um simples Clique. Crie um novo projeto do tipo AddInpen. cole este código no evento load do frmAddIn. Pressione F2 para abrir o Object Browser, selecione a "Connect class", clique nela com o botao direito do mouse, e edite o campo "Description" para mudar o nome e descrição do seu AddIn.  Tambem, faça uma busca no seu projeto inteiro em busca de todas as ocorrencias de "My AddIn" e faça a mudança com qualquer outro nome de sua preferencia.  Mude as propriedades do projeto como vc decidir. compile a DLL e a partir de entao vc pode adiciona-la  pelo AddIn Manager do VBSelecionando Load.


'Eis o código

Dim w As Window

For Each w In VBInstance.Windows
    If (w.Type = vbext_wt_CodeWindow Or _
        w.Type = vbext_wt_Designer) And _
        w.Visible Then
        w.Close
    End If
Next

'Após isso vc obterá um item no Menu "Windows" Com seu Addin que fará fechar
'todas as janelas de uma só vez sem a necessidade de fechar uma a uma.
'Bom para quem usa muitas janelas abertas ao mesmo tempo

Fuiiii!
 


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