Hilfsfunktionen für String-Measurement Die Funktionen dienen der Ermittlung von String-Maßen gemäß des darstellenden Fonts
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  7.704
ohne Homepage	System:  Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die folgenden zwei Funktionen gestatten die Ermittlung einerseits der Maßgrößen eines Strings, wenn er mit einem vorgegebenen Font dargestellt werden soll, und andererseits die Ermittlung der maximalen Breite aller Strings in einem Stringfeld.

1. Funktion

' Länge/Höhe eines Strings gemäß darstellendem Font
Public Function getTheStringSize(theStr As String, theFont As Font) As SizeF
  Dim b As Bitmap, g As Graphics
  b = New Bitmap(1, 1, PixelFormat.Format32bppArgb)
  g = Graphics.FromImage(b)
  Dim stringSize As SizeF = g.MeasureString(theStr, theFont)
  g.Dispose()
  b.Dispose()
  Return stringSize
End Function

2. Funktion

' ermitteln der größten String-Width eines Stringfeldes
Public Function getMinMaxOfStringWidth(theField() As String, theFont As Font) As Single
  Dim s As SizeF, max As Single
  For i As Short = 0 To theField.Length - 1
    s = getTheStringSize(theField(i), theFont)
    If s.Width > max Then max = s.Width
  Next 
  Return max
End Function