Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Resize d'un bmp

Resize d'un bmp

10 réponses
Avatar
Franck
Bonjour à tous,

je cherche un moyen facile et rapide pour faire un redimensionnement de BMP.

J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....

Quelqu'un a une astuce qui fonctionne bien ??

Merci à tous.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Regarde du coté de PaintPicture().

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Franck wrote:
Bonjour à tous,

je cherche un moyen facile et rapide pour faire un redimensionnement
de BMP.

J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....

Quelqu'un a une astuce qui fonctionne bien ??

Merci à tous.


Avatar
Franck
Merci ça marche c'est cool mais maintenant j'ai mon savepicture qui plante
sur l'image reduite.....une idée ??


"LE TROLL" <le a écrit dans le message news:

> Salut, vois le code en fichier zipé joint...
>
> ' form 1 : réduction image
> '
> Option Explicit
> Dim i As Byte
> Dim taux As Single
> '
>
> Sub Form_Load()
> For i = 50 To 99
> Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> Next i
> Combo1.ListIndex = 0
> End Sub
>
> Sub Command1_Click() 'réduction
> taux = Val(Combo1.ListIndex + 50) / 100
> Label1.Caption = taux
> Picture1.Picture = LoadPicture()
> Picture1.PaintPicture Picture2, 0, 0, Picture2.Width - Picture2.Width
*
> taux, Picture2.Height - Picture2.Height * taux
> End Sub
> -----------------------
>
> "Franck" a écrit dans le message de
news:
>
> > Bonjour à tous,
> >
> > je cherche un moyen facile et rapide pour faire un redimensionnement
de
> > BMP.
> >
> > J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....
> >
> > Quelqu'un a une astuce qui fonctionne bien ??
> >
> > Merci à tous.
> >
> >
> >
> >
> >
>
>
>
Avatar
ng
> plante sur l'image reduite.....


C'est à dire ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Franck wrote:
Merci ça marche c'est cool mais maintenant j'ai mon savepicture qui
plante sur l'image reduite.....une idée ??


"LE TROLL" <le a écrit dans le message news:

> Salut, vois le code en fichier zipé joint...
>
> ' form 1 : réduction image
> '
> Option Explicit
> Dim i As Byte
> Dim taux As Single
> '
>
> Sub Form_Load()
> For i = 50 To 99
> Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> Next i
> Combo1.ListIndex = 0
> End Sub
>
> Sub Command1_Click() 'réduction
> taux = Val(Combo1.ListIndex + 50) / 100
> Label1.Caption = taux
> Picture1.Picture = LoadPicture()
> Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
Picture2.Width *
> taux, Picture2.Height - Picture2.Height * taux
> End Sub
> -----------------------
>
> "Franck" a écrit dans le message de
news:
>
> > Bonjour à tous,
> >
> > je cherche un moyen facile et rapide pour faire un
redimensionnement de
> > BMP.
> >
> > J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....
> >
> > Quelqu'un a une astuce qui fonctionne bien ??
> >
> > Merci à tous.
> >
> >
> >
> >
> >
>
>
>


Avatar
Franck
Sur mon Savepicture j'ai le message suivant :
erreur d'ecxecution 380

valeur de propriété incorrecte


t'as une idée ou alors une autre méthode ?
en fait après la reduction ma picturebox =0 alors qu'elle devrait avoir
unevaleur non ??
il faut peut etre "valider" le paintpicture ?? la je pars en live je sais
plus quoi faire !!!!



"ng" a écrit dans le message news:

> > plante sur l'image reduite.....
> C'est à dire ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Franck wrote:
> > Merci ça marche c'est cool mais maintenant j'ai mon savepicture qui
> > plante sur l'image reduite.....une idée ??
> >
> >
> > "LE TROLL" <le a écrit dans le message news:
> >
> > > Salut, vois le code en fichier zipé joint...
> > >
> > > ' form 1 : réduction image
> > > '
> > > Option Explicit
> > > Dim i As Byte
> > > Dim taux As Single
> > > '
> > >
> > > Sub Form_Load()
> > > For i = 50 To 99
> > > Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> > > Next i
> > > Combo1.ListIndex = 0
> > > End Sub
> > >
> > > Sub Command1_Click() 'réduction
> > > taux = Val(Combo1.ListIndex + 50) / 100
> > > Label1.Caption = taux
> > > Picture1.Picture = LoadPicture()
> > > Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
> > Picture2.Width *
> > > taux, Picture2.Height - Picture2.Height * taux
> > > End Sub
> > > -----------------------
> > >
> > > "Franck" a écrit dans le message de
> > news:
> > >
> > > > Bonjour à tous,
> > > >
> > > > je cherche un moyen facile et rapide pour faire un
> > redimensionnement de
> > > > BMP.
> > > >
> > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....
> > > >
> > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > >
> > > > Merci à tous.
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > >
>
>
Avatar
LE TROLL
Tu veux la sauver comment ton image, dans un fichier ???
Pourquoi tu veux la sauver, puisqu'elle se réduit à l'écran, si
c'est juste pour faire un "réducteur", y a plein de logiciel pour ça ???
-------- :o)

"Franck" a écrit dans le message de news:

Sur mon Savepicture j'ai le message suivant :
erreur d'ecxecution 380

valeur de propriété incorrecte


t'as une idée ou alors une autre méthode ?
en fait après la reduction ma picturebox =0 alors qu'elle devrait avoir
unevaleur non ??
il faut peut etre "valider" le paintpicture ?? la je pars en live je sais
plus quoi faire !!!!



"ng" a écrit dans le message news:

> > plante sur l'image reduite.....
> C'est à dire ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Franck wrote:
> > Merci ça marche c'est cool mais maintenant j'ai mon savepicture qui
> > plante sur l'image reduite.....une idée ??
> >
> >
> > "LE TROLL" <le a écrit dans le message news:
> >
> > > Salut, vois le code en fichier zipé joint...
> > >
> > > ' form 1 : réduction image
> > > '
> > > Option Explicit
> > > Dim i As Byte
> > > Dim taux As Single
> > > '
> > >
> > > Sub Form_Load()
> > > For i = 50 To 99
> > > Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> > > Next i
> > > Combo1.ListIndex = 0
> > > End Sub
> > >
> > > Sub Command1_Click() 'réduction
> > > taux = Val(Combo1.ListIndex + 50) / 100
> > > Label1.Caption = taux
> > > Picture1.Picture = LoadPicture()
> > > Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
> > Picture2.Width *
> > > taux, Picture2.Height - Picture2.Height * taux
> > > End Sub
> > > -----------------------
> > >
> > > "Franck" a écrit dans le message
de
> > news:
> > >
> > > > Bonjour à tous,
> > > >
> > > > je cherche un moyen facile et rapide pour faire un
> > redimensionnement de
> > > > BMP.
> > > >
> > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....
> > > >
> > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > >
> > > > Merci à tous.
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > >
>
>





Avatar
Franck
oui dans un fichier.
C'est pas juste un reducteur que je veux, je veux que ça me reduise mon
image puis me la sauve avec la nouvelle taille....



"LE TROLL" <le a écrit dans le message news:

> Tu veux la sauver comment ton image, dans un fichier ???
> Pourquoi tu veux la sauver, puisqu'elle se réduit à l'écran, si
> c'est juste pour faire un "réducteur", y a plein de logiciel pour ça ???
> -------- :o)
>
> "Franck" a écrit dans le message de
news:
>
> > Sur mon Savepicture j'ai le message suivant :
> > erreur d'ecxecution 380
> >
> > valeur de propriété incorrecte
> >
> >
> > t'as une idée ou alors une autre méthode ?
> > en fait après la reduction ma picturebox =0 alors qu'elle devrait
avoir
> > unevaleur non ??
> > il faut peut etre "valider" le paintpicture ?? la je pars en live je
sais
> > plus quoi faire !!!!
> >
> >
> >
> > "ng" a écrit dans le message news:
> >
> > > > plante sur l'image reduite.....
> > > C'est à dire ?
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > > Franck wrote:
> > > > Merci ça marche c'est cool mais maintenant j'ai mon savepicture
qui
> > > > plante sur l'image reduite.....une idée ??
> > > >
> > > >
> > > > "LE TROLL" <le a écrit dans le message news:
> > > >
> > > > > Salut, vois le code en fichier zipé joint...
> > > > >
> > > > > ' form 1 : réduction image
> > > > > '
> > > > > Option Explicit
> > > > > Dim i As Byte
> > > > > Dim taux As Single
> > > > > '
> > > > >
> > > > > Sub Form_Load()
> > > > > For i = 50 To 99
> > > > > Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> > > > > Next i
> > > > > Combo1.ListIndex = 0
> > > > > End Sub
> > > > >
> > > > > Sub Command1_Click() 'réduction
> > > > > taux = Val(Combo1.ListIndex + 50) / 100
> > > > > Label1.Caption = taux
> > > > > Picture1.Picture = LoadPicture()
> > > > > Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
> > > > Picture2.Width *
> > > > > taux, Picture2.Height - Picture2.Height * taux
> > > > > End Sub
> > > > > -----------------------
> > > > >
> > > > > "Franck" a écrit dans le
message
> > de
> > > > news:
> > > > >
> > > > > > Bonjour à tous,
> > > > > >
> > > > > > je cherche un moyen facile et rapide pour faire un
> > > > redimensionnement de
> > > > > > BMP.
> > > > > >
> > > > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en 160x120....
> > > > > >
> > > > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > > > >
> > > > > > Merci à tous.
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> >
> >
> >
>
>
Avatar
ng
Peut-on voir ton code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Franck wrote:
oui dans un fichier.
C'est pas juste un reducteur que je veux, je veux que ça me reduise
mon image puis me la sauve avec la nouvelle taille....



"LE TROLL" <le a écrit dans le message news:

> Tu veux la sauver comment ton image, dans un fichier ???
> Pourquoi tu veux la sauver, puisqu'elle se réduit à
l'écran, si > c'est juste pour faire un "réducteur", y a plein de
logiciel pour ça ??? > -------- :o)
>
> "Franck" a écrit dans le message de
news:
>
> > Sur mon Savepicture j'ai le message suivant :
> > erreur d'ecxecution 380
> >
> > valeur de propriété incorrecte
> >
> >
> > t'as une idée ou alors une autre méthode ?
> > en fait après la reduction ma picturebox =0 alors qu'elle
devrait avoir
> > unevaleur non ??
> > il faut peut etre "valider" le paintpicture ?? la je pars en
live je sais
> > plus quoi faire !!!!
> >
> >
> >
> > "ng" a écrit dans le message news:
> >
> > > > plante sur l'image reduite.....
> > > C'est à dire ?
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > > Franck wrote:
> > > > Merci ça marche c'est cool mais maintenant j'ai mon
savepicture qui
> > > > plante sur l'image reduite.....une idée ??
> > > >
> > > >
> > > > "LE TROLL" <le a écrit dans le message
news: > > > >
> > > > > Salut, vois le code en fichier zipé joint...
> > > > >
> > > > > ' form 1 : réduction image
> > > > > '
> > > > > Option Explicit
> > > > > Dim i As Byte
> > > > > Dim taux As Single
> > > > > '
> > > > >
> > > > > Sub Form_Load()
> > > > > For i = 50 To 99
> > > > > Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> > > > > Next i
> > > > > Combo1.ListIndex = 0
> > > > > End Sub
> > > > >
> > > > > Sub Command1_Click() 'réduction
> > > > > taux = Val(Combo1.ListIndex + 50) / 100
> > > > > Label1.Caption = taux
> > > > > Picture1.Picture = LoadPicture()
> > > > > Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
> > > > Picture2.Width *
> > > > > taux, Picture2.Height - Picture2.Height * taux
> > > > > End Sub
> > > > > -----------------------
> > > > >
> > > > > "Franck" a écrit dans le
message
> > de
> > > > news:
> > > > >
> > > > > > Bonjour à tous,
> > > > > >
> > > > > > je cherche un moyen facile et rapide pour faire un
> > > > redimensionnement de
> > > > > > BMP.
> > > > > >
> > > > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en
160x120.... > > > > > >
> > > > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > > > >
> > > > > > Merci à tous.
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> >
> >
> >
>
>


Avatar
Franck
sub command1_click()

Picture2.Picture = LoadPicture()

Picture2.PaintPicture Picture1, 0, 0, Picture1.Width - Picture1.Width *
0.5, Picture1.Height - Picture1.Height * 0.5
Picture2.AutoRedraw = True 'j'ai été obligé de mettre l'autoredraw car
sinon la photo s'effaçait du picture si je reduisais la fenetre pour que je
la réouvrait...

Call SavePicture(Picture2, "c:test.bmp")

end sub



"ng" a écrit dans le message news:

> Peut-on voir ton code ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Franck wrote:
> > oui dans un fichier.
> > C'est pas juste un reducteur que je veux, je veux que ça me reduise
> > mon image puis me la sauve avec la nouvelle taille....
> >
> >
> >
> > "LE TROLL" <le a écrit dans le message news:
> >
> > > Tu veux la sauver comment ton image, dans un fichier ???
> > > Pourquoi tu veux la sauver, puisqu'elle se réduit à
> > l'écran, si > c'est juste pour faire un "réducteur", y a plein de
> > logiciel pour ça ??? > -------- :o)
> > >
> > > "Franck" a écrit dans le message de
> > news:
> > >
> > > > Sur mon Savepicture j'ai le message suivant :
> > > > erreur d'ecxecution 380
> > > >
> > > > valeur de propriété incorrecte
> > > >
> > > >
> > > > t'as une idée ou alors une autre méthode ?
> > > > en fait après la reduction ma picturebox =0 alors qu'elle
> > devrait avoir
> > > > unevaleur non ??
> > > > il faut peut etre "valider" le paintpicture ?? la je pars en
> > live je sais
> > > > plus quoi faire !!!!
> > > >
> > > >
> > > >
> > > > "ng" a écrit dans le message news:
> > > >
> > > > > > plante sur l'image reduite.....
> > > > > C'est à dire ?
> > > > >
> > > > > --
> > > > > Nicolas G.
> > > > > FAQ VB : http://faq.vb.free.fr
> > > > > API Guide : http://www.allapi.net
> > > > > Google Groups : http://groups.google.fr/
> > > > > MZ-Tools : http://www.mztools.com/
> > > > >
> > > > > Franck wrote:
> > > > > > Merci ça marche c'est cool mais maintenant j'ai mon
> > savepicture qui
> > > > > > plante sur l'image reduite.....une idée ??
> > > > > >
> > > > > >
> > > > > > "LE TROLL" <le a écrit dans le message
> > news: > > > >
> > > > > > > Salut, vois le code en fichier zipé joint...
> > > > > > >
> > > > > > > ' form 1 : réduction image
> > > > > > > '
> > > > > > > Option Explicit
> > > > > > > Dim i As Byte
> > > > > > > Dim taux As Single
> > > > > > > '
> > > > > > >
> > > > > > > Sub Form_Load()
> > > > > > > For i = 50 To 99
> > > > > > > Combo1.AddItem "Réduction " & Format(i, "00") & " %"
> > > > > > > Next i
> > > > > > > Combo1.ListIndex = 0
> > > > > > > End Sub
> > > > > > >
> > > > > > > Sub Command1_Click() 'réduction
> > > > > > > taux = Val(Combo1.ListIndex + 50) / 100
> > > > > > > Label1.Caption = taux
> > > > > > > Picture1.Picture = LoadPicture()
> > > > > > > Picture1.PaintPicture Picture2, 0, 0, Picture2.Width -
> > > > > > Picture2.Width *
> > > > > > > taux, Picture2.Height - Picture2.Height * taux
> > > > > > > End Sub
> > > > > > > -----------------------
> > > > > > >
> > > > > > > "Franck" a écrit dans le
> > message
> > > > de
> > > > > > news:
> > > > > > >
> > > > > > > > Bonjour à tous,
> > > > > > > >
> > > > > > > > je cherche un moyen facile et rapide pour faire un
> > > > > > redimensionnement de
> > > > > > > > BMP.
> > > > > > > >
> > > > > > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en
> > 160x120.... > > > > > >
> > > > > > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > > > > > >
> > > > > > > > Merci à tous.
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > > >
> > >
> > >
>
>
Avatar
ng
Salut,

Call SavePicture(Picture2, "c:test.bmp")


Il est déconseillé d'utiliser les propriétés par défaut, ici c'est .Picture
or .Picture est vide puisque tu as fais un LoadPicture() donc ca plante,
c'est normal.
Il faut utiliser ici .Image car elle renvoie l'image dessinée (contraimement
à .Picture qui renvoie une image chargée).

Donc :

Call SavePicture(Picture2.Image, "c:test.bmp")

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Franck wrote:
sub command1_click()

Picture2.Picture = LoadPicture()

Picture2.PaintPicture Picture1, 0, 0, Picture1.Width -
Picture1.Width *
0.5, Picture1.Height - Picture1.Height * 0.5
Picture2.AutoRedraw = True 'j'ai été obligé de mettre l'autoredraw
car sinon la photo s'effaçait du picture si je reduisais la fenetre
pour que je la
réouvrait...

Call SavePicture(Picture2, "c:test.bmp")

end sub



"ng" a écrit dans le message news:

> Peut-on voir ton code ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Franck wrote:
> > oui dans un fichier.
> > C'est pas juste un reducteur que je veux, je veux que ça me
reduise > > mon image puis me la sauve avec la nouvelle taille....
> >
> >
> >
> > "LE TROLL" <le a écrit dans le message news:
> >
> > > Tu veux la sauver comment ton image, dans un fichier
??? > > > Pourquoi tu veux la sauver, puisqu'elle se réduit
à > > l'écran, si > c'est juste pour faire un "réducteur", y a
plein de > > logiciel pour ça ??? > -------- :o)
> > >
> > > "Franck" a écrit dans le
message de > > news:
> > >
> > > > Sur mon Savepicture j'ai le message suivant :
> > > > erreur d'ecxecution 380
> > > >
> > > > valeur de propriété incorrecte
> > > >
> > > >
> > > > t'as une idée ou alors une autre méthode ?
> > > > en fait après la reduction ma picturebox =0 alors qu'elle
> > devrait avoir
> > > > unevaleur non ??
> > > > il faut peut etre "valider" le paintpicture ?? la je pars
en > > live je sais
> > > > plus quoi faire !!!!
> > > >
> > > >
> > > >
> > > > "ng" a écrit dans le message news:
> > > >
> > > > > > plante sur l'image reduite.....
> > > > > C'est à dire ?
> > > > >
> > > > > --
> > > > > Nicolas G.
> > > > > FAQ VB : http://faq.vb.free.fr
> > > > > API Guide : http://www.allapi.net
> > > > > Google Groups : http://groups.google.fr/
> > > > > MZ-Tools : http://www.mztools.com/
> > > > >
> > > > > Franck wrote:
> > > > > > Merci ça marche c'est cool mais maintenant j'ai mon
> > savepicture qui
> > > > > > plante sur l'image reduite.....une idée ??
> > > > > >
> > > > > >
> > > > > > "LE TROLL" <le a écrit dans le message
> > news: > > > >
> > > > > > > Salut, vois le code en fichier zipé joint...
> > > > > > >
> > > > > > > ' form 1 : réduction image
> > > > > > > '
> > > > > > > Option Explicit
> > > > > > > Dim i As Byte
> > > > > > > Dim taux As Single
> > > > > > > '
> > > > > > >
> > > > > > > Sub Form_Load()
> > > > > > > For i = 50 To 99
> > > > > > > Combo1.AddItem "Réduction " & Format(i, "00") &
" %" > > > > > > > Next i
> > > > > > > Combo1.ListIndex = 0
> > > > > > > End Sub
> > > > > > >
> > > > > > > Sub Command1_Click() 'réduction
> > > > > > > taux = Val(Combo1.ListIndex + 50) / 100
> > > > > > > Label1.Caption = taux
> > > > > > > Picture1.Picture = LoadPicture()
> > > > > > > Picture1.PaintPicture Picture2, 0, 0,
Picture2.Width - > > > > > > Picture2.Width *
> > > > > > > taux, Picture2.Height - Picture2.Height * taux
> > > > > > > End Sub
> > > > > > > -----------------------
> > > > > > >
> > > > > > > "Franck" a écrit
dans le > > message
> > > > de
> > > > > > news:
> > > > > > >
> > > > > > > > Bonjour à tous,
> > > > > > > >
> > > > > > > > je cherche un moyen facile et rapide pour faire un
> > > > > > redimensionnement de
> > > > > > > > BMP.
> > > > > > > >
> > > > > > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en
> > 160x120.... > > > > > >
> > > > > > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > > > > > >
> > > > > > > > Merci à tous.
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > > >
> > >
> > >
>
>


Avatar
Franck
Merci a tous ça marche nickel, j'avais pas pensé a .image

Vous m'avez sorti d'un beau bordel.....


"ng" a écrit dans le message news:
#
> Salut,
>
> > Call SavePicture(Picture2, "c:test.bmp")
> Il est déconseillé d'utiliser les propriétés par défaut, ici c'est
.Picture
> or .Picture est vide puisque tu as fais un LoadPicture() donc ca plante,
> c'est normal.
> Il faut utiliser ici .Image car elle renvoie l'image dessinée
(contraimement
> à .Picture qui renvoie une image chargée).
>
> Donc :
>
> Call SavePicture(Picture2.Image, "c:test.bmp")
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Franck wrote:
> > sub command1_click()
> >
> > Picture2.Picture = LoadPicture()
> >
> > Picture2.PaintPicture Picture1, 0, 0, Picture1.Width -
> > Picture1.Width *
> > 0.5, Picture1.Height - Picture1.Height * 0.5
> > Picture2.AutoRedraw = True 'j'ai été obligé de mettre l'autoredraw
> > car sinon la photo s'effaçait du picture si je reduisais la fenetre
> > pour que je la
> > réouvrait...
> >
> > Call SavePicture(Picture2, "c:test.bmp")
> >
> > end sub
> >
> >
> >
> > "ng" a écrit dans le message news:
> >
> > > Peut-on voir ton code ?
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > > Franck wrote:
> > > > oui dans un fichier.
> > > > C'est pas juste un reducteur que je veux, je veux que ça me
> > reduise > > mon image puis me la sauve avec la nouvelle taille....
> > > >
> > > >
> > > >
> > > > "LE TROLL" <le a écrit dans le message news:
> > > >
> > > > > Tu veux la sauver comment ton image, dans un fichier
> > ??? > > > Pourquoi tu veux la sauver, puisqu'elle se réduit
> > à > > l'écran, si > c'est juste pour faire un "réducteur", y a
> > plein de > > logiciel pour ça ??? > -------- :o)
> > > > >
> > > > > "Franck" a écrit dans le
> > message de > > news:
> > > > >
> > > > > > Sur mon Savepicture j'ai le message suivant :
> > > > > > erreur d'ecxecution 380
> > > > > >
> > > > > > valeur de propriété incorrecte
> > > > > >
> > > > > >
> > > > > > t'as une idée ou alors une autre méthode ?
> > > > > > en fait après la reduction ma picturebox =0 alors qu'elle
> > > > devrait avoir
> > > > > > unevaleur non ??
> > > > > > il faut peut etre "valider" le paintpicture ?? la je pars
> > en > > live je sais
> > > > > > plus quoi faire !!!!
> > > > > >
> > > > > >
> > > > > >
> > > > > > "ng" a écrit dans le message news:
> > > > > >
> > > > > > > > plante sur l'image reduite.....
> > > > > > > C'est à dire ?
> > > > > > >
> > > > > > > --
> > > > > > > Nicolas G.
> > > > > > > FAQ VB : http://faq.vb.free.fr
> > > > > > > API Guide : http://www.allapi.net
> > > > > > > Google Groups : http://groups.google.fr/
> > > > > > > MZ-Tools : http://www.mztools.com/
> > > > > > >
> > > > > > > Franck wrote:
> > > > > > > > Merci ça marche c'est cool mais maintenant j'ai mon
> > > > savepicture qui
> > > > > > > > plante sur l'image reduite.....une idée ??
> > > > > > > >
> > > > > > > >
> > > > > > > > "LE TROLL" <le a écrit dans le message
> > > > news: > > > >
> > > > > > > > > Salut, vois le code en fichier zipé joint...
> > > > > > > > >
> > > > > > > > > ' form 1 : réduction image
> > > > > > > > > '
> > > > > > > > > Option Explicit
> > > > > > > > > Dim i As Byte
> > > > > > > > > Dim taux As Single
> > > > > > > > > '
> > > > > > > > >
> > > > > > > > > Sub Form_Load()
> > > > > > > > > For i = 50 To 99
> > > > > > > > > Combo1.AddItem "Réduction " & Format(i, "00") &
> > " %" > > > > > > > Next i
> > > > > > > > > Combo1.ListIndex = 0
> > > > > > > > > End Sub
> > > > > > > > >
> > > > > > > > > Sub Command1_Click() 'réduction
> > > > > > > > > taux = Val(Combo1.ListIndex + 50) / 100
> > > > > > > > > Label1.Caption = taux
> > > > > > > > > Picture1.Picture = LoadPicture()
> > > > > > > > > Picture1.PaintPicture Picture2, 0, 0,
> > Picture2.Width - > > > > > > Picture2.Width *
> > > > > > > > > taux, Picture2.Height - Picture2.Height * taux
> > > > > > > > > End Sub
> > > > > > > > > -----------------------
> > > > > > > > >
> > > > > > > > > "Franck" a écrit
> > dans le > > message
> > > > > > de
> > > > > > > > news:
> > > > > > > > >
> > > > > > > > > > Bonjour à tous,
> > > > > > > > > >
> > > > > > > > > > je cherche un moyen facile et rapide pour faire un
> > > > > > > > redimensionnement de
> > > > > > > > > > BMP.
> > > > > > > > > >
> > > > > > > > > > J'ai un bmp en 320x240 et j'aimerai l'avoir en
> > > > 160x120.... > > > > > >
> > > > > > > > > > Quelqu'un a une astuce qui fonctionne bien ??
> > > > > > > > > >
> > > > > > > > > > Merci à tous.
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > >
> > >
>
>