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:     [ Jetzt bewerten ]	Views:  11.931
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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)