|
|
|
|
|
|
|
|
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!
|
|
|
|
|
