HERDAR UMA IMAGEM DE UM COMMANDBUTTON EM UMA OCX

USUARIO.EXCLUIDOS 05/12/2006 18:15:26
#188178
Tenho um OCX com dois objetos TextBox e um CommandButton preciso colocar nas propriedades da OCX a propriedade picture (Do Objeto CommandButton) mas não estou conseguindo alguém tem alguma idéia de como fazer isso?

Meus testes... Mas não funciona...

'Propriedade da imagem do BOTAO
Public Property Get Picture() As IPictureDisp
Picture = cmdPesquisar.Picture
End Property

Public Property Let Picture(ByVal New_Picture As IPictureDisp)
cmdPesquisar.Picture() = New_Picture
PropertyChanged "Imagem_BOTAO"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("Picture", cmdPesquisar.Picture)
End Sub


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  cmdPesquisar.Picture = PropBag.ReadProperty("Picture")
End Sub


Obrigado
CLEVERTON 05/12/2006 18:22:45
#188179
Tente usar. 


Public Property Let Picture(ByVal New_Picture As IPictureDisp)
  Set cmdPesquisar.Picture = New_Picture
  PropertyChanged "Picture"
End Property 



Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Set cmdPesquisar.Picture = PropBag.ReadProperty("Picture")
End Sub
USUARIO.EXCLUIDOS 05/12/2006 18:35:51
#188181
Não deu certo não... Amigo...
USUARIO.EXCLUIDOS 05/12/2006 19:43:06
#188194
Colega, a primeira que vc deve fazer é colocar a propriedade Style do commandbutton = Graphical e usar o código assim:

'Propriedade da imagem do BOTAO
Public Property Get Picture() As StdPicture
  Set Picture = cmdPesquisar.Picture
End Property

Public Property Let Picture(ByVal New_Picture As StdPicture)
  cmdPesquisar.Picture = New_Picture
  PropertyChanged "Picture"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("Picture", cmdPesquisar.Picture)
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Set cmdPesquisar.Picture = PropBag.ReadProperty("Picture")
End Sub


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 06/12/2006 08:29:28
#188236
Caro amigo ainda não deu certo...
O projeto roda sem erro, mas quando eu associo uma imagem paa o componente é exibido a seguinte mensagem de advertencia "Worng number of arguments or invalid property assignment". Tem alguma idéia de como resolver isso...

Obrigado...
Tópico encerrado , respostas não são mais permitidas
Voltar