[已解决][求助]这样就溢出啦？？？？

wbzxz

今天在学习类模块过程中，无意中碰到了溢出错误。
代码如下：

类模块代码

1. Option Explicit
   
2. 
   
3. Property Set prRng(trRange As Range)
   
4.     Set prRng = trRange
   
5. End Property

复制代码

标准模块代码

1. Sub test()
   
2.     Dim myClass As Class1
   
3.     Set myClass = New Class1
   
4.     Set myClass.prRng = Range("C1:D4")
   
5. End Sub
   

复制代码

问题很明显，是Property Set 过程写错啦，但是我很想知道为什么会溢出呢，老师能给指点一下吗？

（我用F8调试，竟然发现，一直在执行Property Set 过程的）


溢出错误.rar (8.56 KB, 下载次数: 2)

2011-4-15 09:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

阿童木

2011-4-15 09:54

Property Set prRng(trRange As Range)
    Set prRng = trRange
End Property

死循环！
当执行Set prRng = trRange时，会再次执行Property Set prRng过程，然后再执行Set prRng = trRange，然后再执行Property Set prRng过程。。。。以此类推

跳转到最佳答案楼层

阿童木

Property Set prRng(trRange As Range)
    Set prRng = trRange
End Property

死循环！
当执行Set prRng = trRange时，会再次执行Property Set prRng过程，然后再执行Set prRng = trRange，然后再执行Property Set prRng过程。。。。以此类推

阿童木

一般是这样的

1. Option Explicit
   
2. Private rng As Range
   
3. '赋值
   
4. Property Set prRng(trRange As Range)
   
5.     Set rng = trRange
   
6. End Property
   
7. '访问属性
   
8. Property Get prRng()
   
9.     Set prRng = rng
   
10. End Property

复制代码

wbzxz

哈哈，嘿嘿，知道啦，amule老师，原来在在Property Set过程中执行Set prRng=trRange，也会触发Property Set prRng过程啊。
原来死循环啦，最后就累死啦。