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
- DriveListBox
- DirListBox
- 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]