为什么执行Erase后Excel会发生崩溃？

rkexy

1. <div class="blockcode"><blockquote>'初始化空间为 10
   
2. Private Sub Class_Initialize()
   
3.     ReDim m_datas(1 To init_space)
   
4.     Dim i As Integer
   
5.     For i = 1 To init_space Step 1
   
6.         '无论何时，对象之间赋值需要 Set 关键字
   
7.         Set m_datas(i) = Nothing
   
8.     Next
   
9.     m_length = 0
   
10.     m_useable_length = init_space
    
11.     m_element_type = ""
    
12. End Sub
    
13. 
    
14. Private Sub Class_Terminate()
    
15.     'Erase m_datas '这句崩了，下面两句没问题
    
16.     Call Clean
    
17.     ReDim m_datas(0)
    
18. End Sub
    
19. '清除所有数据
    
20. Public Function Clean()
    
21.     Dim i As Long
    
22.     For i = 1 To m_length
    
23.         Set m_datas(i) = Nothing
    
24.     Next
    
25. End Function

复制代码

然后我在一个Sub中测试这个类

1. Sub test()
   
2.     Dim map As Object_vector
   
3.     Dim i As Long
   
4.     Dim each_tile As Coord
   
5.    
   
6.     Set map = New Object_vector
   
7.    
   
8.     For i = 1 To 3270 Step 1
   
9.         Set each_tile = New Coord
   
10.         each_tile.x = i
    
11.         each_tile.y = i
    
12.         each_tile.coord_type = NONE
    
13.         
    
14.         Call map.Insert(i, each_tile)
    
15.     Next

复制代码

为了把问题更全面，我把Coord类也贴出了，不过我认为和它没关系

1. Public Enum ENUM_COORD_TYPE
   
2.     NONE = -1
   
3.     GROUND = 0
   
4.     WALL = 1
   
5. End Enum
   
6. 
   
7. Private m_x As Integer
   
8. Private m_y As Integer
   
9. Private m_coord_type As ENUM_COORD_TYPE    '坐标类型
   
10. 
    
11. Private Sub Class_Initialize()
    
12.     m_x = -1
    
13.     m_y = -1
    
14.     m_coord_type = NONE
    
15. End Sub
    
16. 
    
17. Private Sub Class_Terminate()
    
18.     m_x = -1
    
19.     m_y = -1
    
20.     m_coord_type = NONE
    
21. End Sub

复制代码

rkexy

那个test函数最后有个

1. End Sub

复制代码

也就是这句话崩了。我执行“执行代码至光标处”，也就是这个，没问题，再执行，Excel就无响应了。注掉Object_vector类中的Erase m_datas就不崩溃。