VB.NET CONVERT BYTE NUMBER 8 бит (256 цветов) RGB VALUE

Question

Я прочитал эту ссылку Converting 8 bit color into RGB value

Затем я попробовал код VB.NET, как в следующем:

Private Sub picturebox1_MouseDown(ByVal sender As Object, _ 
          ByVal e As System.Windows.Forms.MouseEventArgs) _ 
          Handles picturebox1.MouseDown 

    Dim bm As New Bitmap(picturebox1.Image) 
    Dim Red As Byte = bm.GetPixel(e.X, e.Y).R 
    Dim Green As Byte = bm.GetPixel(e.X, e.Y).G 
    Dim Blue As Byte = bm.GetPixel(e.X, e.Y).B 

    Dim ColorNumber As Byte = ((Red/32) << 5) + ((Green/32) << 2) + (Blue/64) 

    ' Show Byte Number of color 
    MsgBox(ColorNumber) 

    MsgBox(Red & ":" & Green & ":" & Blue) 

    Red = (ColorNumber >> 5) * 32 
    Green = ((ColorNumber >> 2) << 3) * 32 
    Blue = (ColorNumber << 6) * 64 

    MsgBox(Red & ":" & Green & ":" & Blue) 


End Sub 

Но когда один пиксель , возникает ошибка:

Арифметическая операция привела к переполнению.

Как получить значение байта изображения с 256 цветами (8 бит), а затем восстановить (преобразование) итоговое значение байта в значение RGB.

спасибо :)

Answer 1

Ваш Номер_цвета был объявлен как байт, который может хранить только значения от 0 до 255 ... Изменить код для этого:

Dim ColorNumber As Int32 = ((Red/32) << 5) + ((Green/32) << 2) + (Blue/64) 

Кроме того, так как вы» повторно используя .Net, вы можете просто получить цвет с помощью этой функции:

Dim color As Color = Color.FromRgb(Red, Green, Blue)