Größe eines Strings berechnen

1
2
3
4
5
6
7
8
9
10
11

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