使用ADD-IN技術(shù)加強(qiáng)VisualBasic開發(fā)環(huán)境

2019-11-18 17:52:20

字體：大中小

供稿：網(wǎng)友

----VisualBasic5.0是一個(gè)功能強(qiáng)大的集成開發(fā)環(huán)境，它可以自動(dòng)檢查語(yǔ)法錯(cuò)誤，提示編碼員語(yǔ)法格式。這些功能都大大提高了編碼效率?？墒撬鳛榭旖蓍_發(fā)工具，它的特點(diǎn)還突出體現(xiàn)在那就是Add-In技術(shù)上。利用它，我們可以強(qiáng)化和定制VB開發(fā)環(huán)境：可以自動(dòng)在所有PRoject中自動(dòng)加入一個(gè)模塊；可以將每個(gè)模塊中的某個(gè)模塊替換成另一個(gè)模塊；可以在程序中查找某段代碼，并將它替換掉；理論上講，我們甚至可以利用該技術(shù)做一個(gè)代碼自動(dòng)生成器。

----Add-In技術(shù)的實(shí)質(zhì)就是VB編程環(huán)境本身做為一個(gè)對(duì)象模型向用戶公開出來(lái)，我們可以將一個(gè)模塊、一段代碼做為一個(gè)操作對(duì)象來(lái)修改、優(yōu)化。下面，我們通過(guò)一個(gè)實(shí)例來(lái)介紹Add-In技術(shù)的使用。

----例如，你想將程序中的這樣一段代碼：

dimnIndexasinteger
nIndex=cStr(vsFlex.Text)
替換為：
dimsIndexasstring
sIndex=Spread.text

----包括Word在內(nèi)的大多數(shù)編輯軟件都不包括多行查找替換功能，VB5.0的編輯器也不例外，怎么辦呢？

----1、打開VB，在選擇Project類型時(shí)選擇"AddIn"。這樣，我們就打開了一個(gè)名叫MyAddin的Project。將Project名稱改為你希望的名字，如"Test"。

----2、打開Addin.bas，你發(fā)現(xiàn)有一個(gè)AddToIni的子程序：

SubAddToINI()
DimErrCodeAsLong
ErrCode=WritePrivateProfileString("Add-Ins32","Myaddin.Connect","0","vbaddin.ini")
EndSub

----在Windows的目錄下，有一文件叫vbaddin.ini,每次VB啟動(dòng)時(shí)將根據(jù)該文件的設(shè)置確定有那些可用的AddIn程序。AddToIni的功能實(shí)際就是將當(dāng)前的程序注冊(cè)到vbaddin.ini。修改"Myaddin.Connect"為"Test.Connect"，使之與當(dāng)前的Project名稱對(duì)應(yīng)。

----3、在Immediate窗口執(zhí)行AddToIni，完成對(duì)當(dāng)前Addin的注冊(cè)。

----4、打開Connect.cls，在變量聲明區(qū)有：ImplementsIDTExtensibility

----IDTExtensibility是VB和AddIn程序交互的Interface。當(dāng)VB在Addin菜單選AddIdManager，并參照當(dāng)前的Addin程序"Test"時(shí)，OnConnect事件就會(huì)觸發(fā)，IDTExtensibility_OnConnection（）程序?qū)⒈粓?zhí)行。在如下行設(shè)置斷點(diǎn)：

----Debug.PrintVBInst.FullName

----運(yùn)行當(dāng)前程序。

----5、啟動(dòng)另外一個(gè)VB例程,生成StandardEXE，名叫Project1。從Addin菜單選AddinManager，我們得到一個(gè)列表，我們選擇MyAddin并返回。這時(shí)，Test被啟動(dòng)并停在

----Debug.PrintVBInst.FullName

----注意，VBInstance(VBInst)就是指使用該Addin的VB的集成開發(fā)環(huán)境(VBEObject)。我們可以它做為一個(gè)對(duì)象來(lái)操作。VBEObject包含VBProjects,每個(gè)VBProject包含Vbcomponents,每個(gè)VBComponet對(duì)應(yīng)一個(gè)模塊，每個(gè)Form,Class,或Module。

----6、我們?cè)赥est的立即窗口執(zhí)行：

----？VBInstance.ActiveProject.Name

----可以得到Project1的名稱。

----？VBInstance.ActiveProject.VBComponent(0).Name

----可以得到Project1的第一個(gè)模塊Form1的名稱。

----到此為止，我們已經(jīng)基本說(shuō)明了AddIn的技術(shù)內(nèi)涵。剩下的工作就很容易理解了。

----7、在Project1的AddinManager中，將MyAddin去掉。

----8、再修改Test，打開frmAddin，將

PrivateSubOKButton_Click()
MsgBoxVBInstance.FullName
EndSub
改為：
PrivateSubOKButton_Click()
CallmReplace()
EndSub

PrivateSubmReplace()
DimoProAsVBProject
DimoComAsVBComponent
DimbFindAsBoolean
DimnFindLineasinteger
DimnfindColasinteger

Screen.MousePointer=vbHourglass
OnErrorGoToerrmReplace

SetoPro=VBInstance.ActiveVBProject

'檢查程序是否已保存
IfoPro.FileName=""ThenMsgBox"請(qǐng)先保存!";ExitSub

ForEachoComInoPro.VBComponents
bFind=True
DoWhilebFind
'查找要替換的代碼段
bFind=oCom.CodeModule.Find("dimnIndexasinteger",nFindLine,nfindCol,oCom.CodeModule.CountOfLines,500,True
IfbFindThen
IfoCom.CodeModule.Lines(nFindLine 1,1)="nIndex=cStr(vsFlex.Text)"
'找到后替換
oCom.CodeModule.ReplaceLine
nFindLine,"dimsIndexasstring"
oCom.CodeModule.ReplaceLine
nFindLine 1,"sIndex=Spread.text"
Else
bFind=false
EndIf
EndIf
Loop
NextoCom

Screen.MousePointer=vbDefault
ExitSub

errmReplace:
Beep
Screen.MousePointer=vbDefault
MsgBox"ERROR!"
EndSub

----9、我們?cè)偈筎est進(jìn)入運(yùn)行狀態(tài)。

----10、我們?cè)僦貜?fù)第五步，會(huì)在Project1的Addin菜單中多一項(xiàng)"MyAddin"。我們?cè)赑roject1中加入一些要替換的代碼，然后執(zhí)行MyAddin，替換工作就會(huì)完成。

----11、有朋友不希望在Addin菜單出現(xiàn)"MyAddin"字樣，而是具有更明確含義的標(biāo)識(shí)，如"替換"。改動(dòng)Test的ConnectClass----IDTExtensibility_OnConnection()，將

SetmcbMenuCommandBar=AddToAddInCommandBar("MyAddIn")
改為SetmcbMenuCommandBar=AddToAddInCommandBar("替換")
如果你想將AddinManager中的MyAddin改為
"Replace",可用notepad打開Connect.cls,將：AttributeVB_Descr
----以上介紹地只是AddIn技術(shù)的一個(gè)簡(jiǎn)單應(yīng)用，了解其機(jī)理后，大家可根據(jù)需要做出自己的工具。對(duì)于一些專業(yè)的應(yīng)用軟件開發(fā)商來(lái)說(shuō)，積累越多的AddIn工具，便可以大大提高編碼效率。->