取得图片所有像素点颜色

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:39:53
如一张图片大小为12*12(单位:像素),格式为bmp
如何同时取得这张图每个像素点的颜色,
就像在PS中图片放大N倍后,可以看到他是12*12个小格子组成,现要精确取得每一小格颜色与坐标:如坐标(1,0).
不是用鼠标移到图片上,就返回值,可是通过单击其它控件就可得出所有坐标与该坐标颜色
有效回答追加50分
1楼的不太准备,取得的RGB值转换后与在PS中得出的不一样..

'下面代码获取picture1内图像所有像素的RGB值，并存放到数组mRGB()中，供你使用。

Private Sub Command1_Click()
Dim X As Long, Y As Long
Dim mRGB() As Long
ReDim mRGB(Picture1.ScaleWidth, Picture1.ScaleHeight)
For X = 0 To Picture1.ScaleWidth
DoEvents
For Y = 0 To Picture1.ScaleHeight
mRGB(X, Y) = Picture1.Point(X, Y)
DoEvents
Next
Next
End Sub