Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 26-abr-2008, 03:24   #1 (permalink)
Marea2 ha deshabilitado el karma
 
Avatar de Marea2
 
Fecha de Ingreso: febrero-2008
Mensajes: 25
Comprovar la instalación de una OCX

¿Como puedo saber desde Visual Basic si una OCX está registrada?

Muchas gracias por vuestra ayuda.
Marea2 está desconectado   Responder Citando
Antiguo 26-abr-2008, 05:39   #2 (permalink)
Avellaneda tiene algunos puntos positivos de karma
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 709
Re: Comprovar la instalación de una OCX

Una forma fácil de hacerlo es buscar en el directorio del sistema la OCX, si la encuentra es que (normalmente) estará registrada y si no la encuentra es que seguro que no estará registrada.

Un saludo.
Avellaneda está desconectado   Responder Citando
Antiguo 26-abr-2008, 18:58   #3 (permalink)
seba123neo ha deshabilitado el karma
 
Avatar de seba123neo
 
Fecha de Ingreso: febrero-2007
Mensajes: 408
Re: Comprovar la instalación de una OCX

Hola,en una parte del registro de windows se guardan las CLSID de las ocx y dll registradas con el nombre,tendrias que consultar ahi...

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein
seba123neo está desconectado   Responder Citando
Antiguo 27-abr-2008, 02:04   #4 (permalink)
Marea2 ha deshabilitado el karma
 
Avatar de Marea2
 
Fecha de Ingreso: febrero-2008
Mensajes: 25
Re: Comprovar la instalación de una OCX

Gracias por vuestras respuestas.
Necesitaría el código en Visual Basic 6 para saber si está registrado o no un OCX.

Muchas gracias
Marea2 está desconectado   Responder Citando
Antiguo 27-abr-2008, 15:45   #5 (permalink)
seba123neo ha deshabilitado el karma
 
Avatar de seba123neo
 
Fecha de Ingreso: febrero-2007
Mensajes: 408
Re: Comprovar la instalación de una OCX

basicamente podes hacerlo sabiendo si la clase esta registrada en el sistema,tenes que pasarle el nombre de clase del ocx o programa,algo asi:

Código:
Private Sub Form_Load()
If Not EstaRegistrado("mscomctllib.treectrl.2") Then
MsgBox "No esta registrado", vbExclamation
Else
MsgBox "Esta registrado", vbInformation
End If
End Sub

Public Function EstaRegistrado(ByVal Clase As String) As Boolean
On Error GoTo NoRegistrado
Dim obj As Object
Set obj = CreateObject(Clase)
EstaRegistrado = True
Exit Function
NoRegistrado:
End Function
en este ejemplo te muetra si esta registrado el Treeview....algunos nombres de clases mas:

Código:
excel.application es el excel...
Word.Application es el word
mscomctl2.monthview.2, MontView
mscomctl2.dtpicker.2, Date Time Picker
mscomctllib.treectrl.2, Treeview
mschart20lib.mschart.2, Ms Chart
mscommlib.mscomm.1, MsComm
para saber estos nombres de clase de los controles podes usar el programa que viene con visual basic llamado OLE VIEW,ahi estan los nombres de clases....

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein

Última edición por seba123neo; 27-abr-2008 a las 15:51.
seba123neo está desconectado   Responder Citando
Antiguo 29-abr-2008, 00:12   #6 (permalink)
Marea2 ha deshabilitado el karma
 
Avatar de Marea2
 
Fecha de Ingreso: febrero-2008
Mensajes: 25
Re: Comprovar la instalación de una OCX

Muchas gracias por esta información.

Saludos
Marea2 está desconectado   Responder Citando
Respuesta

Calificación: Calificación de Tema: 1 votos, 5,00 de promedio.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 20:37.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93