高分求教,一个困了我长时间的问题.

[Hideal]

我写的程序一直都有资源不足的问题,要不然就很容易死机.
比如:
A.jpg是一个1000k的图像.
for i=1 to 50
picture1.picture=loadpicture(“c:\A.jpg”)
set picture1.picture=nothing
next i
多运行N次就死了,或打开了其它程序就不行了,或在调入图片的过程中就死了.

还有如果我用:
dim x_rs_1 as new adodb.recordset
set x_rs_1=new adodb.recordset
x_rs_1.open “…”,,,
if x_rs_1.state=1 then x_rs_1.close: set x_rs_1=nothing
多运行N次也死了,或打开了其它程序再运行就不行了.

請問真正要怎樣解決啊, 我用Delphi的控件調入圖片從來都不會啊

幫我啊!!!

[aohan]

for i=1 to 50
picture1.picture=loadpicture(“c:\A.jpg”)
set picture1.picture=nothing
next i

不知道你这样做有什么目的，@_@

[Hideal]

我只是想證一下我有類似代碼.
在一個窗體中執行
picture1.picture=loadpicture(“c:\A1.jpg”)
picture2.picture=loadpicture(“c:\A2.jpg”)
picture3.picture=loadpicture(“c:\A3.jpg”)
然後窗體關時
set picture1.picture=nothing
set picture2.picture=nothing
set picture3.picture=nothing
然後反復開關窗體就不行了資源不足或死機

[aohan]

//dim x_rs_1 as new adodb.recordset
///set x_rs_1=new adodb.recordset '这一句就不要再用了

或者你声明时dim x_rs_1 as adodb.recordset

[Hideal]

to aohan(景升):
dim x_rs_1 as new adodb.recordset
set x_rs_1=new adodb.recordset
x_rs_1.close:set x_rs_1=nothing
這樣不是已經不佔內存了嗎?
dim x_rs_1 as adodb.recordset和
dim x_rs_1 as new adodb.recordset
set x_rs_1=new adodb.recordset 佔內存和意義有什么不同?

[Hideal]

幫我啊!

[homezj]

循环中容易出这种问题，这可能与VB的单线程机制有关，你试试在Next前，加句Doevents看看。

[Hideal]

UP

[fishmans]

楼主同志，你是不是32M内存啊？

[小白兔]

把 Picture 控件的 AutoRedraw 设置为 True

[thisme2401]

建议采用image控件显示图片，这个占的内存比PictureBox少多了。

[flc]

dim x_rs_1 as new adodb.recordset
或者
dim x_rs_1 as adodb.recordset
set x_rs_1=new adodb.recordset
两者作用差不多是一样的，就是第二中方法比较正规哦

[行云边]

for i=1 to 50
picture1.picture=loadpicture(“c:\A.jpg”)
picture1.picture=loadpicture
next i

[Hideal]

picture1.picture=loadpicture
和
SET picture1.picture=loadpicture
有不同嗎?

[胖河马]

你vb打补丁了吗？一个4.87M的jpg，用你的代码循环1000次没出现任何问题

[胖河马]

dim x_rs_1 as new adodb.recordset
vb运行时会在你调用x_rs_1的时候检测对象是否已经创建，如果没有就创建一个对象

dim x_rs_1 as adodb.recordset
在使用x_rs_1前必须使用new创建对象

dim x_rs_1 as new adodb.recordset
set x_rs_1=new adodb.recordset
这两句一起使用没什么问题，不过第二句比较多余，有没有都一样