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.148 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (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 März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||||||||
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. |