----VisualBasic5.0 adalah lingkungan pengembangan terintegrasi yang kuat yang dapat secara otomatis memeriksa kesalahan tata bahasa dan meminta pembuat kode untuk format tata bahasa. Fungsi-fungsi ini sangat meningkatkan efisiensi pengkodean. Namun, sebagai alat pengembangan cepat, karakteristiknya juga ditonjolkan dalam teknologi Add-In. Dengan menggunakannya, kita dapat memperkuat dan menyesuaikan lingkungan pengembangan VB: kita dapat secara otomatis menambahkan modul ke semua PProjects; kita dapat mengganti modul di setiap modul dengan modul lain, kita dapat menemukan bagian kode tertentu dalam program dan menambahkannya ke dalamnya Ini menggantikannya; secara teori, kita bahkan dapat menggunakan teknologi ini untuk membuat pembuat kode otomatis.
---- Inti dari teknologi Add-In adalah bahwa lingkungan pemrograman VB itu sendiri diekspos kepada pengguna sebagai model objek. Kita dapat menggunakan modul atau sepotong kode sebagai objek operasi untuk memodifikasi dan mengoptimalkan. Di bawah ini, kami memperkenalkan penggunaan teknologi Add-In melalui sebuah contoh.
---- Misalnya, Anda ingin memasukkan potongan kode ini ke dalam program Anda:
dimnIndexasinteger
nIndeks=cStr(vsFlex.Teks)
Ganti dengan:
meredupkanIndexasstring
sIndex=Sebaran.teks
----Sebagian besar perangkat lunak pengeditan, termasuk Word, tidak menyertakan fungsi pencarian dan penggantian multi-baris, dan editor VB5.0 tidak terkecuali.
----1. Buka VB dan pilih "AddIn" saat memilih jenis Proyek. Dengan cara ini, kami membuka Proyek bernama MyAddin. Ubah nama Project sesuai keinginan, misalnya “Test”.
----2. Buka Addin.bas dan Anda akan menemukan subrutin AddToIni:
SubTambahkanKeINI()
DimErrCodeAsLong
ErrCode=WritePrivateProfileString("Add-Ins32","Myaddin.Connect","0","vbaddin.ini")
Sub Akhir
----Di direktori Windows, ada file bernama vbaddin.ini. Setiap kali VB dijalankan, ia akan menentukan program AddIn mana yang tersedia berdasarkan pengaturan file ini. Fungsi AddToIni sebenarnya untuk mendaftarkan program saat ini ke vbaddin.ini. Ubah "Myaddin.Connect" menjadi "Test.Connect" agar sesuai dengan nama Proyek saat ini.
----3. Jalankan AddToIni di jendela Segera untuk menyelesaikan pendaftaran Addin saat ini.
----4. Buka Connect.cls, di area deklarasi variabel: ImplementsIDTExtensibility
----IDExtensibility adalah Antarmuka untuk interaksi antara program VB dan AddIn. Ketika VB memilih AddIdManager di menu Addin dan mengacu pada "Test" program Addin saat ini, acara OnConnect akan dipicu dan program IDTExtensibility_OnConnection() akan dijalankan. Tetapkan breakpoint pada baris berikut:
----Debug.PrintVBInst.Nama Lengkap
---- Jalankan program saat ini.
----5. Mulai rutinitas VB lain untuk menghasilkan StandardEXE bernama Project1. Pilih AddinManager dari menu Addin, kami mendapatkan daftar, kami memilih MyAddin dan kembali. Pada saat ini, Tes dimulai dan berhenti di
----Debug.PrintVBInst.Nama Lengkap
----Perhatikan bahwa VBInstance (VBInst) mengacu pada lingkungan pengembangan terintegrasi VB (VBEObject) menggunakan Addin. Kita bisa mengoperasikannya sebagai objek. VBEObject berisi VBProjects, setiap VBProject berisi Vbcomponents, setiap VBComponent berhubungan dengan sebuah modul, setiap Form, Class, atau Module.
----6. Kami langsung mengeksekusi di jendela Test:
----? VBInstance.ActiveProject.Nama
---- Anda bisa mendapatkan nama Project1.
----? VBInstance.ActiveProject.VBComponent(0).Nama
---- Anda bisa mendapatkan nama modul pertama Form1 dari Project1.
---- Sejauh ini, pada dasarnya kami telah menjelaskan konotasi teknis AddIn. Selebihnya mudah dimengerti.
----7. Di AddinManager Project1, hapus MyAddin.
----8. Ubah Tes lagi, buka frmAddin, dan ubah
PribadiSubOKButton_Klik()
MsgBoxVBInstance.Nama Lengkap
Sub Akhir
Ubah menjadi:
PribadiSubOKButton_Klik()
Panggil Ganti()
Sub Akhir
PrivateSubmReplace()
Proyek DimoProAsVB
Komponen DimoComAsVB
DimbFindAsBoolean
DimnFindLineasinteger
DimnfindColasinteger
Layar.MousePointer=vbJam Pasir
OnErrorGoToerrmReplace
SetoPro=VBInstance.ProyekVB Aktif
'Periksa apakah program telah disimpan
IfoPro.FileName=""ThenMsgBox"Silakan simpan dulu!";ExitSub
UntukEachoComInoPro.VBComponents
bTemukan=Benar
Lakukan Sementara Temukan
'Temukan segmen kode untuk diganti
bFind=oCom.CodeModule.Find("dimnIndexasinteger",nFindLine,nfindCol,oCom.CodeModule.CountOfLines,500,True
JikabTemukanLalu
IfoCom.CodeModule.Lines(nFindLine 1,1)="nIndex=cStr(vsFlex.Text)"
'Ganti setelah ditemukan
oCom.CodeModule.ReplaceLine
nFindLine,"meredupkanIndexasstring"
oCom.CodeModule.ReplaceLine
nFindLine 1,"sIndex=Spread.teks"
Kalau tidak
bTemukan=salah
AkhirJika
AkhirJika
Lingkaran
BerikutnyaCom
Layar.MousePointer=vbDefault
KeluarSub
errmGanti:
Berbunyi
Layar.MousePointer=vbDefault
Kotak Pesan"KESALAHAN!"
Sub Akhir
----9. Mari kita jalankan Test.
----10. Jika kita mengulangi langkah 5, akan ada item tambahan "MyAddin" di menu Addin Project1. Kami menambahkan beberapa kode untuk diganti di Project1, lalu menjalankan MyAddin, dan pekerjaan penggantian akan selesai.
----11. Beberapa teman tidak ingin muncul kata "MyAddin" di menu Addin, melainkan logo dengan arti yang lebih jelas, seperti "Ganti". Ubah ConnectClass----IDTExtensibility_OnConnection() Tes menjadi
SetmcbMenuCommandBar=TambahkanToAddInCommandBar("Tambahan Saya")
Ubah menjadi SetmcbMenuCommandBar=AddToAddInCommandBar("ganti")
Jika Anda ingin mengubah MyAddin di AddinManager menjadi
"Ganti", Anda dapat membuka Connect.cls dengan notepad dan mengubah: AttributeVB_Description="MyAdd-In"
Ubah ke: AttributeVB_Description="Ganti"
---- Pengenalan di atas hanyalah penerapan sederhana dari teknologi AddIn. Setelah memahami mekanismenya, Anda dapat membuat alat sendiri sesuai kebutuhan. Untuk beberapa pengembang perangkat lunak aplikasi profesional, semakin banyak alat AddIn yang mereka kumpulkan, semakin besar efisiensi pengkodeannya. ->