Criar Propriedade De Ocx

[Manwë Súlimo]

Pessoal, quando eu crio uma OCX, eu crio suas propriedades que nem quando eu crio uma DLL:

Public Property Get TextColor() As ColorConstants

TextColor = m_textcolor
End Property

Public Property Let TextColor(ByVal NovoValor As ColorConstants)

m_textcolor = NovoValor

End Property

Mas tem um problema, quando eu defino uma propriedade dela via design (na janela de propriedade), ela perde o valor... só quando eu defino a propriedade via código que ele executa normal..

obj.TextColor = Vbblue

alguém pode me explicar o que acontece????

E mais uma duvida só.. alguém sabe como que eu faço uma propriedade ficar com aquela reticencias (...) no lado da propriedade, como a de definir fonte e cor???

alias, é exatamente p/ isso que eu quero.. para definir fonte e cor, o jeito que eu faço atualmente não é muito bonito não...

alguém pode me ajudar????

[Graymalkin]

Você tem que utilizar os eventos ReadProperties e WriteProperties do UserControl. Exemplo:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_textcolor = PropBag.ReadProperty("TextColor", vbBlack) 'o vbBlack é o valor padrão, opcional
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "TextColor", m_textcolor
End Sub

Para o caso da seleção de fontes, basta definir o tipo da propriedade como Font. Exemplo:

Public Property Get Font() As Font

Public Property Set Font(ByVal nova_fonte As Font)

Para as cores, defina o tipo como OLE_COLOR.

Abraços,

Graymalkin

[Manwë Súlimo]

Valeu Graymalkin, eu já tinha descoberto isso...

mas valeu mesmo

até mais