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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

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.