bon, je me réponds :
dans le DropObject, ici dans le canvas :
Dim Azr as picture
Dim Azre as picture
Azr=Obj. FolderItem.OpenAsPicture // récupère l'image drager du
finder
Azre=NewPicture(Azr.Height,Azr.Width,Azr.Depth) // crée un objet
image vide, ici au dimension de l'image, mais vaut mieux la mettre à
la taille finale
Azre.Graphics.DrawPicture Azr,0,0,60,60,0,0,155,155 // on dessine
l'image en modifiant les dimensions, ici on passe d'un 155x155 à un
60x60
Me.Backdrop=Azre // on affiche le résultat dans le backdrop
I hope this help,
Hubert
Le 28 juin 06 à 11:33, Hubert JACQUOT-DION a écrit :
bonjour, comment peut-on modifier la taille d'une image importée
par un drag and drop dans le picture d'une imagewell ou dans le
Backdrop d'un canvas..
une piste ?
Hubert
|