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 Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

       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!