Bild mit allen farben (True Color 16 Millionen Farben)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

       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