Tipp 0023 Farbverlauf
Autor/Einsender:
Datum:
  Michael Werner
29.10.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Mit Hilfe der Klasse LinearGradientBrush und einer Rectangle-Struktur kann ein linearer Farbverlauf erzeugt werden. Mit den Methoden FillRectangle und DrawString der Klasse Graphics im Namespace System.Drawing.Drawing2D kann dieser Farbverlauf dann z. B. in der Form, in einem Button oder innerhalb von Text angezeigt werden.
 
Imports System.Drawing.Drawing2D
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim g As Graphics
    g = Me.CreateGraphics

    Dim rect As Rectangle = _
          New Rectangle(0, 0, Me.Width, Me.Height)
    Dim ryBrush As LinearGradientBrush = _
          New LinearGradientBrush(rect, Color.Red, _
          Color.Yellow, LinearGradientMode.Vertical)
    g.FillRectangle(ryBrush, rect)

    Dim rect1 As Rectangle = New Rectangle(10, 10, 300, 60)
    Dim Brush1 As LinearGradientBrush = _
          New LinearGradientBrush(rect1, Color.Yellow, _
          Color.Coral, LinearGradientMode.Vertical)
    g.DrawString("12345", New Font("Arial", 48), Brush1, 2, 2)

    g = Button1.CreateGraphics

    Dim rect2 As Rectangle = _
          New Rectangle(0, 0, Button1.Width, Button1.Height)
    Dim Brush2 As LinearGradientBrush = _
          New LinearGradientBrush(rect2, Color.Yellow, _
          Color.Red, LinearGradientMode.Vertical)
    g.FillRectangle(Brush2, rect2)

    Dim yBrush As New SolidBrush(Color.Yellow)
    g.DrawString("Button1", New Font("Arial", 12), yBrush, 10, 2)

  End Sub
End Class
 
Links zum Thema
Farbwerte konvertieren

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,2 kB) Downloads bisher: [ 393 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 15. Januar 2012