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

不要忘记保存到 Prop 包/从 Prop 包中读取:

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