USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página