|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Registrando e Desregistrando ActiveX via Código VB
|
 |
|
|
|
Postada em 11/8/2003 por d@®l@n
Esta dica descreve como os controles de ActiveX podem ser registados e desregistrados diretamente do VB. Cada controle ActiveX contém duas funções que, quando chamadas o registram ou desregistram no sistema. Estas funções são DLLRegisterServer e DLLUnregisterServer. O seguinte código demonstra como registar e desregistrados os controles Microsoft Common Controls OCX, ComCtl32.OCX.
'Num módulo:
Public Declare Function RegComCtl32 Lib _
"ComCtl32.OCX" Alias _
"DllRegisterServer" () As Long
Public Declare Function UnRegComCtl32 Lib _
"ComCtl32.OCX" Alias _
"DllUnregisterServer" () As Long
Const ERROR_SUCCESS = &H0
'Num Form coloque dois botões e insira
'este código:
Private Sub Command1_Click()
'P/ Registrar:
If RegComCtl32 = ERROR_SUCCESS Then
MsgBox "Registration Successful"
Else
MsgBox "Registration Unsuccessful"
End If
End Sub
Private Sub Command2_Click()
'P/ DESregistrar:
If UnRegComCtl32 = ERROR_SUCCESS Then
MsgBox "UnRegistration Successful"
Else
MsgBox "UnRegistration Unsuccessful"
End If
End Sub
Nota: Cada chamada a essa função do ActiveX pode levar um tempo de até 5 segundos.
|
|
|
|
|
