• 0
Sign in to follow this  
Manwë Súlimo

Criar Propriedade De Ocx

Question

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????

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this