VB6 ActiveX Image.picture属性

发布时间：2020-12-17 07:18:30 所属栏目：百科来源：网络整理

导读：我试图在VB6中创建一个带有图片属性的ActiveX OCX. picture属性设置并获取控件中图像的图片属性.我希望用户能够在设计时选择图像. 有任何想法吗？谢谢解决方法只需定义IPictureDisp类型的属性即可. Public Property Get Picture() As IPictureDisp Set Pi

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

有任何想法吗？

谢谢

解决方法

只需定义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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!