()
Newbie
Messaggi:
Iscritto:
|
Salve, ho un problema... Sto creando un programma in grado di ridimensionare le immagini e salvarle ridimensionate, il problema però è che quando vado a salvare le immagini queste sono tagliate e non ridimensionate... sostanzialmente mi applica la dimensione giusta, ma appare soltanto la parte in alto a sinistra dell'immagine selezionata... vi posto il codice sperando che qualcuno possa aiutarmi...
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim FileSelezionato As String Private Sub Command1_Click() Set picGrande.Picture = Image1.Picture picPiccola.PaintPicture picGrande.Image, 0, 0, picPiccola.Height, picPiccola.Width Set picPiccola.Picture = picGrande.Image SavePicture picPiccola.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
|
Sul form sono presenti una FileListBox e una DirListBox tramite le quali seleziono il file, una image dove viene presentata l'anteprima del file, 2 picturebox che cerco di utilizzare per il ridimensionamento e il command button per l'evento.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
hai provato ad usare un'imagebox?
|
|
()
Newbie
Messaggi:
Iscritto:
|
si, ma il SavePicture non funziona con le image.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
mm.. sicuro? io mi ricordavo di si... mo provo
EDIT: provato, funziona ma anche se si applica la proprietà stretch a true la visualizza grande.
Ultima modifica effettuata da GrG il 09/09/2009 alle 19:49 |
|
()
Newbie
Messaggi:
Iscritto:
|
strano .__. mi posteresti per cortesia, il codice che hai usato? a me ritorna errore se faccio il savepicture con la imagebox...
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
savepicture image1.picture, "C:\percorso\file.bmp"
mm... cmq prova pure con image1.image per sicurezza, adesso io non posso provare...
|
|
()
Newbie
Messaggi:
Iscritto:
|
vero, funziona, ma nn me la stretcha ._.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
|
|
()
Newbie
Messaggi:
Iscritto:
|
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 .__.
Codice sorgente - presumibilmente VB.NET |
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...
Ultima modifica effettuata da il 10/09/2009 alle 21:35 |
|