-
Hi, i'm traying to read a BitMap and save in a file the color of each pixel in the bitmap, I selected vbPixels
ScaleMode = vbPixels
Open "c:embone.dat" For Output As #1
For I = picFoto.Height - 1 To 0 Step -1
For J = picFoto.Width - 1 To 0 Step -1
Color = picFoto.Point(I, J) 'I write the color
Write #1, Color, I, J 'and position of
Next J 'pixel x,y
Next I
Close #1
but all I get in the file is
-1, 500, 400
-1, 500, 399
............
Do you have any idea about what's wrong?
VB Help says -1 means that the point (x,y) is outside the picture. Any suggestion?
-
You should use ScaleHeight and Scalewidth properties instead of Height and Width
