Originariamente inviato da pietro09
VVoVe: ma se io ho preso spunto proprio dal tuo



Sarà... comunque quando provo a convertire la tua funzione :

codice:
    '-------------------------------------------------------------------------
    'questa procedura, data una immagine bmpSource, la ritaglia secondo il
    'rettangolo clip passato
    '-------------------------------------------------------------------------
    Public Sub ImgClip(ByRef bmpSource As Bitmap, ByVal clip As Rectangle)
        Dim bmp As New Bitmap(clip.Width, clip.Height, bmpSource.PixelFormat)
        bmp.SetResolution(bmpSource.HorizontalResolution, bmpSource.VerticalResolution)
        Dim gr As Graphics = Graphics.FromImage(bmp)
        gr.Clear(Color.White)
        gr.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        gr.DrawImage(bmpSource, New Rectangle(0, 0, clip.Width, clip.Height), clip, GraphicsUnit.Pixel)
        gr.Dispose()
        bmpSource.Dispose()
        bmpSource = bmp

    End Sub
faccio un pò a cazzotti con il passaggio per riferimento che, generalmente anzi spesso,
non utilizzo ma faccio restituire alla stessa il valore creato dall'elaborazione

Nel caso si deva restituire più valori in output allora il tuo metodo, secondo il mio
cervellino bacato :berto: , è il più corretto... ma in questo caso non vedo più
di un valore da restituire quindi....
Va bon... se proprio non hai voglia o tempo vedrò di da solo

PS : a proposito... se uno volesse compilare il tuo script ".vb" per usarlo
direttamente come dll.... non può, da 'na marea di errori in compilazione...
poi sai com'è io il VB lo rifiuto ... quindi... è capace che dimentico qualcosa