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"
GFU-Schulungen  [Anzeige]

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

       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!