allora visto che il forum è morto mi sono dato da fare e ho trovato e fatto questo senza sapere se può andare:
codice:
Public Function Ridimensiona2(ByVal path As String, ByVal myUName As String, ByVal high As Integer, ByVal width As Integer, ByVal formato As String)
'Comiciamo inizializzando alcune variabili per l'anteprima:
Dim objBMP As System.Drawing.Image
Dim objGraphics As System.Drawing.Image
'prendiamo alcune informazioni importanti dall'immagine orginale
objBMP = New Bitmap(path & myUName)
Dim imgw As Integer = objBMP.Width
Dim imgh As Integer = objBMP.Height
'Ora possiamo ridimensionare in scala l'immagine prendendo i valori dati in input. Questa misura è valida sia che l'immagine sia puù alta o più lunga.
' Creating a Thumbnail with scale
Dim newimgw As Integer
Dim newimgh As Integer
If imgw > imgh Then
newimgw = width
newimgh = (imgh * width) / imgw
ElseIf imgh > imgw Then
newimgw = (imgw * high) / imgh
newimgh = high
Else
newimgw = width
newimgh = high
End If
'Ora possiamo creare l'anteprima
objGraphics = objBMP.GetThumbnailImage(newimgw, newimgh, Nothing, IntPtr.Zero)
'troviamo l'estensione dell'immagine
'Dim strFileExtension As String
'strFileExtension = Right(myUName, 3)
' creates unique name for the thumbnail and save it on webserver folder
objGraphics.Save(path & myUName & "tmbnl." & formato)
End Function
praticamente questa funzione prende 5 parametri, il path, le nuove grandezze della Thumbnail, il nome del foto principale e il formato.
La mia idea sarebbe quella di crearla al volo senza dover salvare l'img sul server. Praticamente userei questa funzione nella parte pubblica e non quando faccio l'upload della foto nel pannello.
LAa funzione cosi com'è dovrebbe salvare la nuova foto però credo e chiedo a voi se io metto un return al posto di objGraphics.Save(path & myUName & "tmbnl." & formato) dovrei fare quello che dico giusto?
Permessi di invio
Rispondi quotando