Question

vb6中，使用getpixel和setpixel函数时，程序会卡几秒钟，哪位知道是什么回事？

a = Getpixel(Picture1.hdc,0,0)
For i = 0 to 500
For j = 0 to 600
b = Getpixel(Picture1.hdc, i, j)
If b <> a than
Setpixel(Picture2.hdc, i, j)
End If
Next
Next
程序运行后要卡上几秒才得出以上代码的结果，是怎么回事？
是不是进入了死循环？？

Answer 1

确实是这样的，运行GetPixel和SetPixel相当相当的慢，呵呵，特别是你想要绘制整个图片都用SetPixel的时候，哈哈，所以，不要这样来用

解决的方法：
1。如果你能解析bmp格式，那么，创建BMP图片，然后用LoadPicture加载到Picture中显示
2。如果你会用C++，那么用C++写一个控件，用于绘图
3。用C#或VB.net吧，处理起来相当的快速。