Tipp 0011 Text im Winkel ausgeben
Autor/Einsender:
Datum:
  Michael Werner
21.03.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Dieser Tipp zeigt, wie man einen Text mit Grafik ausfüllen und im Winkel ausgeben kann. Benötigt wird dazu die Graphics-Klasse des Namespaces System.Drawing, die eine GDI+-Zeichenoberfläche kapselt. Mit den Methoden RotateTransform und DrawString dieser Klasse wird der Text im Winkel auf die Form gezeichnet. Mit Hilfe der TextureBrush-Klasse wird der Text mit einem Bild hinterfüllt.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim i As Int32

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Dim g As Graphics
    i += 1

    Dim sText = "VB.NET" & vbNewLine & "ist einfach" & _
                           vbNewLine & "SUPER"
    Dim oFont = New Font("Comic Sans Ms", 50)

    Dim oBrush1 = New TextureBrush( _
            New Bitmap(ImageList1.Images.Item(1)))
    Dim oBrush2 = New TextureBrush( _
            New Bitmap(ImageList1.Images.Item(0)))

    g = Me.CreateGraphics
    g.RotateTransform(-15 + i)

    If i Mod 2 = 0 Then
      g.DrawString(sText, oFont, oBrush2, 0, 60)
    Else
      g.DrawString(sText, oFont, oBrush1, 0, 60)
    End If

    g.ResetTransform()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Refresh()
    If i > 80 Then i = 0
  End Sub
End Class
 
Links zum Thema
Text spiegeln und scheren
Text zeichnen mit GDI+

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


Download  (7,2 kB) Downloads bisher: [ 899 ]

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: Samstag, 21. Januar 2012