类-字典-数组-集合-接口-窗体

枫叶爱小猫

楼主加油！坐等更新！

tonny_wu

楼主加油，支持！！！
四本书的链接能否更新一下。感谢。我在京东上买了两本。有两本找不到。十分感谢。

hyefeifei

释放内存

       如果各位下载了附件6并进行了测试，我请你再打开附件6，然后打开任务管理器，用鼠标不断点击“测试捕获事件”按钮，会出现excel所占内存在不断增长，我们查看一下代码：

1. Sub 测试捕获事件()
   
2.     Dim rng As Range, i As Long
   
3.     If Not rngD Is Nothing Then
   
4.        Set rngD = Nothing                 ‘内存增长说明此句没起作用
   
5.     End If
   
6.     Set rngD = New rngFormatDS           '实例化类，形成对象
   
7.     Set rngD.Sheet = ThisWorkbook.Sheets("sheet1")
   
8.     For Each rng In Range("a1:a41")
   
9.         rngD.Add rng
   
10.     Next
    
11.     For i = 1 To rngD.Count
    
12.         rngD.Items(i).unColor
    
13.     Next
    
14. End Sub
    

复制代码

       内存不断增长的事实，说明代码中set rngD=Nothing 这句没起作用。这是因为rngD中包括了rngFormat实例，rngFormat实例有Parent属性，引用了rngD，这种自身缠绕，使得当你消除rngD对象时，并不能消除rngFormat对象。所以，我们需要在rngFormatDS类中，增加个方法，引用这个方法，即可消除每一个rngFormat实例，方法如下：

1. Public Sub Terminate()
   
2.     csDic.RemoveAll
   
3. End Sub

复制代码

       因为我们是用字典存储rngFormat实例的，字典的removeall可以把它所含的所有对象置为nothing。

但是如果在集合类中，我们不是用字典存储对象，而是用collection或者数组来存储对象，那么想释放内存就麻烦的多，那样的话，首先，我们就不得不在rngFormat类中构建一个方法，解除对父类的引用。然后再在父类中构建方法，利用循环，依次把子类的实例置空。在这里，不嫌麻烦的网友可以自己测试一下，这里就不麻烦给出代码了。

最后，我们还只要把SetrngD = Nothing这句改为rngD.Terminate就可以了。或者保留这句，在它前面加上rngD.Terminate也行。Set rngD = Nothing 这句不要的话，虽然rngD不为nothing，但是因为它之中的csdic已经清空了，所以也就不占内存了。所以说要不要皆可。至此为止的代码，见附件7 类_7.rar (39.37 KB, 下载次数: 94)

2015-3-28 15:09 上传

点击文件名下载附件

zhouzhongchi

写的太好了，一口气看了下来，对类模块有了初步认识。谢谢楼主！
有待慢慢消化，多多练习。

zhouzhongchi

期待楼主的ADO

ljch1327

恨不弄错的总结啊，需要在继续啊

龙城飞将III

感谢楼主的精彩讲解，如此好贴，相见恨晚。

Howard7738

深入浅出，高度总结，专业与科普的紧密结合，感谢您！

srneutron

多谢楼主分享，下载学习。

baneit319

mark一下，感谢楼主对类模块使用经验的分享。