类似下列设计:
Public Property Get MouseIcon() As IPictureDisp
Set MouseIcon = chImage.MouseIcon
End PropertyPublic Property Let MouseIcon(ByVal IconNewValue As IPictureDisp)
Set chImage.MouseIcon = IconNewValue
UserControl.PropertyChanged "MouseIcon"
End Property
或者把IPictureDisp更改成StdPicture都可以运行,但是不能出现像Image中的MouseIcon那样只有(*.cur,*.ico)这一个属性,而是出现(All supported Files),
请问各位高手,怎么才能做到?
Public Property Get MouseIcon() As IPictureDisp
Set MouseIcon = chImage.MouseIcon
End PropertyPublic Property Let MouseIcon(ByVal IconNewValue As IPictureDisp)
Set chImage.MouseIcon = IconNewValue
UserControl.PropertyChanged "MouseIcon"
End Property
或者把IPictureDisp更改成StdPicture都可以运行,但是不能出现像Image中的MouseIcon那样只有(*.cur,*.ico)这一个属性,而是出现(All supported Files),
请问各位高手,怎么才能做到?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货