[VB6] Centrare le immagini con PaintPicture

[vr-claudio]

Ciao grandi,
un'informazione, io utilizzo questo semplicissimo codice tramite un CommonDialog per cercare delle immagini ed inserirle all'interno di una Picture1

CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

la Picture1 ha le seguenti grandezze:

.With = 4125
.Heght = 3290

...e fin qui nulla di strano, pero' vorrei che l'immagine caricata nella Picture1 sia centrata e si avvisasse l'utente quando l'immagine è piu' grande delle grandezze imposte alla Picture1 con un semplice MsgBox di errore

spero di essermi espresso abbastanza bene.
ciauz, vrclaudio

[vr-claudio]

Buongiorno ragazzi,
avete qualche ideuzza per me, grazie mille
vrclaudio

[gibra]

Usa PaintPicture.

Vedi la guida per i dettagli.

Ciao

[vr-claudio]

Ciao Gibra
nulla da fare, ho fatto un giro nella guida di VB6 per PaintPicture ma non ho visto nulla che possa andare bene per quello che cerco io cioè centrare un'immagine in una Picture1.
Comunque sono ancora speranzoso, do' un'occhiata piu' approfondita sul web domani
In tanto grazie mille
vrclaudio

[oregon]

Non e' che la PaintPicture è stata fatta per centrare le immagini e risolvere direttamente il problema.

Ma ti consente di visualizzare la tua immagine sorgente nella destinazione a partire da un suo punto, che devi calcolare avendo a disposizione le dimensioni dell'immagine sorgente e dell'area di destinazione.

Fatti i semplici calcoli, fornisci i risultati alla PaintPicture che disegnera' opportunamente l'immagine come vuoi ...