VB6的ActiveX Image.picture财产

Question

我试图在VB6中创建ActiveX OCX与图片属性。图片属性设置并获取控件中图像的图片属性。我希望用户能够在设计时选择图像。

任何想法？

感谢

Answer 1

只要定义IPictureDisp类型的属性。

Public Property Get Picture() As IPictureDisp 
    Set Picture = UserControl.Picture 
End Property 

Public Property Set Picture(ByVal p As IPictureDisp) 
    Set UserControl.Picture = p 
    PropertyChanged "Picture" 
End Property 

不要忘记保存到/道具袋写着：

Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
    With PropBag 
    ... 
    Set Me.Picture = .ReadProperty("Picture", Nothing) 
    ... 
    End With 
End Sub 

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
    With PropBag 
    ... 
    .WriteProperty "Picture", Me.Picture, Nothing 
    ... 
    End With 
End Sub