Results 1 to 2 of 2

Thread: BitMap To Numbers

  1. Nov 23rd, 2000, 06:09 PM #1
    rosas
    rosas is offline

    Thread Starter
    New Member
    Join Date
    Nov 2000
    Location
    Mexico DF
    Posts
    1

    Question

    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?
    =)
    Reply With Quote Reply With Quote
  2. Nov 23rd, 2000, 06:26 PM #2
    kedaman
    kedaman is offline
    transcendental analytic kedaman's Avatar
    Join Date
    Mar 2000
    Location
    0x002F2EA8
    Posts
    7,221
    You should use ScaleHeight and Scalewidth properties instead of Height and Width
    Use
    writing software in C++ is like driving rivets into steel beam with a toothpick.
    writing haskell makes your life easier:
    reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
    To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width