Heute möchten wir Ihnen eine kleine Funktion vorstellen, mit der sich der Text innerhalb eines Controls so kürzen lässt, dass dieser ggf. mit 3 abschließenden Punkten (...) angezeigt wird, wenn der Text nicht vollständig sichtbar im Control dargestellt werden kann. ''' <summary> ''' Modifiziert einen String mit "..." am Ende falls notwendig ''' </summary> ''' <param name="sender">Objekt (Control), das den gekürzten String anzeigen soll</param> ''' <param name="Text">Text, der ggf. gekürzt angezeigt werden soll</param> ''' <returns>Modifizierter Text</returns> Public Function CompactText(ByVal sender As Object, ByVal Text As String) As String Dim flags As System.Windows.Forms.TextFormatFlags ' Flags für die Ausgabe des Textes flags = TextFormatFlags.Left Or _ TextFormatFlags.WordEllipsis Or TextFormatFlags.EndEllipsis Or _ TextFormatFlags.ModifyString ' Graphics-Objekt erstellen Using gr As Graphics = System.Drawing.Graphics.FromHwnd(sender.Handle) With sender ' Text gekürzt zurückgeben (falls erforderlich) TextRenderer.DrawText(gr, Text, .Font, .ClientRectangle, .ForeColor, flags) Return Text End With End Using End Function Aufrufbeispiel: Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Label1.AutoSize = False Label1.Width = 100 End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' Textbox-Inhalt im Label anzeigen und ggf. kürzen Label1.Text = CompactText(Label1, TextBox1.Text) End Sub Dieser Tipp wurde bereits 10.635 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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. 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 Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. |
||||||||||||||||
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. |