求助用户自定义控件image的问题 希望指点....晕了....

Question

我将UserControl的Picture 映射到我自定义控件上的 image.picture属性上 我在窗体上代码如下 Private Sub Command1_Click()
userCONtrol1.Picture = ImageList1.ListImages(1).Picture
End Sub提示 属性的使用无效 ..........
什么原因呢.........怎么解决 请 高手指点.................

Answer 1

set userCONtrol1.Picture = ImageList1.ListImages(1).Picture

Answer 2

Public Property Get Picture() As Picture
    Set Picture = Image1.Picture
End PropertyPublic Property Set Picture(ByVal New_Picture As Picture)
    Set Image1.Picture = New_Picture
    PropertyChanged "Picture"
End Property
Public Property Let Picture(ByVal New_Picture As Picture)
    Set Image1.Picture = New_Picture
    PropertyChanged "Picture"
End Property我这么写也好用

Answer 3

晕死了  可以给我讲讲  Public Property LetPublic Property SetPublic Property Get的用途吗. 我知道  set 是给对象赋值  上边三个 在区分....