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.

Pilih ActiveX Control

Masukan Kontrol

1. DriveListBox


2. DirListBox


3. FileListBox

Control yang dipakai

Tempelkan ketiga kontrol dengan posisi seperti gambar diatas

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

Klik Add-Ins, Pilih Add-Ind Manager

Pilih VB6 ActiveX Ctrl Interface Wizard, jangan lupa beri tanda ceklist pada Loaded/Unloaded

Klik Add-Ins, Pilih ActiveX Control Interface Wizard

Klik Next

Bersihkan semua property dan Event dengan klik tombol <<

Pilih Properti Pattern kemudian klik > dan klik Next

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

Klik Next

Isi Control dengan File1 dengan member Pattern

Klik Finish

Klik Close

Untuk Icon jenisnya harus bmp dengan ukuran 32 x 32 pixel

bmp ukuran 32×32 pixel

Ambil gambar tersebut lewat ini

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

OCX yang baru dibuat

Copykan file tersebut ke

Kemudian register dengan perintah

melalui RUN

Register file ocx

Bila berhasil akan muncul tampilan berikut

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

File OCX sudah terdaftar

Icon dari Dir.ocx

Kita coba tempelkan pada Form

Kita Running