×××自定义控件问题×××UP有分×××

gaoqi5037 2002-04-29 10:24:35

自已做了一个控件。有一个Pic属性我想做成和PictureBox.picture属性一样。
Public Property Get Pic() As Picture
Set Pic = UserControl.Picture
End Property

Public Property Let Pic(ByVal vNewValue As Picture)
UserControl.Picture = vNewValue
End Property
属性赋值时有错误 “错误的参数号或无效的属性赋值”
上面的代码好象少了什么东西。可我又不知

...全文

27 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

happybeyond 2002-04-29

打赏
举报

来晚了！up!

gaoqi5037 2002-04-29

打赏
举报

谢谢大家。问题解决

asglw 2002-04-29

打赏
举报

Public Property Get Picture() As Picture
Set Picture = picBitmap.Picture
End Property

Public Property Let Picture(ByVal NewPicture _
As Picture)
Set picBitmap.Picture = NewPicture
PropertyChanged "Picture"
End Property

Public Property Set Picture(ByVal NewPicture _
As Picture)
Set picBitmap.Picture = NewPicture
PropertyChanged "Picture"
End Property

gump2000 2002-04-29

打赏
举报

Public Property Get Pic() As Picture
Set Pic = UserControl.Picture
End Property

Public Property Set Pic(ByVal vNewValue As Picture)
Set UserControl.Picture = vNewValue
End Property

用Property 的 Set
因为picture是对象

gump2000 2002-04-29

打赏
举报

lily0000000 2002-04-29

打赏
举报

帮你UP

gaoqi5037 2002-04-29

打赏
举报

Public Property Get Pic() As Picture
Set Pic = UserControl.Picture
End Property

Public Property Let Pic(ByVal vNewValue As Picture)
set UserControl.Picture = vNewValue
End Property
一样的错误。我早试过的

gump2000 2002-04-29