Visualizzazione dei risultati da 1 a 8 su 8
  1. #1

    LoadPicture / SavePicture

    devo aprire, ridimensionare e salvare delle immagini
    per fare successivamnte un'anteprima
    ma nonostante il ridimensionamento il file che mi salva
    è + grande dell'originale
    anzi è sempre di 2.836KB

    probabile che sbagli qualcosa, vero?!
    posto il codice

    '-----------------------
    Dim X As Picture

    Set X = LoadPicture(strPath + strImmagine, 0, 0, 1, 1)

    imgThumb.Picture = X
    imgThumb.Stretch = True

    imgThumb.Height = 50
    imgThumb.Width = 50
    SavePicture imgThumb.Picture, strPath + "thumb\" + strImmagine
    '-----------------------

    grazie per ogni suggerimento
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

  2. #2

    Re: LoadPicture / SavePicture

    Originariamente inviato da GudFella
    devo aprire, ridimensionare e salvare delle immagini
    per fare successivamnte un'anteprima
    ma nonostante il ridimensionamento il file che mi salva
    è + grande dell'originale
    anzi è sempre di 2.836KB

    probabile che sbagli qualcosa, vero?!
    posto il codice

    '-----------------------
    Dim X As Picture

    Set X = LoadPicture(strPath + strImmagine, 0, 0, 1, 1)

    imgThumb.Picture = X
    imgThumb.Stretch = True

    imgThumb.Height = 50
    imgThumb.Width = 50
    SavePicture imgThumb.Picture, strPath + "thumb\" + strImmagine
    '-----------------------

    grazie per ogni suggerimento
    prima ridimensiona la image e poi passagli la picture
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  3. #3
    idem,
    ho fatto una ricerca nel forum ed avevo gia provato
    ma mi salva sempre un file di 2.836KB
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

  4. #4
    Ci credo perchè comunque l'immagine è la stessa. Prova a ridimensionare una PictureBox e inserirgli l'immagine con il metodo PaintPicture. Solo dopo la salvi.
    codice:
    Picture2.Cls
    Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height
    Ciao
    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

  5. #5
    .... riposto il codice

    '----------------
    Dim X As Picture

    Set X = LoadPicture(strPath + strImmagine)
    pctSource.Picture = X

    pctThumb.Cls

    pctThumb.PaintPicture pctSource.Picture, 0, 0, pctThumb.Width, pctThumb.Height

    SavePicture pctThumb.Picture, strPath + "thumb\" + strImmagine
    '----------------

    quando eseguo il SavePicture:
    "pctThumb.Picture" è = 0
    come se il metodo PaintPicture non impostasse nessuna immagine
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

  6. #6
    Io ho fatto così:
    codice:
    Set Prova = LoadPicture(cd.FileName) 'Prova è una variabile "Picture"
    Picture1.Picture = Prova
    Picture2.Cls
    Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height
    SavePicture Picture2.Image, "C:\Out.jpg"
    Così a me funziona...

    Ciao
    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

  7. #7
    '-----------------------
    pctSource.Picture = LoadPicture(strPath + strImmagine)

    Call pctThumb.PaintPicture(pctSource.Picture, 0, 0, pctThumb.ScaleWidth, pctThumb.ScaleHeight)

    SavePicture pctThumb.Image, strPath + "thumb\" + strImmagine
    '-----------------------

    così adesso funziona
    credo che il problema fosse nelle proprietà:
    scalemode
    1 - per la picture di origine
    3 - per la picture di destinazione

    autoredraw
    false - per la picture di origine
    true - per la picture di destinazione

    credo Xchè ho scaricato un progetto che usava il metodo paintpicture, ho copiato i controlli picture e li ho inseriti nel mio prog. rinominandoli e tutto ha funzionato senza cambiare una riga
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

  8. #8
    Originariamente inviato da chipdb
    Io ho fatto così:
    codice:
    Set Prova = LoadPicture(cd.FileName) 'Prova è una variabile "Picture"
    Picture1.Picture = Prova
    Picture2.Cls
    Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height
    SavePicture Picture2.Image, "C:\Out.jpg"
    Così a me funziona...

    Ciao
    nel tuo progetto come sono impostate le proprietà
    scalemode e autoredraw dei controlli picture?
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.