[URGENT] - Manipulation object Picture

Marc a écrit :

Bonjour à tous,

J'aurais besoin de sauver une image bmp se trouvant dans un object picture,
mais uniquement la zone définie par picture ignorer le reste de l'image
(sous VB5)

Merci pour votre aide
Marc


Attention adresse antispam
Pour répondre sur l'email retirer "nospam-"

Salut

Tu veux recadrer une image bmp.

la seule solution (à ma connaissance) est de gérer ton image a travers
un DIB et d'utiliser les APIs.
Peut-être en utilisant la propriété Hwnd de l'objet picture, on squize
la partie chargement de l'image, car le hwnd est peut-être un pointeur
sur un DIB ? (François ?).

A+

Christophe

Salut Marc ! :O)

Jète un oeil là-dessus, je crois que c'est ce que tu cherches à faire :
'**
Option Explicit

Private Sub Form_Load()
Set Picture1.Picture = LoadPicture("c:image.bmp")
End Sub

Private Sub Command1_Click()
Call SavePicture(Picture1.Picture, "c:image_complete.bmp")
Call SavePicture(Picture1.Image, "c:image_visible.bmp")
End Sub
'**

Je n'ai pas VB5... j'espère que le code est compatible (il me semble que
oui)

--
Cordialement
Yanick
MVP pour Visual Basic

"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de news:
eMeONmjrFHA.3068@TK2MSFTNGP14.phx.gbl...

Bonjour à tous,

J'aurais besoin de sauver une image bmp se trouvant dans un object
picture,
mais uniquement la zone définie par picture ignorer le reste de l'image
(sous VB5)

Merci pour votre aide
Marc


Attention adresse antispam
Pour répondre sur l'email retirer "nospam-"

Bonjour Zoury,

C'est exactement ce que je cherchais,
Mille merci pour ton aide.


A+
Marc



"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:ecFaBYzrFHA.3060@TK2MSFTNGP09.phx.gbl...

Salut Marc ! :O)

Jète un oeil là-dessus, je crois que c'est ce que tu cherches à faire :
'**
Option Explicit

Private Sub Form_Load()
Set Picture1.Picture = LoadPicture("c:image.bmp")
End Sub

Private Sub Command1_Click()
Call SavePicture(Picture1.Picture, "c:image_complete.bmp")
Call SavePicture(Picture1.Image, "c:image_visible.bmp")
End Sub
'**

Je n'ai pas VB5... j'espère que le code est compatible (il me semble que
oui)

--
Cordialement
Yanick
MVP pour Visual Basic

"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de news:
eMeONmjrFHA.3068@TK2MSFTNGP14.phx.gbl...
> Bonjour à tous,
>
> J'aurais besoin de sauver une image bmp se trouvant dans un object
> picture,
> mais uniquement la zone définie par picture ignorer le reste de l'image
> (sous VB5)
>
> Merci pour votre aide
> Marc
>
>
> Attention adresse antispam
> Pour répondre sur l'email retirer "nospam-"
>
>

Marc a écrit :

Bonjour Zoury,

C'est exactement ce que je cherchais,
Mille merci pour ton aide.


A+
Marc



"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:ecFaBYzrFHA.3060@TK2MSFTNGP09.phx.gbl...

Salut Marc ! :O)

Jète un oeil là-dessus, je crois que c'est ce que tu cherches à faire :
'**
Option Explicit

Private Sub Form_Load()
Set Picture1.Picture = LoadPicture("c:image.bmp")
End Sub

Private Sub Command1_Click()
Call SavePicture(Picture1.Picture, "c:image_complete.bmp")
Call SavePicture(Picture1.Image, "c:image_visible.bmp")
End Sub
'**

Je n'ai pas VB5... j'espère que le code est compatible (il me semble que
oui)

--
Cordialement
Yanick
MVP pour Visual Basic

"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de news:
eMeONmjrFHA.3068@TK2MSFTNGP14.phx.gbl...

Bonjour à tous,

J'aurais besoin de sauver une image bmp se trouvant dans un object
picture,
mais uniquement la zone définie par picture ignorer le reste de l'image
(sous VB5)

Merci pour votre aide
Marc


Attention adresse antispam
Pour répondre sur l'email retirer "nospam-"

Houps!

Mais à jamais utiliser l'objet picture on fini par perdre de vue la
simplicité.

A+

Christophe

hehe ! ;O)