level 1
有人吗
2022年10月02日 01点10分
level 15
函数类型当然可以是对象
对象赋值应该用Set，比如函数名为Fun，则返回值的语句就是Set Fun=p1
2022年10月02日 02点10分
3
对象赋值应该用Set，比如函数名为Fun，则返回值的语句就是Set Fun=p1
好的，太感谢了，多谢赐教，再次感谢
2022年10月02日 03点10分
再请问一个可以吗，就是一个对象的方法可以调用对象自身的吗，好比两直线产生一个交点，好比line1.jiaodian(line2)，返回一个点，但是计算交点肯定需要line1和line2两个对象，但是我不想参数里面写两个变量看着啰嗦，只想着一个line2，请问可以调用对象自身吗，
2022年10月02日 03点10分
level 13
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，看需要，怎么方便怎么来
2022年10月02日 02点10分
4
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，看需要，怎么方便怎么来
level 13
关键字着色后看起来容易理解，截图
level 13
level 15
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
大概就像这样吧，需要说明的是，如果使用属性数组，那么一次只能访问一个数组元素，想要一次性得到整个数组，应该还是要写方法来实现的
2022年10月03日 03点10分
8
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
大概就像这样吧，需要说明的是，如果使用属性数组，那么一次只能访问一个数组元素，想要一次性得到整个数组，应该还是要写方法来实现的
老师，你的意思就是说写入这个数组也只能一次一个吗，像这样 obj.prop(0,obj0) obj.prop(1,obj1) 不能同时写入两个吗，像这样 obj.(obj0,obj1) 然后在properpty set过程里面让mprop(0)=obj0，mprop(1)=obj1，或者在过程里面定义一个临时数组，把obj0，obj1赋给这个临时数组，再把这个临时数组赋给mprop
2022年10月03日 03点10分
老师，因为读取过程用的property get，写入过程用sub，那只能用不同的方法名，我想写入和读取都用prop
2022年10月03日 03点10分