
31/10/2009, 20:51
|
| | Fecha de Ingreso: octubre-2009
Mensajes: 19
Antigüedad: 15 años, 6 meses Puntos: 1 | |
Respuesta: Unir / Juntar Archivos Skin en OCX Esto es un ejemplo usando el editor de recurso en VB6:
1) Lo Primero que tienes que hacer es ir a complementos de recursos y activar (Editor de Recurso) "VB 6 Resource Editor" si es ingles tu version. y selecionas los checkbox (start load)
ya cargado el editor de recurso vuelve al menu Complemento (Add-Ins) y abre dicho editor. veras una interface sencillas y sin muchas explicaciones, como es una fila que desea incrustar en tu proyecto usa la opcion "anadir recurso personalizado, el icono que esta cerca del icono de ayuda", luego busca los skin que desee y asi hace el mismo proceso para los demas.
salva tu proyecto en el editor de recurso con la extencion .res
y listo.
ahora para cargar y leer dicho recurso usa esto.
Private Sub Form_Load()
'esto es para un SKN
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open "C:\TuSkin.skn" For Binary As #1
Put #1, , buffer()
Close #1
'aqui cargo el skin con el control activeskin (bajete este ocx de la red)
SKN.LoadSkin "C:\TuSkin.skn"
SKN.ApplySkin form1.hWnd
''despues de cargar el skin puedes eliminar con la sentencia Kill y tu skin se quedara activado en memoria.
End Sub
Espero que esto te traiga un poco de luz, , , deja volar la imaginacion.
Perdon por cualquier falta ortografica, pero no voy a ponerme a revisar eso. jajaja |