Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Ridimensionamento di immagine (SavePicture)
Forum - Visual Basic 6 - Ridimensionamento di immagine (SavePicture)

Pagine: [ 1 2 3 4 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
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

  1. Option Explicit
  2. Dim FileSelezionato As String
  3.  
  4. Private Sub Command1_Click()
  5. Set picGrande.Picture = Image1.Picture
  6. picPiccola.PaintPicture picGrande.Image, 0, 0, picPiccola.Height, picPiccola.Width
  7. Set picPiccola.Picture = picGrande.Image
  8. SavePicture picPiccola.Image, "c:\" & File1.FileName
  9. End Sub
  10.  
  11. Private Sub Dir1_Change()
  12.     File1.Path = Dir1.Path
  13. End Sub
  14.  
  15. Private Sub File1_Click()
  16.     FileSelezionato = File1.Path & "\" & File1.FileName
  17.     Image1.Picture = LoadPicture(FileSelezionato)
  18. 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.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 16:42
Mercoledì, 09/09/2009
hai provato ad usare un'imagebox?

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 19:10
Mercoledì, 09/09/2009
si, ma il SavePicture non funziona con le image.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:38
Mercoledì, 09/09/2009
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
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 21:09
Mercoledì, 09/09/2009
strano .__. mi posteresti per cortesia, il codice che hai usato? a me ritorna errore se faccio il savepicture con la imagebox...

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 21:17
Mercoledì, 09/09/2009
savepicture image1.picture, "C:\percorso\file.bmp"

mm... cmq prova pure con image1.image per sicurezza, adesso io non posso provare...

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 17:31
Giovedì, 10/09/2009
vero, funziona, ma nn me la stretcha ._.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:45
Giovedì, 10/09/2009
guarda qua:
http://www.vb-helper.com/howto_stretch_picturebox.html

:ot:
è una mia impressione o google è cambiato? nel senso che vedo textbox e button + grossi :|

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 21:20
Giovedì, 10/09/2009
Proprio quello che cercavo, grazie mille, dopo lo provo =D

:ot:

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

  1. Option Explicit
  2. Dim FileSelezionato As String
  3.  
  4. Private Sub Command1_Click()
  5. Set picGrande.Picture = Image1.Picture
  6. picGrande.ScaleHeight = txtAlt.Text
  7. picGrande.ScaleWidth = txtLarg.Text
  8. picStrech
  9. SavePicture picGrande.Image, "c:\" & File1.FileName
  10. End Sub
  11.  
  12. Private Sub Dir1_Change()
  13.     File1.Path = Dir1.Path
  14. End Sub
  15.  
  16. Private Sub File1_Click()
  17.     FileSelezionato = File1.Path & "\" & File1.FileName
  18.     Image1.Picture = LoadPicture(FileSelezionato)
  19. End Sub
  20.  
  21. Sub picStrech()
  22.     picGrande.AutoRedraw = True
  23.     picGrande.PaintPicture picGrande.Picture, 0, 0, picGrande.ScaleWidth, picGrande.ScaleHeight, 0, 0, picGrande.Picture.Width / 26.46, picGrande.Picture.Height / 26.46
  24.     picGrande.Picture = picGrande.Image
  25. 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
PM Quote
Pagine: [ 1 2 3 4 ] Precedente | Prossimo