Trucos y tretas
 
Crear un Add-In para cerrar todas las ventanas

Regresar al menú "Trucos"
Principal


Autor: Rick Lalliss
Traductor: Daniel Quintero Rojas
Fecha: febrero del 2000
Fuente: Visual Basic Programmer's Journal (http://www.vbpj.com)
Descripción: Crear un Add-In para cerrar todas las ventanas de código o diseño que esten abiertas dentro del IDE de Visual Basic

Generalmente cuando se hace una búsqueda o un reemplazo dentro de Visual Basic, se suelen abrir varias ventanas. En un proyecto grande, suele ser algo tedioso cerrar ventana por ventana. Aquí hay un simple y rápido Add-In que puedes crear para que cierre todas las ventanas por tí.

Empieza un proyecto nuevo del tipo Add-In y pega este código en la forma frmAddIn que se creó:

Private Sub Form_Load()
Dim w As Window

   For Each w In VBInstance.Windows
      ' Cerrar ventanas de código o de diseño
      ' que estén visibles
      If (w.Type = vbext_wt_CodeWindow Or _
          w.Type = vbext_wt_Designer) And w.Visible Then
          w.Close
      End If
   Next w
   Unload Me
   
End Sub

Haz doble click en la clase Connect para desplegar sus propiedades y cambia su nombre y descripción. También busca dentro de todo el proyecto y reemplaza el texto "My AddIn" por el que tu hayas decidido ponerle.

Después de haber creado la DLL, puedes añadir el Add-In desde el manejador de Add-Ins y cerrar todas las ventanas prácticamente en nada de tiempo.



Arriba
Regresar al menú "Trucos"
Principal

Derechos reservados © 2001 Daniel Quintero Rojas (dqrsoftware@gmx.net)