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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.