Mit dieser Funktion kann man die größe eines Strings berechnen wobei man die Schriftart und die Textgröße noch angeben muss. Zurück bekommt man dann Höhe und Breite des Strings als SizeF Struct.
Private Function MeasureString(ByVal Text As String, ByVal FontName As String, ByVal FontSize As Single) As SizeF
Dim Bitmap As Bitmap
Dim Graphic As Graphics
Dim Font As New Font(FontName, FontSize)
Bitmap = New Bitmap(1, 1)
Graphic = Graphics.FromImage(Bitmap)
MeasureString = Graphic.MeasureString(Text, Font)
Graphic.Dispose()
Bitmap.Dispose()
End Function
Kommentare zum Snippet