在VBA中使用InputBox会引起GDI泄露，微软Bug？

小fisher

今天花了很长时间修正我的VBA版打气球游戏（已发“原创下载”版），原因是游戏结束后GDI对象的个数不能回归游戏开始前的数值，调试了一晚上，终于发现问题居然出在InputBox语句中，通过以下实验，证实了我的想法：
1。新建一个空白工作表，进入VB编辑器，新建一个空白窗体，加入以下代码：
Private Sub UserForm_Click()
    InputBox ""
End Sub
2。按Ctrl + Shift + ESC打开任务管理器，转到“进程”，从“查看－选择列”中选中“GDI对象”
3。运行窗体，记下当前Excel进程的GDI对象数目，在UserForm上点击，然后在弹出的InputBox中点确定或取消，可以看到Excel进程的GDI对象数目增加了1，重复N次，GDI对象数目增加N，一直不会释放，即使关闭UserForm窗体，Excel进程的GDI对象也比未打开窗体之前增加了N
4。更过分一点，使用下列代码：
Private Sub UserForm_Click()
    For i = 1 To 300
        InputBox ""
    Next
End Sub
记住Excel进程的GDI对象数目，按F5运行窗体，在窗体上点击一下以后一直按ESC不松手，待所有Inputbox全部关闭以后，关闭窗体，可以看到Excel进程的GDI对象数量增加了300。
这是微软的Bug还是我电脑的问题？在网上没有搜到相关解释，请各位帮我测试一下。
在此还要提醒各位，事情没弄清之前尽量使用Application.InputBox来代替InputBox，因为前者没有发现此问题

fdd

这个问题有点高深，以致无其它人回应。所谓“高处不胜寒”啊！

Scarlett_88

我在窗体和工作表中都试过，结果同你的一样
Application.InputBox 执行增加3个，退出释放3个
InputBox 执行增加2个，退出只释放1个。所以每执行一次就会增加1个GDI 对象。
资源泄漏耶。
默认GDI对象10000个，2000版可以设置到16K，2003版可以设置到64K，当程序创建的GDI对象数达到设定值之后界面就会混乱。

Scarlett_88

原帖由 fdd 于 2009-5-22 07:03 发表
这个问题有点高深，以致无其它人回应。所谓“高处不胜寒”啊！

看你话说的，你应该说“曲高和寡”

寅鹞

菜菜围观高手论道中。

fdd

原帖由 Scarlett_88 于 2009-6-17 08:15 发表

看你话说的，你应该说“曲高和寡”

我说的与你说的是两面。

sunsoncheng

GDI对象的个数为1W应是指所有的总量吧?
但分到EXCEL中可能就没有这个数了

还有就是如楼主所说,其实我们自己写的好多程序,都会使GDI上升而回复不了

这种情况该如何处理才好呢?

lhdcxz

高深的题目，我等仰而观止。

梵高先生

叹为观止的东西。

ljch1327

看到帖子最后了，不知所云。