How to Scan a picture in a PictureBox ?

[Anoosha]

Dear Programmers I need your help,
I have a PictureBox there I load A picture retrieved from Database.
This so far good, but Now I want to scan the picture line by line horizontaly, to find which line of the picture that contains most pixels. How can I do that ?
Many Thanx

[Killer42]

What version of VB?

[Anoosha]

Hi Killer.

I use VB6.0 for this project.
I read a picture in a picturebox. The picture is a Signature.
I have 10 lines and I need to locate them there (on the Signature-Picture) which have the most pixels with a horizontaly direction. For that I scan the height of the picture, line by line. (I hope I am giving a clear view of what I am doing so far!)

'---------------------------------------------
Here I send U my codes. Each line I scan I get the black pixels which are continuously laid after each other(The signature is black on a white paper).
Each time I find the segment I count the black pixels and then save it to an array, the next segment of the same line if bigger than the previous value is replaced.
'------------------------------------------------------------------------------------------------------------------
'I scan the height of the picture horizontaly and find the biggest value of black-pxls that are continuously laid,
'after each other on a line, the first 10 line and store them in arrLines().
'For the lines with height >=10, if their biggest value is bigger than the smallest value in the array, I replace.
'------------------------------------------------------------------------------------------------------------------

  Dim X As Long, lW As Long, Y As Long, lH As Long, lPxl As Long
  Dim arrLines(0 To 9) As Long, arrHeight(0 To 9) As Long, arrTemp(0) As Long
  Dim nNumPxl As Integer, nCompare As Integer
  Dim nVal1 As Integer, nVal2 As Integer, nSmall As Integer, nIdx As Integer, i As Integer
  Dim nResult As Integer, nIdxResult As Integer
 
  lW = lPicWPxl
  lH = lPicHPxl
  nResult = 10000
  For Y = 0 To lH
    For X = 0 To lW
      lPxl = GetPixel(Pic_Overview.hdc, X, Y)
      If lPxl = 0 Then
        nNumPxl = nNumPxl + 1
'        MsgBox nNumPxl
      Else
        If nNumPxl > 0 Then
          If Y < 10 Then                'The first 10 lines.
            nCompare = arrLines(Y)
            If nNumPxl > nCompare Then
              arrLines(Y) = nNumPxl
            End If
            nNumPxl = 0
          Else                          'From Y>=10 compare the value with the smallest value in arrLines(), if the value bigger than the smallest replace it!
            nCompare = arrTemp(0)
            If nNumPxl > nCompare Then
              arrTemp(0) = nNumPxl
            End If
            nNumPxl = 0
          End If
        End If
      End If
    Next X
    If Y < 10 Then
      arrHeight(Y) = Y
    Else
      For nIdx = LBound(arrLines) To (UBound(arrLines) - 1)
        nVal1 = arrLines(nIdx)
        nVal2 = arrLines(nIdx + 1)
        If nVal2 < nVal1 Then
          nSmall = nVal2
          i = nIdx + 1
        Else
          nSmall = nVal1
          i = nIdx
        End If
        If nSmall < nResult Then
          nResult = nSmall
          nIdxResult = i
        End If
      Next nIdx
      If arrTemp(0) > nResult Then
        arrLines(nIdxResult) = arrTemp(0)
        arrHeight(nIdxResult) = Y
      End If
      nResult = 10000
      arrTemp(0) = 0
    End If
'    nNumPxl = 0
  Next Y
'---------------------Set 10 lines!
  Line_GetPxl1.Y1 = arrHeight(0)
  Line_GetPxl1.Y2 = Line_GetPxl1.Y1
  Line_GetPxl1.Visible = True
  Line_GetPxl2.Y1 = arrHeight(1)
  Line_GetPxl2.Y2 = Line_GetPxl2.Y1
  Line_GetPxl2.Visible = True
'
'
'-----------------------------------etc 

This solution is not accepted (by boss). According to him I need to find the direction of each pixel!
I have seen on Internet its about MATLAB and very complicated math-calculation and transformation and so on....
I am lost and I need help.
Do U have any idea for my problem ?
Thank U on forhand.
/Anoosha

What version of VB?

[Killer42]

A pixel doesn't have a direction, just a colour.

Anyway, I'll go through this at lunch time and see whether I can think of anything that might help (don't have time right now).