VB.NET : Un extension method per ridimensionare una bitmap

Questo semplice extension method consente, a partire da un oggetto bitmap, di ottenere un nuova bitmap uguale a quella di partenza ma ridimensionata in base ad un fattore di larghezza e a uno di altezza:

<Extension()> _
Public Function CloneResize(ByVal image As Bitmap, ByVal zoomFactorWidth As Double, ByVal zoomFactorHeight As Double) As Bitmap
    Dim width = image.Width
    Dim height = image.Height
    Dim newImage = New Bitmap(image, width * zoomFactorWidth, height * zoomFactorHeight)
    Return newImage
End Function

Grazie a questo metodo possiamo, ad esempio ottenere, a partire dall’icona di sistema che indica il warning, una bitmap di dimensioni raddoppiate:

Drawing.SystemIcons.Warning.ToBitmap().CloneResize(2, 2)

Technorati Tags: Extension Methods,VB.Net,.NET Framework 3.5,Bitmap