急救----autoredraw不能创建问题?????

zsloyes 2003-11-12 10:24:12
在vb中,用picture控件打开一幅图像,大约21*25厘米,分辨率为300像素/英寸,要读取图片中某个像素点的rgb值,但在一开始读取像素点的值时程序提示(autoredraw不能创建),帮助显示内存不足!程序如下:

For i = 0 To cX - 1
For j = 0 To cY - 1
->此句出错 tmpCol = GetPixel(Form1.Picture2.hdc, i, j)
r = tmpCol Mod 256
g = (tmpCol / 256) Mod 256
b = tmpCol / 256 / 256
larrCol(0, i, j) = r
larrCol(1, i, j) = g
larrCol(2, i, j) = b
Next j
Form1.ProgressBar1.Value = i * 100 \ (cX - 1)
Next i

望高手帮助!
...全文
32 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧