有任何想法吗?
谢谢
解决方法 只需定义IPicturedisp类型的属性即可.Public Property Get Picture() As IPicturedisp Set Picture = UserControl.PictureEnd PropertyPublic 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 WithEnd SubPrivate Sub UserControl_WritePropertIEs(PropBag As propertybag) With PropBag ... .WriteProperty "Picture",Me.Picture,nothing ... End WithEnd Sub总结
以上是内存溢出为你收集整理的VB6 ActiveX Image.picture属性全部内容,希望文章能够帮你解决VB6 ActiveX Image.picture属性所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)