Text vertikal in einer Grafik ausgeben

Dim fntScaleFont As New System.Drawing.Font("Arial", 10, FontStyle.Regular)

Dim layout_rect As New RectangleF(0, 0, 18, 64)

Dim string_format As New StringFormat

string_format.Alignment = StringAlignment.Far
string_format.LineAlignment = StringAlignment.Center
string_format.FormatFlags = StringFormatFlags.DirectionVertical
        
m_Graphics.DrawString("Teststring", fntScaleFont, Brushes.Black, layout_rect, string_format)

Schreibe einen Kommentar