Best (Image) Combo ever (Picture in UserControl (resolved))
Alright I almost finished my new (image)combo box. It has got lot's of features and I will soon upload it on Planet source code (I will post the link here). But I only got 1 minor problem.
I want the users to be able to select a picture. I have got it in the propertybag but when I select ... and click on a file I get the error
runtime error 450
Wrong number of arguments or invalid property assignment. I can't find it.
I have got an image on the form called ImgItem. What Is wrong. Please help
I use this code:
Dim m_picture As StdPicture
Public Property Get Picture() As StdPicture
Set Picture = m_picture
End Property
Public Property Let Picture(ByVal New_pic As StdPicture)
Set m_picture = New_pic
Set ImgItem.Picture = New_pic
PropertyChanged "Picture"
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set m_picture = PropBag.ReadProperty("Picture", LoadPicture())
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", m_picture, LoadPicture())
End Sub