7,788
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xiaoxinghappy 2003-12-19
- 打赏
- 举报
数组用 Earse 释放
脆皮大雪糕 2003-12-19
- 打赏
- 举报
同意冰的做法，我以前也以为vb会自动清理，其实不然。更加严重的是，如果你的对象中含有动态数组并且没有显式释放，那么你的对象将无法释放，即使用set object=nothing也没有用。我以前做的一个项目就是因为这个原因能够在短时间内将内存全部吃光，找了半个月才发现问题所在
LemonRain 2003-12-19
- 打赏
- 举报
晕~~~
cqbonny 2003-12-19
- 打赏
- 举报
shwen(shwen) 就是没有释放呀，好郁闷
程序运行了一个星期，用了内存1.5G
程序运行了一个星期，用了内存1.5G
shwen 2003-12-19
- 打赏
- 举报
不用释放，VB会自动释放为动态数组分配的内存。
cqbonny 2003-12-19
- 打赏
- 举报
PrettyMurphy(土豆) :不行
SoHo_Andy 2003-12-19
- 打赏
- 举报
实例
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
Open "d:\draw.ico" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
Erase arrBytes
End Sub
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
Open "d:\draw.ico" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
Erase arrBytes
End Sub
PrettyMurphy 2003-12-19
- 打赏
- 举报
set SendByte=nothing 不行？
cqbonny 2003-12-19
- 打赏
- 举报
Erase SendByte
这样写？？？？？
这样写？？？？？
SoHo_Andy 2003-12-19
- 打赏
- 举报
Erase 数组名[，数组名...]
