VB6 Creación de controles de usuario

[Laforge]

Hola,

Estoy creando un control de usuario personalizado y me surgió un problema. He creado diferentes propiedades para el control tipo 'caption', 'font', etc... pero después de asignarles un valor y ejecutar el formulario, éstas pierden el valor asignado recogiendo el valor por defecto que tenían en la creación del control OCX. PQ??????

Debo controlar algo más a parte de los 'eventos' GET y LET de cada una de las propiedades?


Gracias y saludos

[lpz]

Me parece que tiene que ver con los parametros por referencia. Intenta pasar las variables que queres que se modifiquen por referencia, de este modo no se hace una copia de la variable.
Creo que en vb es asi:

function myfuncion(par1 as string byref)

[luciano]

Hola Laforge, mira para que no se pierdan los valores tenes que utilizar los eventos ReadPropertys y WritePropertys del usercontrol. te pongo un ejemplo:

Código:

'Cargar valores de propiedad desde el almacén
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    m_Propiedad = PropBag.ReadProperty("Propiedad", "")
    
End Sub


'Escribir valores de propiedad en el almacén
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    
    Call PropBag.WriteProperty("Propiedad", m_Propiedad, "")
    
End Sub

salu2

[Laforge]

Gracias luciano!! me fue de vicio!!