Rubrik: Grafik und Font · Font & Text | VB-Versionen: VB6 | 17.04.09 |
Texthöhe unter Berücksichtigung einer max. Breite ermitteln Eine Funktion zur Ermittlung der Ausmaße (Höhe) eines Strings unter Berücksichtigung einer gewünschten maximalen Breite. | ||
Autor: Dieter Otter | Bewertung: | Views: 11.370 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute stellen wir Ihnen eine Funktion vor, mit der sich die Ausmaße (Höhe) eines Strings unter Berücksichtigung einer voreingestellten maximalen Ausgabebreite berechnen lässt. Der String kann hierbei auch mehrzeilig sein, d.h. Zeilenumbruchzeichen enthalten.
Für die Berechnung benötigen wir ein unsichtbares Label-Control. Durch Setzen der WordWrap-Eigenschaft auf True, Zuweisung der max. Breite, sowie anschließendem Setzen von AutoSize auf True erreichen wir, dass unser Text im Label-Control in der gewünschten Breite angezeigt wird. Jetzt brauchen wir nur noch die Height-Eigenschaft des Labels auslesen und erhalten somit die Ausgabehöhe des Textes.
' Ermittelt die benötigte Höhe für die Ausgabe des ' übergebenen Strings anhand einer maximal festgelegten Breite Public Function GetTextHeight(ByVal oLabel As Label, _ ByVal sText As String, _ ByVal maxWidth As Long, _ Optional ByVal nScaleMode As VBRUN.ScaleModeConstants = vbPixels) As Long With oLabel .WordWrap = True .Width = ScaleX(maxWidth, nScaleMode, .Container.ScaleMode) .Caption = sText .AutoSize = True GetTextHeight = ScaleY(.Height, .Container.ScaleMode, nScaleMode) End With End Function
Aufrufbeispiel:
Dim nHeight As Long Dim sText As String sText = "Dies ist ein Text der autom. umgebrochen wird" & _ vbCrLf & "Zeile 2" ' max. Höhe des Textes bei einer max. Breite von 120 Pixel ' Rückgabewert: Pixel nHeight = GetTextHeight(DummyLabel, sText, 120, vbPixels)