-2

プロジェクトでこの関数を修正する方法を知りたいのですが、

私の計画は

picBox2 をビットマップにする

それからRGBピクセルを取得します

その後、新しいビットマップに戻してから、この関数を使用して画像の色を変換できます

私はこのように書きました：

    For row = 1 To 300
        For col = 1 To 300
            'MsgBox(row, MsgBoxStyle.YesNo + MsgBoxStyle.Question, "DEBUGSHIT")

            PixelColor = BitMapforRGB.GetPixel(row, col)
            PixelColor = BitMapforRGB.GetPixel(row, col)

            R = (PixelColor.R + vsbRed.Value) * 0.5
            G = (PixelColor.G + vsbGreen.Value) * 0.5
            B = (PixelColor.B + vsbBlue.Value) * 0.5

            Dim newColor As New Color
            newColor = Color.FromArgb(R, G, B)

            RGBtoBitmap.SetPixel(row, col, newColor)

        Next
    Next

    'I try to change it to 
    'Dim MyShade As Color = ColorTranslator.FromOle(
    '   RGB(Red(row,col),Green(row,col),Blue(row,col))
    'but it seem not right.

    Dim reColor As New Bitmap(Me.pixBox2.Image)
    pixBox2.Image = reColor
End Sub

ps: このエラーは、パラメーターは正で、高さ < である必要があります。

パラメータ名: y

4

1 に答える 1

1

0 から画像のサイズまで反復する必要があります。すなわち 0 からBitMapforRGB.Width-1for col.

于 2012-12-01T05:56:52.650 に答える