Catatan Kang iBNuX Write The Code… Change The World…

Membuat ActiveX DLL (Dynamic Link Library) Pada Visual Basic 6.0

Membuat ActiveX DLL adalah suatu usaha untuk membuat program Anda lebih modular dan code-code yang sering Anda gunakan sebaiknya Anda kumpulkan dan jadikan dalam sebuah DLL sehingga Anda dapat menggunakannya kapan saja jika dibutuhkan. OK, sekarang kita mulai saja demo pembuatan ActiveX DLL melalui Visual Basic ini. Penulis menggunakan Visual Basic 6.0.

Buka Visual Basic Anda kemudian pilih menu File | New Project dan kemudian pilih ActiveX DLL seperti gambar dibawah dan kemudian tekan OK.

Visual Basic akan memberi workspace project template ActiveX DLL dengan sebuah class module default yang bernama Class1. Ganti nama class module tadi menjadi clsMain.

Tambahkan sebuah form pada project DLL Anda dan beri nama frmHello. Oh ya jangan lupa ganti nama project ActiveX DLL ini menjadi vbdll.

Tulis code berikut pada class module clsMain tadi:

Option Explicit

Public stMyProperty As String

Public Sub Main_()

frmHello.Show vbModal

End Sub

Public Property Get MyProperty() As Variant

MyProperty = stMyProperty

End Property

Public Property Let MyProperty(ByVal vNewValue As Variant)

stMyProperty = vNewValue

End Property

Nah, pada DLL sederhana kita ini ceritanya kita akan membuat sebuah class clsMain yang di dalamnya terdapat method Main_ yang fungsinya memanggil form frmHello. Selain itu kita juga membuat sebuah property yang bernama MyProperty yang nantinya kita bisa mengisikan suatu nilai ke dalam property ini. Type dari property MyProperty adalah string.

Sampai disini maka ActiveX DLL kita sudah jadi. Sekarang simpan project ActiveX DLL ini dengan nama vbdll.vbp. Kemudian coba sekarang Anda compile menjadi DLL melalui menu File | Make vbdll.dll...

OK, sekarang kita harus me-registerkan DLL kita tadi ke Windows. Gimana caranya? Gampangggg, coba Anda masuk ke MS DOS Prompt, kemudian change directory menuju tempat dimana tadi Anda menyimpan atau mengcompile vbdll.dll. Nah kemudian ketikkan perintah berikut pada command prompt DOS.

regsvr32 vbdll.dll

Jika sukses maka di layar akan muncul dialog seperti gambar di bawah:

Sekarang ActiveX DLL vbdll.dll Anda sudah ter-register pada system Windows. Waktunya kita untuk menguji dan menggunakan DLL ini. Buka kembali Visual Basic Anda dan buatlah project baru melalui File | New Project, kemudian pilih Standard EXE. Letakkan sebuah control CommandButton pada form dan kemudian ketik code berikut pada event Click pada CommandButton tadi:

Option Explicit

Private Sub Command1_Click()

Dim obj

\'create sebuah instance dari class vbdll.clsMain

Set obj = CreateObject("vbdll.clsMain")

MsgBox "Sekarang memanggil method Main_ dari vbdll.dll"

\'panggil method Main dari vbdll.dll

obj.Main_

MsgBox "Sekarang mengisi property" & _

" MyProperty pada vbdll.dll " & _

"dengan string 'TEST'"

\'isi MyProperty dengan string 'TEST'

obj.MyProperty = "TEST"

MsgBox \"Isi dari property MyProperty " & _

"sekarang adalah " & obj.MyProperty

'free instance obj dari memory

Set obj = Nothing

End Sub

Jalankan program diatas dengan menekan F5. Kemudian tekan button-nya dan lihat hasilnya. Sampai disini saya harap Anda sudah mulai bisa membuat ActiveX DLL lain yang lebih bagus dan lebih berguna, misalnya saja DLL untuk menangani operasi matematika, DLL untuk operasi string yang belum tersedia di VB dan lain
sebagainya.

Nah, selanjutnya silakan saja Anda buka source code lengkap yang diberikan oleh penulis dibawah ini dan cobalah bermain-main dengannya

lebih lengkapnya lihat di www.ibnumaksum.co.nr