2744
社区成员
19.7w+
社区内容
- 主页
控件的一个属性的问题，帮忙解决！50分相送
我制作的一个控件，里面涉及到一个图形
就是有一个picture属性
我希望做得和image的picture属性一样，只要点一下，就自动打开文件，然后把图片读进来，并且保存
这个属性好难做啊
请帮我一下
就是一个获得图形并且保存的属性
各位有代码的，请告诉我一下
我要制作一个按扭控件
按扭有图片，不会处理了！
就是有一个picture属性
我希望做得和image的picture属性一样，只要点一下，就自动打开文件，然后把图片读进来，并且保存
这个属性好难做啊
请帮我一下
就是一个获得图形并且保存的属性
各位有代码的，请告诉我一下
我要制作一个按扭控件
按扭有图片，不会处理了！
...全文
areyoupig 2005年03月25日
太感谢了，谢谢！
yunyu97 2005年03月25日
'在你的控件代码中加入如下的代码。
Public Property Get Picture() As Picture
Set Picture = Picture1.Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set Picture1.Picture = New_Picture
PropertyChanged "Picture"
End Property
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", Picture, Nothing)
End Sub
Public Property Get Picture() As Picture
Set Picture = Picture1.Picture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
Set Picture1.Picture = New_Picture
PropertyChanged "Picture"
End Property
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", Picture, Nothing)
End Sub
aiur2000 2005年03月25日
StdPicture属性试试