[TuT] Texte gedreht ausgeben

====================================================

In diesem Tutorial zeige ich euch, wie wir einen Text in unserer Form drehen.

===================================
===================================
•Was wir brauchen
- Garnichts, die Form reicht
===================================
===================================
So sieht es am ende aus:

===================================
===================================

Wir überschreiben zuerst die Paint-Methode:

Zitat

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim s As String = "Gedrehter Text ..."
Dim f As Font

Wir verschieben zunächst das Koordinatensystem in die Mitte des Fensters:

Zitat

e.Graphics.TranslateTransform(Me.ClientSize.Width / 2, Me.ClientSize.Height / 2)

Und jetz geht's rund:

Zitat

For i As Integer = 1 To 24

Unterschiedlich große Schriften definieren:

Zitat

f = New Font("Arial", i)

Textausgabe:

Zitat

e.Graphics.DrawString(s, f, Brushes.Black, i + 10, 0, StringFormat.GenericTypographic)

Drehwinkel verändern:

Zitat

e.Graphics.RotateTransform(18)
Next

Nicht zu vergessen die Basis-Methode aufrufen:

Zitat

MyBase.OnPaint(e)

===================================
===================================

Hier ist nochmal der Gesamte SourceCode:

Zitat

Public Class Form1

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim s As String = "Gedrehter Text ..."
Dim f As Font
e.Graphics.TranslateTransform(Me.ClientSize.Width / 2, Me.ClientSize.Height / 2)
For i As Integer = 1 To 24
f = New Font("Arial", i)
e.Graphics.DrawString(s, f, Brushes.Black, i + 10, 0, StringFormat.GenericTypographic)
e.Graphics.RotateTransform(18)
Next
MyBase.OnPaint(e)
End Sub

End Class

Alles anzeigen

===================================
===================================
Credits: Sedrika