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.

•  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

Download Contoh DISINI

repost from : ilmukomputer.com