[VB.NET] Simulare uno Zoom su Image

Descrizione :
Semplice Function per "simulare" uno Zoom su Image.

+ Articolo :

Si tratta di uno dei sistemi più semplici per simulare con discreta qualità uno Zoom su Oggetto Image.
Il parametro fattoreZoom deve essere un numero intero positivo.
Il fattore di Zoom interno "z", serve ad andare a passi di zoom più ravvicinati ( nel presente caso avremo zoom : 1, 1.2, 1.4, 1.6, ..., ecc. ).

    Public Function Zoom(ByVal imgInput As Image, ByVal fattoreZoom As Integer) As Image
 
        Dim z As Single = 0.2
        Dim fZoom As Single
        If fattoreZoom <= 1 Then
            fZoom = 1
        Else
            fZoom = z * (fattoreZoom - 1) + 1
        End If
        Dim bmp As New Bitmap(imgInput, Convert.ToInt32(imgInput.Width * fZoom), Convert.ToInt32(imgInput.Height * fZoom))
        Return bmp
 
    End Function

+ Fine Articolo.

---

Un Click su "Mi Piace" è il modo migliore per ringraziare l'autore di questo articolo.

---

Posted in: VB.NET