为什么我的程序会耗尽系统资源？？？

Question

很可能是变量未处理好，检查你的循环里的变量，加上Set ... nothing 之类。

Answer 1

我已经检查过了，每个用过的变量我都老老实实地加了Set ...= nothing 

Answer 2

楼上说的没错，很有可能是你没有释放控件
比如
dim itmx as listitem
set itmx=me.listview1.listitem.add()
.
.set itmx=nothing

Answer 3

你检查以下你的程序，我昨天也遇到这种情况
不过我是在读数据库时少了一个rs.movenext

Answer 4

有没有循环？如果你用了循环中有doevents的话，可能这个循环一直没有退出。
循环很耗资源的。

Answer 5

还是检查自己的程序吧，一定是资源没有释放，比如Form.hide

Answer 6

我添加了以下代码，卸载所有的窗体，但资源还是没有被释放。
dim frm as form
for each frm in forms
  if not （frm=me） then unload frm
next “循环一直没有退出”这种情况没有

Answer 7

最简单，如果是逐渐耗尽，在循环里加入断点，每运行一次或几次，检查系统情况，看是在哪一步消耗资源的，Win98里Explore下可查看资源状况的。

Answer 8

windows的系统资源指的是什么，好象和内存无关。

Answer 9

windows的系统资源指的是什么？好象和内存无关。

Answer 10

系统资源指占用cpu时间，内存使用等等。
如果在form的unload以后，你又调用了这个form的任何东西。包括控件，控件属性，方法，事件，以及你自定义的过程或韩数，都会引起form的unload事件而不会显示窗体。

Answer 11

“都会引起form的unload事件而不会显示窗体”
改成
“都会引起form的load事件而不会显示窗体” ：）

Answer 12

谢谢各位的热心帮助，问题已经解决了，是imagelist控件若的祸。再次谢谢各位，以后还请各位多指教！

Answer 13

另外，我感觉WINDOWS的系统资源应该是指图形句柄，环境句柄，等，而不是内存，CPU这类东西。

Answer 14

我给不了分，怎么回事？老是说HTTP 500内部服务器错误？