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 Dieser Tipp wurde bereits 17.308 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 ![]() Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. TOP! Unser Nr. 1 ![]() Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
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. |