[vb.net] Misurare Stringhe

[stdecden]

Salve a tutti!

In un programma voglio sapere su quale carattere di una stringa mi trovo e quindi devo misurare ogni singolo carattere con la seguente funzione:
- i: numero del carattere nella stringa
- s: Stringa da verificare
- f: Carattere
- tx,ty: Distanza dal margine del controllo
- e System Graphics

Questa funzione dovrebbe anche essere in grado di risolvere il kerning del font.

L'unico problema riscontrato é che qli spazi me li calcola troppo piccoli, e la lettera sucessiva troppo grande.

So che é una domanda difficile, ma spero che qualcuno mi possa aiutare


Public Function getCharBounds(ByVal i As Integer, ByVal s As String, ByVal f As Font, ByVal tx As Integer, ByVal ty As Integer, ByVal e As Graphics) As Rectangle
Dim L As Integer = Len(s)
If L <> 1 Then
If (i = 1) Then
Dim size As SizeF = e.MeasureString(Mid(s, 1, 1), f)
Dim size2 As SizeF = e.MeasureString(Mid(s, 1, 2), f)
Dim size3 As SizeF = e.MeasureString(Mid(s, 2, 1), f)
Dim Bounds As New Rectangle(tx, ty, size.Width - (size2.Width - size3.Width - size.Width) * -1 / 2, size.Height)
Return Bounds
ElseIf (i = L) Then
Dim size As SizeF = e.MeasureString(Mid(s, L, 1), f)
Dim size2 As SizeF = e.MeasureString(Mid(s, 1, L - 1), f)
Dim size3 As SizeF = e.MeasureString(Mid(s, 1, L), f)
Dim Bounds As New Rectangle(tx + size2.Width - (size3.Width - size2.Width - size.Width) / -2, ty, size.Width - (size3.Width - size2.Width - size.Width) / -2, size.Height)
Return Bounds
Else
Dim a As SizeF = e.MeasureString(Mid(s, i, 1), f)
Dim b As SizeF = e.MeasureString(Mid(s, 1, i - 1), f)
Dim c As SizeF = e.MeasureString(Mid(s, i + 1, L - i), f)
Dim ab As SizeF = e.MeasureString(Mid(s, 1, i + 1), f)
Dim ac As SizeF = e.MeasureString(Mid(s, i, L - i + 1), f)
Dim abc As SizeF = e.MeasureString(Mid(s, 1, L), f)
Dim Bounds As New Rectangle(tx + b.Width - (abc.Width - b.Width - ac.Width) / -2, ty, _
((abc.Width - c.Width - ab.Width) / 2 + ab.Width) - ((ab.Width - b.Width - a.Width) / 2 + b.Width), a.Height)
Return Bounds
End If
Else
Dim a As SizeF = e.MeasureString(s, f)
Dim bounds As New Rectangle(tx, ty, a.Width, a.Height)
End If
End Function

[stdecden]

Sarei contento anche se qualcuno mi ilustrasse altri modi per misurare un singolo carattere di una string con un font specifico, senza che le lettere si sovrappongano(occhio al kerning del font). E che mi dite su MeasureCharacterRanges?