网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,183贴子：1,165,903
  • 27回复贴，共1页

请教一下，function可以返回一个类对象吗

好比类是point，然后function的返回对象也可以是point吗，今天在function中是定义了一个点p1 as point，通过运算后对p1的属性都赋值了，然后想把p1返回出去，发现出错，是不是vb中function的返回类型只能是整形，字符等基本变量，不可以是自定义类对象


有人吗


函数类型当然可以是对象
对象赋值应该用Set，比如函数名为Fun，则返回值的语句就是Set Fun=p1


Private Sub Form_Load()
Dim ico As IPictureDisp
SetPic ico
End Sub
Private Sub SetPic(p1 As StdPicture) '这里的参数不是ByVal传值，是ByRef传址，可以适用这各类型(Long、自定义结构、对象等)
Set p1 = Me.Icon
End Sub
'以上是在参数中返回，也可以Function的返回值返回
Private Function SetPic2() As StdPicture
Set SetPic2 = Me.Icon
End Function
用sub还是function，看需要，怎么方便怎么来



关键字着色后看起来容易理解，截图



参考，是不是符合你的


Private mProp() As Object
Property Get Prop(Index As Long) As Object
Set Prop = mProp(Index)
End Property
Property Set Prop(Index As Long, Value As Object)
Set mProp(Index) = Value
End Property
大概就像这样吧，需要说明的是，如果使用属性数组，那么一次只能访问一个数组元素，想要一次性得到整个数组，应该还是要写方法来实现的


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 27回复贴，共1页
分享到: