Membuat ActiveX (OCX) dengan VB6

ActiveX adalah file berisi program kecil yang bisa dipakai oleh orang lain, sehingga orang lain tidak perlu menuliskan kodenya. Cara pembuatan File OCX atau AktiveX dengan VB6, tidak jauh berbeda dengan pembuatan aplikasi biasa yang berekstensi EXE. File ActiveX merupakan program yang bisa dipakai pada project yang lain tanpa harus menuliskan bahasa pemrograman lagi, jadi file ActiveX dibuat bila bagian tersebut akan dipakai pada project yang lain.Sebagai contoh, saya akan membuat sebuah file ActiveX untuk melihat file pada drectroy tertentu.

[caption id="attachment_105401" align="aligncenter" width="457" caption="Pilih ActiveX Control"][/caption]

Masukan Kontrol

1. DriveListBox
2. DirListBox
3. FileListBox

[caption id="attachment_105408" align="aligncenter" width="107" caption="Control yang dipakai"][/caption]

[caption id="attachment_105412" align="aligncenter" width="324" caption="Tempelkan ketiga kontrol dengan posisi seperti gambar diatas"][/caption]

Tuliskan kode pada DriveListBox pada even Change

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Tuliskan kode pada DirListBox

Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

Untuk Mengatur posisi ketiga control tersebut ketika terjadi perubahan ukuran control OCX, tuliskan di dua tempat yaitu di

Private Sub UserControl_Initialize() On Error Resume Next Drive1.Width = UserControl.Width - 200 Drive1.Top = 0 Drive1.Left = 0 Dir1.Width = Drive1.Width Dir1.Left = 0 Dir1.Top = Drive1.Height File1.Width = Drive1.Width File1.Left = 0 File1.Top = Drive1.Height + Dir1.Height File1.Height = UserControl.Height - (Drive1.Height + Dir1.Height + 5200) End Sub

kode tersebut berfungsi untuk mengatur posisi dan ukuran ketiga kontrol ketika ditempelkan pada form

Private Sub UserControl_Resize() On Error Resume Next Drive1.Width = UserControl.Width - 200 Drive1.Top = 0 Drive1.Left = 0 Dir1.Width = Drive1.Width Dir1.Left = 0 Dir1.Top = Drive1.Height File1.Width = Drive1.Width File1.Left = 0 File1.Top = Drive1.Height + Dir1.Height File1.Height = UserControl.Height - (Drive1.Height + Dir1.Height + 5200) End Sub kode tersebut berfungsi untuk mengatur posisi dan ukuran ketiga kontrol ketika kontrol ini diubah ukurannya

Ubah

Menjadi

[caption id="attachment_105428" align="aligncenter" width="244" caption="Klik Add-Ins, Pilih Add-Ind Manager"][/caption]

[caption id="attachment_105431" align="aligncenter" width="492" caption="Pilih VB6 ActiveX Ctrl Interface Wizard, jangan lupa beri tanda ceklist pada Loaded/Unloaded"][/caption]

[caption id="attachment_105434" align="aligncenter" width="226" caption="Klik Add-Ins, Pilih ActiveX Control Interface Wizard"][/caption]

[caption id="attachment_105435" align="aligncenter" width="488" caption="Klik Next"][/caption]

[caption id="attachment_105436" align="aligncenter" width="492" caption="Bersihkan semua property dan Event dengan klik tombol <<"][/caption]

[caption id="attachment_105437" align="aligncenter" width="489" caption="Pilih Properti Pattern kemudian klik > dan klik Next"][/caption]

property bisa ditambah dari daftar sebelah kiri sesuai dengan kebutuhan, pada contoh ini hanya satu property yang dipakai yaitu Pattern yang berfungsi untuk menyaring jenis file, defaultnya *.* atau menampilkan segala jenis file

[caption id="attachment_105440" align="aligncenter" width="488" caption="Klik Next"][/caption]

[caption id="attachment_105443" align="aligncenter" width="490" caption="Isi Control dengan File1 dengan member Pattern"][/caption] [caption id="attachment_105447" align="aligncenter" width="491" caption="Klik Finish"][/caption]

[caption id="attachment_105450" align="aligncenter" width="500" caption="Klik Close"][/caption]

Untuk Icon jenisnya harus bmp dengan ukuran 32 x 32 pixel

[caption id="attachment_105453" align="aligncenter" width="55" caption="bmp ukuran 32x32 pixel"][/caption] [caption id="attachment_105454" align="aligncenter" width="289" caption="Ambil gambar tersebut lewat ini"][/caption]

Sekarang kita buat file file ocx dengan klik file - Make Dir.ocx,

[caption id="attachment_105458" align="aligncenter" width="463" caption="OCX yang baru dibuat"][/caption]

Copykan file tersebut ke

Kemudian register dengan perintah

melalui RUN

[caption id="attachment_105464" align="aligncenter" width="357" caption="Register file ocx"][/caption] [caption id="attachment_105465" align="aligncenter" width="300" caption="Bila berhasil akan muncul tampilan berikut"][/caption]

Kita buka visual Basic, OCX yang kita buat akan muncul pada daftar Kontrol seperti berikut

[caption id="attachment_105467" align="aligncenter" width="466" caption="File OCX sudah terdaftar"][/caption] [caption id="attachment_105469" align="aligncenter" width="108" caption="Icon dari Dir.ocx"][/caption]

Kita coba tempelkan pada Form

Kita Running