自制控件　Picture属性　提示属性使用无效！

Public Property Set glidePicture(Pic As IPictureDisp)
  Set ImageM(1).Picture = Pic
  PropertyChanged "glidePicture"
  End Property
    
  Public Property Get glidePicture() As IPictureDisp
  Set glidePicture = ImageM(1).Picture
  End Property在FORM1中用的是资源
　USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)

解决方案 »

  1.   

    CathySun118(斯年) ：还是不行。一样的错误：（
      

  2.   

    Set ImageM(1).Picture = Pic   你还未声明变量.
    你需要加下程序 Dim pic As String
      

  3.   

    set USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)
      

  4.   

    HotUs() 谢谢了。这样是对的了。。能不能说一下。不用set USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)
    而是直接的像PICTURE.PCITUREP=...这样的呢＞＞？？？
      

  5.   

    你要在前面加set的.如:set USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)
      

  6.   

    好象不行，我做的控件也必须用SET 才行