VB.Net - Lockbits - Greater Than/Less Than functions

Question

다음 코드는 현재 수행하고있는 작업에 적합합니다. 그러나, 그것은 내가 필요로하는 것보다 오래 걸리고 있습니다. 문제는 함수보다 큼 /보다 작음을 반복하며 시간이 오래 걸린다는 것입니다. 나는 약간의 연구를 해왔지만 더 빨리 실행되도록 모든 것을 줄이는 방법을 알아낼 수는 없습니다.

화소의 RGB 값을 실행해야 할 다음 tests- (1) 하나 개의 값이 250보다 크면, 다른 5 미만 (2) 하나 개의 값 미만인 경우 (5), 다른해야 250보다 커야합니다. (3) 한 값이 0이면 다른 값은 0보다 커야합니다. (2) 두 값의 차이가 15보다 작아야합니다 (또는 내가 설정 한 다른 임계 값) (5) 두 값이 0인지 확인하십시오.

또한 각각의 기능을 수행 한 후에 '종료'를 수행 할 예정입니까?

' Create new bitmap from filepath in TextBox1 
    Dim bmp As New Bitmap(TextBox1.Text) 

    ' Lock the bitmap's pixels 
    Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height) 
    Dim bmpData As System.Drawing.Imaging.BitmapData = bmp.LockBits(rect, _ 
      Drawing.Imaging.ImageLockMode.ReadWrite, _ 
      Imaging.PixelFormat.Format24bppRgb) 

    ' Get the address of the first line 
    Dim ptr As IntPtr = bmpData.Scan0 

    ' Declare an array to hold the bytes of the bitmap 
    Dim bytes As Integer = Math.Abs(bmpData.Stride) * bmp.Height 
    Dim rgbValues(bytes - 1) As Byte 
    System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes) 

    ' Retrieve RGB values 
    Dim RedValue As Int32 
    Dim GreenValue As Int32 
    Dim BlueValue As Int32 
    Dim l As Integer = 0     
    For x = 0 To bmp.Width 
     For y = 0 To bmp.Height - 1 
      l = ((bmp.Width * 3 * y) + (x * 3)) 
      RedValue = rgbValues(l) 
      GreenValue = rgbValues(l + 1) 
      BlueValue = rgbValues(l + 2) 

      If RedValue < 5 AndAlso GreenValue < 5 AndAlso BlueValue > 250 Then 
      ElseIf RedValue < 5 AndAlso GreenValue > 250 AndAlso BlueValue < 5 Then 
      ElseIf RedValue > 250 AndAlso GreenValue < 5 AndAlso BlueValue < 5 Then 
      ElseIf RedValue > 250 AndAlso GreenValue > 250 AndAlso BlueValue < 5 Then 
      ElseIf RedValue > 250 AndAlso GreenValue < 5 AndAlso BlueValue > 250 Then 
      ElseIf RedValue < 5 AndAlso GreenValue > 250 AndAlso BlueValue > 250 Then 
      ElseIf RedValue > 0 AndAlso GreenValue > 0 AndAlso BlueValue.Equals(0) Then 
      ElseIf RedValue > 0 AndAlso GreenValue.Equals(0) AndAlso BlueValue > 0 Then 
      ElseIf RedValue.Equals(0) AndAlso GreenValue > 0 AndAlso BlueValue > 0 Then 
      ElseIf (RedValue - GreenValue) < 15 AndAlso (RedValue - BlueValue) < 15 AndAlso _ 
       (GreenValue - RedValue) < 15 AndAlso (GreenValue - BlueValue) < 15 AndAlso _ 
       (BlueValue - RedValue) < 15 AndAlso (BlueValue - GreenValue) < 15 Then 
      ElseIf RedValue.Equals(GreenValue) Then 
      ElseIf RedValue.Equals(BlueValue) Then 
      ElseIf GreenValue.Equals(BlueValue) Then 
      ElseIf RedValue.Equals(BlueValue) AndAlso RedValue.Equals(GreenValue) _ 
       AndAlso BlueValue.Equals(GreenValue) Then 
      Else 
       MsgBox("Image is color.") 
       Exit Sub 
      End If 
     Next 
    Next 
    MsgBox("Image is grayscale.") 

    ' Unlock the bitmap 
    bmp.UnlockBits(bmpData) 

Answer 1

그레이 컬러는 항상 본 명세서 (R = G = B)있다. 예. #CCCCCC = [R : 204 G : 204 B : 204]

If Not R = G And G = B Then 
MsgBox("colored") 
Exit Sub 
End If