Oi , pessoal.

 

Estou fazendo uma Ocx e não sei como faço para que as propriedades sejam gravadas e lidas pelo VB. Exemplo:

Quero que quando eu altere a propriedade "Caption" da OCX o VB grave e depois, quando o projeto o qual usa esta OCX for aberto, ele leia as propriedades.

 

Obrigado,

Cristiano Fischer.

Você deverá notificar o VB de que a propriedade foi alterada e depois usar o evento WriteProperties para gravá-la na PropertyBag do VB:

 

Public Property Let MinhaPropriedade(Valor as Variant)

 

    .... Se u código Aqui ....

    PropertyChanged "MinhaPropriedade"    <-- Aqui você notifica o VB

 

End Property

 

'Aqui a sua propriedade é gravada

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    
    With PropBag
        Call .WriteProperty("MinhaPropriedade", MinhaPropriedade)   
    End With
    DoEvents
   
End Sub

'Aqui você lê a propriedade. ValorPadrao é um valor que você quer por default, caso 'a propriedade não tenha sido definida ainda

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    With PropBag
        MinhaPropriedade = .ReadProperty("MinhaPropriedade", ValorPadrao)
    End With
    DoEvents

End Sub

 

 

 

te vira macaco