实时错误"内存溢出"

Question

我自己做了个图片对比的函数
....................................我自己的函数声明
Picture1.Picture = LoadPicture(App.Path & ......)
..............................
.....................图片对比的代码
.....................................结束
运行大概100多次后系统提示"内存溢出"
错误代码被指向  Picture1.Picture = LoadPicture(App.Path & ......)
Picture1的Autosize属性我设成了true  边框属性设成了0-None
其他的没有动 
这怎么办 若各位认为错误原因不在这里 有没有什么方法来找出错误的原因。。
求各位大神 不要答了一半就丢下不管了 新手自学不容易啊。。

Answer 1

本帖最后由 bcrun 于 2012-04-26 10:05:28 编辑

  

Answer 2

本帖最后由 bcrun 于 2012-04-26 10:06:28 编辑

  

Answer 3

bi24BitInfo.bmiHeader.biWidth = xcc + 1
这句为什么要加1

Answer 4

ReDim bits(3, 0 To xcc, 0 To ycc) As Byte
 bi24BitInfo.bmiHeader.biWidth = xcc + 1
这个原因。。 

Answer 5

ReleaseDC 0, hDC '比较可疑，前面没有与 hDC 相关的代码

Answer 6

[Quote=引用 8 楼  的回复:]VB code
ReleaseDC 0, hDC '比较可疑，前面没有与 hDC 相关的代码
在bitblt那句中有getdc(0)

Answer 7

那和 hDC 有什么关系？

Answer 8

你搞错啦，不用+1的
 xcc = Picture1.ScaleWidth / 15
ReDim bits(3, 0 To xcc-1, 0 To ycc) As Byte
 bi24BitInfo.bmiHeader.biWidth = xcc

Answer 9

ycc 也要-1或1 to xcc