----VisualBasic5.0 est un puissant environnement de développement intégré qui peut vérifier automatiquement les erreurs grammaticales et inviter les codeurs à connaître les formats grammaticaux. Ces fonctions améliorent considérablement l’efficacité du codage. Cependant, en tant qu'outil de développement rapide, ses caractéristiques sont également mises en valeur dans la technologie Add-In. En l'utilisant, nous pouvons renforcer et personnaliser l'environnement de développement VB : nous pouvons ajouter automatiquement un module à tous les PProjects ; nous pouvons remplacer un module dans chaque module par un autre module ; nous pouvons trouver un certain morceau de code dans le programme et l'ajouter ; Elle le remplace ; en théorie, on peut même utiliser cette technologie pour réaliser un générateur de code automatique.
----L'essence de la technologie Add-In est que l'environnement de programmation VB lui-même est exposé aux utilisateurs en tant que modèle objet. Nous pouvons utiliser un module ou un morceau de code comme objet d'opération pour modifier et optimiser. Ci-dessous, nous présentons l'utilisation de la technologie Add-In à travers un exemple.
----Par exemple, vous souhaitez inclure ce morceau de code dans votre programme :
dimnIndexasinteger
nIndex=cStr(vsFlex.Text)
Remplacer par :
dimsIndexasstring
sIndex=Spread.text
----La plupart des logiciels d'édition, y compris Word, n'incluent pas la fonction de recherche et de remplacement sur plusieurs lignes, et l'éditeur VB5.0 ne fait pas exception. Que dois-je faire ?
----1. Ouvrez VB et sélectionnez "AddIn" lors de la sélection du type de projet. De cette façon, nous avons ouvert un projet nommé MyAddin. Changez le nom du projet comme vous le souhaitez, par exemple « Test ».
----2. Ouvrez Addin.bas et vous trouverez un sous-programme de AddToIni :
Sous-AjouterÀINI()
DimErrCodeAsLong
ErrCode=WritePrivateProfileString("Add-Ins32", "Myaddin.Connect", "0", "vbaddin.ini")
EndSub
----Dans le répertoire Windows, il y a un fichier appelé vbaddin.ini Chaque fois que VB démarre, il déterminera quels programmes AddIn sont disponibles en fonction des paramètres de ce fichier. La fonction de AddToIni est en fait d'enregistrer le programme actuel dans vbaddin.ini. Modifiez "Myaddin.Connect" en "Test.Connect" afin qu'il corresponde au nom du projet actuel.
----3. Exécutez AddToIni dans la fenêtre Immédiat pour terminer l'enregistrement du complément actuel.
----4. Ouvrez Connect.cls, dans la zone de déclaration des variables : ImplementsIDTExtensibility.
----IDTExtensibility est l'interface pour l'interaction entre les programmes VB et AddIn. Lorsque VB sélectionne AddIdManager dans le menu Addin et fait référence au programme Addin actuel « Test », l'événement OnConnect sera déclenché et le programme IDTExtensibility_OnConnection() sera exécuté. Définissez un point d'arrêt sur la ligne suivante :
----Debug.PrintVBInst.FullName
----Exécutez le programme actuel.
----5. Démarrez une autre routine VB pour générer StandardEXE nommé Project1. Sélectionnez AddinManager dans le menu Addin, nous obtenons une liste, nous sélectionnons MyAddin et revenons. A ce moment, le test démarre et s'arrête à
----Debug.PrintVBInst.FullName
----Notez que VBInstance (VBInst) fait référence à l'environnement de développement intégré VB (VBEObject) utilisant le complément. Nous pouvons l'exploiter comme un objet. VBEObject contient des VBProjects, chaque VBProject contient des Vbcomponents, chaque VBComponent correspond à un module, chaque formulaire, classe ou module.
----6. Nous exécutons dans la fenêtre immédiate de Test :
----? VBInstance.ActiveProject.Name
----Vous pouvez obtenir le nom du Projet1.
----? VBInstance.ActiveProject.VBComponent(0).Name
----Vous pouvez obtenir le nom du premier module Form1 de Project1.
----Jusqu'à présent, nous avons essentiellement expliqué la connotation technique d'AddIn. Le reste est facile à comprendre.
----7. Dans AddinManager de Project1, supprimez MyAddin.
----8. Modifiez à nouveau Test, ouvrez frmAddin et modifiez
PrivateSubOKButton_Click()
MsgBoxVBInstance.FullName
FinSub
Remplacer par :
PrivateSubOKButton_Click()
AppelerRemplace()
FinSub
PrivateSubmReplace()
DimoProAsVBProjet
DimoComAsVBComponent
DimbFindAsBoolean
DimnFindLineasinteger
DimnfindColasinteger
Screen.MousePointer=vbHourglass
OnErrorGoToerrmReplace
SetoPro=VBInstance.ActiveVBProject
'Vérifiez si le programme a été enregistré
IfoPro.FileName=""ThenMsgBox"Veuillez d'abord enregistrer!";ExitSub
ForEachoComInoPro.VBComponents
bRechercher=Vrai
DoWhilebFind
'Trouver le segment de code à remplacer
bFind=oCom.CodeModule.Find("dimnIndexasinteger",nFindLine,nfindCol,oCom.CodeModule.CountOfLines,500,True
IfbTrouverAlors
IfoCom.CodeModule.Lines(nFindLine 1,1)="nIndex=cStr(vsFlex.Text)"
'Remplacer après avoir trouvé
oCom.CodeModule.ReplaceLine
nFindLine, "dimsIndexasstring"
oCom.CodeModule.ReplaceLine
nFindLine 1,"sIndex=Spread.text"
Autre
bFind=faux
FinSi
FinSi
Boucle
NextoCom
Screen.MousePointer=vbDefault
QuitterSub
euhRemplacer :
Bip
Screen.MousePointer=vbDefault
MsgBox"ERREUR!"
FinSub
----9. Mettons Test en état d'exécution.
----10. Si nous répétons l'étape 5, il y aura un élément supplémentaire "MyAddin" dans le menu Addin de Project1. Nous ajoutons du code à remplacer dans Project1, puis exécutons MyAddin, et le travail de remplacement sera terminé.
----11. Certains amis ne souhaitent pas que le mot "MyAddin" apparaisse dans le menu Addin, mais un logo avec une signification plus claire, comme "Remplacer". Remplacez ConnectClass----IDTExtensibility_OnConnection() du test par
SetmcbMenuCommandBar=AddToAddInCommandBar("MonAddIn")
Remplacez par SetmcbMenuCommandBar=AddToAddInCommandBar("remplacer")
Si vous souhaitez remplacer MyAddin dans AddinManager par
"Remplacer", vous pouvez ouvrir Connect.cls avec le bloc-notes et modifier : AttributeVB_Description="MyAdd-In"
Remplacer par : AttributeVB_Description="Remplacer"
----L'introduction ci-dessus n'est qu'une simple application de la technologie AddIn. Après avoir compris son mécanisme, vous pouvez créer vos propres outils en fonction de vos besoins. Pour certains développeurs de logiciels d’application professionnels, plus ils accumulent d’outils AddIn, plus leur efficacité de codage sera grande. ->