Dopo aver visto come ridimensionare dinamicamente un controllo in una form Windows, stavolta affronto lo stesso problema in un report (lo strumento scelto è Active Reports di DataDynamics); quello che cambia è l’origine da cui trarre l’oggetto Graphics
.
Innanzitutto importiamo la namespace:
Imports DataDynamics.ActiveReports.Design
Quindi creiamo la routine che esegue il calcolo:
Private Function GetSizeControl(ByVal origin As String, ByVal myFont As System.Drawing.Font) As System.Drawing.SizeF Dim graphic As Graphics = new Designer().CreateGraphics() Return graphic.MeasureString(origin, myFont) End Function