Ho scritto un pezzo di codice per avere sempre l'altezza di un carattere proporzionata a qualunque schermo indipendentemente dalla scala e dalla risoluzione. Il valore da assegnare è in percentuale; 1 punto è uguale a 0.5%y. E' possibile usare valori con decimali.
Sub AltezzaFont(PercentualeAltezza As Float) As Int
Return PerYToCurrent(PercentualeAltezza/2)/Density '1 punto PercentualeAltezza equivale a 0.5%y
End Sub
Ad esempio con:
label1.TextSize = AltezzaFont(10)
Avremo un carattere alto pari al 5% dei pixel dell'altezza dello schermo.