Register Activex Control dari Code

Semua DLL ActiveX atau OCX harus didaftarkan ke windows dengan menggunakan dua fungsi ini: DllRegisterServer dan DllUnregisterServer. Mereka digunakan untuk regiser dan unregister ActiveX di registri Windows, dan biasanya dipanggil dari regsvr32.exe pada saat pendaftaran.

Namun, kita dapat register dan unregister file-file itu secara pemrograman kapanpun kita mau, asalkan kita tahu nama dari DLL atau OCX pada waktu kompilasi. Yang harus kita lakukan adalah mempersiapkan dua fungsi alias, seperti pada contoh berikut, yang menunjukkan bagaimana untuk register dan unregister COMCTL32.OCX file:



Code: Select all
'fungsi untuk memanggil meng-register ActiveX
Private Declare Function RegComCtl32 Lib "COMCTL32.OCX" Alias _
"DllRegisterServer" () As Long

'fungsi untuk memanggil meng-unregister ActiveX
Private Declare Function UnRegComCtl32 Lib "COMCTL32.OCX" Alias _
"DllUnregisterServer" () As Long
Const ERROR_SUCCESS = &H0

Contoh :
Anggap saja kita punya Test.dll dan mau meregistrasinya
tapi Test.dll berada di c:\MyApp, berikut cara meregistrasinya

Code: Select all
Private Declare Function RegisterTestDLL Lib "Test.Dll" Alias _
"DllRegisterServer" () As Long
Const ERROR_SUCCESS = &H0
Dim retCode As Long

On Error Resume Next

'pindah direktory dulu
ChDrive "C:"
ChDir "C:\MyApp"
' register DLL
retCode = RegisterTestDLL()

If Err <> 0 Then
' jika file tidak ada
MsgBox "Unable to find the Test.Dll file"
ElseIf retCode <> ERROR_SUCCESS Then
' jika registrasi gagal
MsgBox "Registration failed"
End If

Dikutip dari I-bego.com