Newsgroup: it.comp.lang.visual-basic
Titolo: immagine in controllo image

se prendo un' immagine in una picturebox, memorizzo le dimensioni, carico
la stessa immagine in un image, l'immagine appare molto più grande del
normale....perchè?
io vorrei semplicemente visualizzare un immagine in un controllo image,
ridimensionandola mantenedo il rapporto di dimensioni...ma questo non
viene perfettamente...
se uso picture box l'immagine viene in parte tagliata, mentre con image le
immagini piccole vengono ingrandite troppo...
sbaglio a prendere le dimensioni?
sapreste aiutarmi?
grazie!
-- 
Claudio
http://www.sullacollina.altervista.org
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sbaglio a prendere le dimensioni?
se non sappiamo come fai a prendere le dimensioni, come facciamo a sapere
se ti sbagli?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo


 normale....perchè?
picture.autosize e image.stretch le hai controllate ?


 se ti sbagli?
si, praticamente faccio sosě:
carico l'immagine in un picture box e predo l'altezza facendo
Picture1.picture.height   idem per la larghezza
carico la stssa immagine come image e ridimensiono il imagebox attivando
pure lo stretch, calcolando il rapporto in modo da mantenere le
proporzioni dovrebbe funzionare tutto...invece con le immagini di piccole
dimensioni non ottengo i risultati voluti, anzi l'immagine viene piů
grande dell'originale...
puň dare noia che il formato sia una jpeg o una gif invece di una bmp??
grazie
-- 
Claudio
http://www.sullacollina.altervista.org


 puň dare noia che il formato sia una jpeg o una gif invece di una bmp??
che io sappia, no.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 


ecco qua il codice:
Set Picture1 = LoadPicture("temp\" & List1.Text)
Set Image1 = LoadPicture("temp\" & List1.Text)
altezza = Picture1.Picture.Height
larghezza = Picture1.Picture.Width
'ridimensiono l'immagine se è troppo grande
'i valori 2265 e 8475 sono i massimi valori ammessi per l'anteprima
dell'immagine
If altezza > 2265 And altezza >= larghezza Then
    rapporto = (altezza / 2265)
    Image1.Picture.Height = altezza / rapporto
    Image1.Picture.Width = larghezza / rapporto
    Image1.Picture.Refresh
ElseIf larghezza > 8475 Then
    rapporto = (larghezza / 8475)
    Image1.Picture.Height = altezza / rapporto
    Image1.Picture.Width = larghezza / rapporto
    Image1.Picture.Refresh
Else
    Image1.Picture.Height = altezza
    Image1.Picture.Width = larghezza
    Image1.Picture.Refresh
End If
il problema si verifica con immagini di 50 pixel X 50 pixel
perlomeno io ho provato con quelle, le altre (quelle più grandi anche di
800 pixel) funzionano bene e vengono pure ridimensionate
-- 
Claudio
http://www.sullacollina.altervista.org


 il problema si verifica con immagini di 50 pixel X 50 pixel
sai che "strada" prende il programma quando le immagini sono 50 X 50 pixel?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 


 sai che "strada" prende il programma quando le immagini sono 50 X 50 pixel?
si va nell'ultimo else
il problema è che le dimensioni sono strane, 
immagino che il controllo image prenda unità di misura twips...ed infatti
la picture passa dimensioni di 1323*1323 e ridimensiona a questa misura
l'immagine...però in realtà queste misure sembrano molto grandi,
l'immagine sgrana ed è più grande di quella che si ede su un normle
browser...
strano no?
-- 
Claudio
http://www.sullacollina.altervista.org
