----VisualBasic5.0 es un potente entorno de desarrollo integrado que puede comprobar automáticamente si hay errores gramaticales y solicitar a los codificadores formatos gramaticales. Estas funciones mejoran enormemente la eficiencia de la codificación. Sin embargo, al ser una herramienta de rápido desarrollo, sus características también se destacan en la tecnología Add-In. Al usarlo, podemos fortalecer y personalizar el entorno de desarrollo de VB: podemos agregar automáticamente un módulo a todos los PProjects, podemos reemplazar un módulo en cada módulo con otro módulo, podemos encontrar un determinado fragmento de código en el programa y agregarlo; Lo reemplaza; en teoría, incluso podemos usar esta tecnología para hacer un generador de código automático.
---- La esencia de la tecnología Add-In es que el entorno de programación VB en sí está expuesto a los usuarios como un modelo de objetos. Podemos usar un módulo o un fragmento de código como un objeto de operación para modificar y optimizar. A continuación, presentamos el uso de la tecnología Add-In a través de un ejemplo.
----Por ejemplo, desea incluir este fragmento de código en su programa:
dimnIndexasientero
nIndex=cStr(vsFlex.Text)
Reemplazar con:
atenuacionesIndexasstring
sIndex=Difundir.texto
----La mayoría del software de edición, incluido Word, no incluye la función de búsqueda y reemplazo de varias líneas, y el editor VB5.0 no es una excepción. ¿Qué debo hacer?
----1. Abra VB y seleccione "AddIn" al seleccionar el tipo de proyecto. De esta forma, abrimos un Proyecto llamado MyAddin. Cambie el nombre del proyecto al que desee, como "Prueba".
----2. Abra Addin.bas y encontrará una subrutina de AddToIni:
SubAddToINI()
DimErrCodeMientras Largo
ErrCode=WritePrivateProfileString("Complementos32","Myaddin.Connect","0","vbaddin.ini")
FinSub
----En el directorio de Windows, hay un archivo llamado vbaddin.ini. Cada vez que se inicia VB, determinará qué programas complementarios están disponibles según la configuración de este archivo. La función de AddToIni es en realidad registrar el programa actual en vbaddin.ini. Modifique "Myaddin.Connect" a "Test.Connect" para que corresponda al nombre del proyecto actual.
----3. Ejecute AddToIni en la ventana Inmediato para completar el registro del complemento actual.
----4. Abra Connect.cls, en el área de declaración de variables: ImplementsIDTExtensibility.
----IDTExtensibility es la interfaz para la interacción entre VB y programas AddIn. Cuando VB selecciona AddIdManager en el menú Addin y hace referencia al programa Addin actual "Prueba", se activará el evento OnConnect y se ejecutará el programa IDTExtensibility_OnConnection(). Establezca un punto de interrupción en la siguiente línea:
----Debug.PrintVBInst.Nombre Completo
----Ejecute el programa actual.
----5. Inicie otra rutina VB para generar StandardEXE denominada Proyecto1. Seleccione AddinManager en el menú Addin, obtenemos una lista, seleccionamos MyAddin y regresamos. En este momento, la prueba se inicia y se detiene en
----Debug.PrintVBInst.Nombre Completo
----Tenga en cuenta que VBInstance (VBInst) se refiere al entorno de desarrollo integrado de VB (VBEObject) mediante el complemento. Podemos operarlo como un objeto. VBEObject contiene VBProjects, cada VBProject contiene Vbcomponents, cada VBComponent corresponde a un módulo, cada Formulario, Clase o Módulo.
----6. Ejecutamos en la ventana inmediata de Prueba:
----? VBInstance.ActiveProject.Nombre
----Puedes obtener el nombre de Proyecto1.
----? VBInstance.ActiveProject.VBComponent(0).Nombre
----Puede obtener el nombre del primer módulo Form1 del Proyecto1.
----Hasta ahora, básicamente hemos explicado la connotación técnica de AddIn. El resto es fácil de entender.
----7. En el AddinManager del Proyecto1, elimine MyAddin.
----8. Modifique la prueba nuevamente, abra frmAddin y cambie
PrivadoSubOKButton_Click()
MsgBoxVBInstance.Nombre Completo
FinSub
Cambiar a:
PrivadoSubOKButton_Click()
LlamarReemplazar()
FinSub
PrivateSubmReplace()
Proyecto DimoProAsVB
Componente DimoComAsVB
DimbBuscarComoBooleano
DimnFindLineasentero
DimnfindColasinteger
Screen.MousePointer=vbReloj de arena
OnErrorGoToerrmReemplazar
SetoPro=VBInstance.ActiveVBProject
'Comprueba si el programa ha sido guardado
IfoPro.FileName=""ThenMsgBox"¡Guarde primero!";ExitSub
Para cada uno de los componentes de ComInoPro.VB
bBuscar=Verdadero
HacerMientrasEncontrar
'Encuentra el segmento de código a reemplazar
bFind=oCom.CodeModule.Find("dimnIndexasinteger",nFindLine,nfindCol,oCom.CodeModule.CountOfLines,500,True
IfbBuscarEntonces
IfoCom.CodeModule.Lines(nFindLine 1,1)="nIndex=cStr(vsFlex.Text)"
'Reemplazar después de encontrar
oCom.CodeModule.ReplaceLine
nFindLine,"dimsIndexasstring"
oCom.CodeModule.ReplaceLine
nFindLine 1, "sIndex=Spread.text"
Demás
bBuscar=falso
Fin si
Fin si
Bucle
NextoCom
Screen.MousePointer=vbDefault
SalirSub
errmReemplazar:
Bip
Screen.MousePointer=vbDefault
MsgBox"¡ERROR!"
FinSub
----9. Pongamos la prueba en estado de ejecución.
----10 Si repetimos el paso 5, habrá un elemento adicional "MyAddin" en el menú Complemento del Proyecto1. Agregamos algo de código para reemplazar en Proyecto1, luego ejecutamos MyAddin y se completará el trabajo de reemplazo.
----11. Algunos amigos no quieren que aparezca la palabra "MyAddin" en el menú de complementos, sino un logotipo con un significado más claro, como "Reemplazar". Cambie ConnectClass de la prueba----IDTExtensibility_OnConnection() a
SetmcbMenuCommandBar=AddToAddInCommandBar("MiAddIn")
Cambiar a SetmcbMenuCommandBar=AddToAddInCommandBar("reemplazar")
Si desea cambiar MyAddin en AddinManager a
"Reemplazar", puede abrir Connect.cls con el bloc de notas y cambiar: AttributeVB_Description="MyAdd-In"
Cambiar a: AttributeVB_Description="Reemplazar"
----La introducción anterior es solo una aplicación simple de la tecnología AddIn. Después de comprender su mecanismo, puede crear sus propias herramientas según sus necesidades. Para algunos desarrolladores de software de aplicaciones profesionales, cuantas más herramientas complementarias acumulen, mayor será su eficiencia de codificación. ->