vb 图片分析

来源：百度知道 编辑：UC知道 时间：2024/06/28 15:40:46
就是简单的图片（像素低的），比如说90*90的图片90*90=8100个点上的颜色值怎么输出？
16777215，这个结果对吗？
可以输出到txt里吗？
结果是： 16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215
16777215

对吗？ 是8100个16777215吗？

i=picture1.point(10,10)
返回（10，10）这一象素点得颜色
以长整数表示
blue=a \(256*256) 蓝色分量
b=a mod （256*256)
green=b \ 256 绿色分量
red=b mod 256 红

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer

picture1.AutoSize = True
picture1.ScaleMode = 3

picture1.Picture = LoadPicture("c:\90_90.bmp")

Open "c:\1.txt" For Output As #1
For x = 0 To 89
For y = 0 To 89
Print picture1.Point(x, y)
Print #1, picture1.Point(x, y)
Next y
Next x

Close #1
End Sub

是81个点的颜色
具体值就要看图片文件了