Mit nachfolgender Funktion lässt sich ein beliebiger Text (Zeichenfolge) in ein Grafik-Objekt umwandeln, das dann bspw. in einer PictureBox angezeigt werden kann. Neben der Schriftart lässt sich auch die Textfarbe, die Hintergrundfarbe der Grafik, sowie optional noch der Abstand des Textes zum Rand der Grafik festlegen. Imports System.Drawing Imports System.Drawing.Drawing2D ... ''' <summary> ''' Wandelt den übergebenen Text in eine Grafik um. ''' </summary> ''' <param name="Text">Text, aus dem eine Grafik erstellt werden soll.</param> ''' <param name="Font">Schrift</param> ''' <param name="ForeColor">Textfarbe</param> ''' <param name="BackColor">Hintergrundfarbe der Grafik</param> ''' <param name="Padding">Abstand des Textes vom Rand der Grafik</param> ''' <returns>Image-Objekt</returns> Public Function Text2Bitmap(ByVal Text As String, _ ByVal Font As Font, _ ByVal ForeColor As Color, _ ByVal BackColor As Color, _ ByVal Padding As Integer) As Image ' benötigte Größe für die Grafik ermitteln Dim imgSize As System.Drawing.Size = TextRenderer.MeasureText(Text, Font) Dim imgWidth As Integer = imgSize.Width + Padding * 2 Dim imgHeight As Integer = imgSize.Height + Padding * 2 ' Bitmap-Objekt erstellen Dim Bitmap As New Bitmap(imgWidth, imgHeight) Using Graphics As Graphics = Graphics.FromImage(Bitmap) Graphics.FillRectangle(New SolidBrush(BackColor), 0, 0, imgWidth, imgHeight) Graphics.DrawString(Text, Font, New SolidBrush(ForeColor), Padding, Padding) End Using Return Bitmap End Function ''' <summary> ''' Wandelt den übergebenen Text in eine Grafik um. ''' </summary> ''' <param name="Text">Text, aus dem eine Grafik erstellt werden soll.</param> ''' <param name="Font">Schrift</param> ''' <param name="ForeColor">Textfarbe</param> ''' <param name="BackColor">Hintergrundfarbe der Grafik</param> ''' <returns>Image-Objekt</returns> Public Function Text2Bitmap(ByVal Text As String, _ ByVal Font As Font, _ ByVal ForeColor As Color, _ ByVal BackColor As Color) As Image Return Text2Bitmap(Text, Font, ForeColor, BackColor, 0) End Function Aufrufbeispiel: ' Text in Grafik umwandeln und anzeigen PictureBox1.Image = Text2Bitmap("www.vbarchiv.net", _ New Font("Verdana", 14, FontStyle.Bold), Color.Red, Color.White, 10) Dieser Tipp wurde bereits 9.992 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. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |