Text vertikal anzeigen (VB.NET) Mit Hilfe der StringFormat-Klasse lässt sich ein beliebiger Text auch vertikal anzeigen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  17.629
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Hin und wieder kommt es vor, dass bestimmte Text nicht horizontal, sondern vertikal ausgegeben werden müssen. In diesem Fall muss man den Text unter Zuhilfenahme der DrawString-Methode und der StringFormat-Klasse "selbst" zeichnen. Im nachfolgenden Beispiel erfolgt die vertikale Textausgabe in einer PictureBox.

Imports System.Drawing.Drawing2D
Public Class Form1
  ...

  Private Sub PictureBox1_Paint(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
    ' Text vertikal an der Position x=0 und y=20 ausgeben
    ' Schriftfarbe: rot
    ' Schriftart: Arial 12 fett
    DrawTextV("www.vbarchiv.net", e.Graphics, Color.Red, _
      New Font("Arial", 12, FontStyle.Bold), 0, 50)
  End Sub

  Private Sub DrawTextV(ByVal sText As String, _
    ByVal g As Graphics, ByVal ForeColor As Color, _
    ByVal oFont As Font, ByVal x As Single, ByVal y As Single)
 
    ' StringFormat festlegen
    Dim oFormat As New StringFormat
    oFormat.FormatFlags = StringFormatFlags.DirectionVertical
 
    ' Text in angegebener Schriftart und Schriftfarbe an 
    ' Position x, y ausgeben
    ' Die Ausrichtung erfolgt hierbei von "oben" nach "unten"
    g.DrawString(sText, oFont, New SolidBrush(ForeColor), x, y, oFormat)
  End Sub

End Class