ocx como archivo de recurso
Publicado por A.H.H (116 intervenciones) el 27/05/2011 20:25:04
Hola queria saber como se puede cargar en el formulario una ocx que tengo como archivo de recurso, mediante codigo, sin tener que cargarla mediante el menu componentes ni referencias.
Es una barra de progreso llamada mcpbarv2.ocx
El archivo mcpbarv2.ocx ya lo se hacer y en el form load lo pongo en system32 y lo
registro tambien.
Me falta que se pudiera mediante codigo dibujar la barra del ocx en el formulario y poder usarla.
Vamos en 2 palabras que seria un ejecutable que al darle 2 clicks crea un ocx en system32, lo registra y luego se dibuja en el formulario como si lo pusieras en componentes, ahorrandote el empaquetar el ejecutable con el ocx
no se si me explico
tengo esto en un MODULO:
TENGO ESTO EN FORM:
No hace falta decir que tengo el archivo de recursos cargado en el proyecto.Creado con el editor de recursos de visual basic.
¿ALGUNA IDEA PARA DIBUJARLA EN EL FORM LA BARRA DE PROGRESO mcpbarv2.ocx MEDIANTE CODIGO?
NO MEDIANTE REFERENCIA NI COMPONENTES
Es una barra de progreso llamada mcpbarv2.ocx
El archivo mcpbarv2.ocx ya lo se hacer y en el form load lo pongo en system32 y lo
registro tambien.
Me falta que se pudiera mediante codigo dibujar la barra del ocx en el formulario y poder usarla.
Vamos en 2 palabras que seria un ejecutable que al darle 2 clicks crea un ocx en system32, lo registra y luego se dibuja en el formulario como si lo pusieras en componentes, ahorrandote el empaquetar el ejecutable con el ocx
no se si me explico
tengo esto en un MODULO:
1
2
3
4
5
6
7
8
9
Public Sub CargarOcx(Pat As String) ' Pat = ruta del archivo temporal
Dim myArray() As Byte
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") 'Carga el archivo de recursos
myFile = FreeFile Open Pat For Binary Access Write As #myFile
Put #myFile, , myArray ' Escribe el archivo temporal
Close #myFile
End Sub
TENGO ESTO EN FORM:
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Call CargarOcx(Environ("Windir") + "\System32\mcpbarv2.ocx") ' Llama a la funcion q crea el archivo temporal'
Shell (Environ("ComSpec") + " /C regsvr32 /s mcpbarv2.ocx")' REGISTRA OCX SILENCIOSAMENTE'
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill (Environ("Windir") + "\System32\mcpbarv2.ocx") 'CUANDO SALES SE ELIMINA'
End Sub
No hace falta decir que tengo el archivo de recursos cargado en el proyecto.Creado con el editor de recursos de visual basic.
¿ALGUNA IDEA PARA DIBUJARLA EN EL FORM LA BARRA DE PROGRESO mcpbarv2.ocx MEDIANTE CODIGO?
NO MEDIANTE REFERENCIA NI COMPONENTES
Valora esta pregunta
0