Visual Basic 6 - Ridimensionamento di immagine (SavePicture)

Proprio quello che cercavo, grazie mille, dopo lo provo =D



A me pare normale 8anche se sno abituato alla pagina iniziale di firefox... prova a premere ctrl e scrolldown del mouse ._.

EDIT:

ok, ho provato ad aggiungere 2 textbox per decidere la dimensione delle immagini, ma sembrano ininfluenti .__.

Option Explicit
Dim FileSelezionato As String

Private Sub Command1_Click()
Set picGrande.Picture = Image1.Picture
picGrande.ScaleHeight = txtAlt.Text
picGrande.ScaleWidth = txtLarg.Text
picStrech
SavePicture picGrande.Image, "c:\" & File1.FileName
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
    FileSelezionato = File1.Path & "\" & File1.FileName
    Image1.Picture = LoadPicture(FileSelezionato)
End Sub

Sub picStrech()
    picGrande.AutoRedraw = True
    picGrande.PaintPicture picGrande.Picture, 0, 0, picGrande.ScaleWidth, picGrande.ScaleHeight, 0, 0, picGrande.Picture.Width / 26.46, picGrande.Picture.Height / 26.46
    picGrande.Picture = picGrande.Image
End Sub

spero di non dovermi infognare in problemi matematici, che in questo periodo non ho la testa...

scusa ma non basta ingrandire o rimpicciolire la picture per ingrandire e/o rimpicciolire l'immagine dentro?


Ok, grz

per qualche motivo a me oscuro modificando le proprietà scaleheight e scalewidth nn ottengo il risultato sperato...

aspetta fammi capire bene.. cosa vorresti fare?

ok, spiego il programma:

Tramite una filelistbox e una dirlistbox seleziono un'immagine (con anteprima in un'imagebox), con 2 textbox decido l'altezza e la lunghezza che deve avere l'immagine salvata, clicko sul pulsante e l'immagine selezionata nella filelistbox dovrebbe essere copiata nella cartella "/…; ridimensionata. Ho preoceduto per passi fin'ora, ma ora sono al passo finale, fare in modo che l'immagine sia di quelle dimensioni, e non mi sembra voler funzionare... ho provato in svariati modi, questo è il risultato finale:

Option Explicit
Dim FileSelezionato As String

Private Sub cmdRid_Click()
Set picGrande.Picture = Image1.Picture
picGrande.Height = txtAlt.text * 15.3
picGrande.Width = txtlarg.text * 15.4
picStrech
SavePicture picGrande.Image, "c:\immagini\" & File1.FileName

End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
    FileSelezionato = File1.Path & "\" & File1.FileName
    Image1.Picture = LoadPicture(FileSelezionato)
End Sub

Sub picStrech()
    picGrande.AutoRedraw = True
    picGrande.PaintPicture picGrande.Picture, 0, 0, picGrande.ScaleWidth, picGrande.ScaleHeight, 0, 0, picGrande.Picture.Width / 26.46, picGrande.Picture.Height / 26.46
    picGrande.Picture = picGrande.Image
End Sub

il codice funziona soltanto per un ridimensionamento a 200x150, qualunque altro valore me lo da sballato... con scalewidth e scaleheight (con scalemode 3-pixel) non mi cambia nulla...

mmm... ho visto che quando si richiama la sub l'immagine si "allarga" a tutta la picturebox, quindi per ridimensionarla modifichi le proprietà height e width della picturebox e richiami di nuovo la sub in questo modo l'immagine si ridimensionerà come vuoi tu... poi se per esempio non vuoi che se dati valori troppo alti la picturebox occupi tutto il form allora la metti dentro un'altra picturebox e magari gli aggiungi delle scrollbar per "scrollarla"...

Dunque, le dimensioni che occupa la picture sono indifferenti, in quanto ha visible = false, xò non ho ancora ben capito. Se seleziono ad'esempio 500x200 l'immagine mi viene salvata in 506x201, cosa che non mi serve a una mazza (devo ridimensionare delle immagini per un sito web, per ora in 150x200 e 200x150, ma mi serviranno altre dimensioni più avanti). Forse il problema si risolverebbe se potessi cambiare l'unità di misura delle proprietà height e width in pixel .__.

LOL, risolto, con scalemode = 3-pixel e settando height e width al contenuto della txt +4 ottengo il risultato sperato, il problema che ora sussiste è in una riga grigia verticale a destra dell'immagine salvata =_=