Oggi mi è capitato un caso abbastanza particolare, di certo che non avevo mai dovuto affrontare prima: una textbox (in sola lettura) doveva essere ridimensionata insieme al testo che avrebbe accolto.
Dopo una veloce ricerca su Google, credevo di avere trovato una soluzione efficace; purtroppo chi ha scritto l’esempio ha omesso di indicare un paio di dichiarazioni, senza le quali il mio castello di illusioni crollava. Dopo una dose di smoccolamenti e tentativi, finalmente credo di esserne venuto a capo, e qui presento il codice:
Private Function GetSizeControl(ByVal origin As String, ByVal myFont As System.Drawing.Font) As System.Drawing.SizeF Dim graph As System.Drawing.Graphics graph = System.Drawing.Graphics.FromHwnd(Me.Handle) Return graph.MeasureString(origin, myFont) End Function