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

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:

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:

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

Und jetz geht's rund:

For i As Integer = 1 To 24

Unterschiedlich große Schriften definieren:

f = New Font("Arial", i)

Textausgabe:

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

Drehwinkel verändern:

e.Graphics.RotateTransform(18)
Next

Nicht zu vergessen die Basis-Methode aufrufen:

MyBase.OnPaint(e)

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

Hier ist nochmal der Gesamte SourceCode:

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

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