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

来源:百度知道 编辑:UC知道 时间:2024/09/23 04:35:42
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
程序运行后要卡上几秒才得出以上代码的结果,是怎么回事?
是不是进入了死循环??

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

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