Feedback

VB - Bild mit allen farben (True Color 16 Millionen Farben)

Veröffentlicht von am 13.03.2010
(2 Bewertungen)
Errechnet ein bild mit allen farben die es "gibt"
       BackgroundImage = GetImageWithAllColors()
    End Sub

    Private Function GetImageWithAllColors() As Bitmap
        Dim Bit As New Bitmap(256 * 16, 256 * 16)

        For z = 0 To 255
            Dim x As Integer = 0
            Dim y As Integer = 0
            Dim TempZ As Integer = z

            Do While TempZ >= 16
                TempZ -= 16
                y += 1
            Loop

            x = TempZ

            x *= 256
            y *= 256

            For R = 0 To 255
                For G = 0 To 255
                    Bit.SetPixel(R + x, G + y, Color.FromArgb(R, G, z))
                Next
            Next
        Next

        Return Bit
    End Function
Abgelegt unter Farben, Farbe, color, Bild.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!