SavePicture

Le
Norbert
Bonjour,

Comment faire pour avoir une image aux dimensions
de la Form et non de l'écran avec ce code.
Merci

SavePicture Form1.Image, App.Path & "image.bmp"
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LE TROLL
Le #18684461
Bonjour,

Si t'es dans form1, "Image" devrait suffire.
Image = image2 = pictureBox * 2

form1.scalemode = vbPixels
form1.autoredraw = true
Image.autoredraw = true
Image.AutoSize = true
Image.ScaleMode = VBpixels
Image2.autoredraw = true
Image2.AutoSize = true
Image2.ScaleMode = VBpixels

Image2.Picture = LoadPicture(App.Path & "fichier_origine.bmp")

dim tauxH as double
dim tauxV as double
tauxH = 100 / image2.scaleWidth * form1.scaleWidth
tauxV = 100 / image2.scaleHeight * form1.scaleHeight

Image.PaintPicture Image2, 0, 0, Image2.Width * tauxH, Image2.Height *
tauxV

SavePicture Image, App.Path & "image.bmp"

Nota bene : le fichier d'Origine transite par Image2, il arrive dedans, puis
par ce qui est sus-cité, va changer de dimensions et passer dans Image, donc
on peut laisser ensuite Image2.visible = false
Code non vérifié, on peut, peut être faire mieux ? On verra les réponses,
j'utilise rarement ce genre de gymnastique...

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Norbert" news:49993ed4$
Bonjour,

Comment faire pour avoir une image aux dimensions
de la Form et non de l'écran avec ce code.
Merci

SavePicture Form1.Image, App.Path & "image.bmp"





Norbert
Le #18685481
"LE TROLL"
Bonjour,

Si t'es dans form1, "Image" devrait suffire.
Image = image2 = pictureBox * 2




Merci mais j'aimerais le faire directement sur la feuille sans contrôle.
LE TROLL
Le #18687351
Bonjour,

Ben tu utilises "Images", c'est bien un contrôle ça je présume... Alors
à prtir de là, je ne vois pas ce qui interdirait d'utiliser deux picture, à
la rigueur invisibles !
Ton exemple c'est : SavePicture Form1.Image...
Alors tu donnes un exemple avec un contrôle, et tu dis que tu veux la
réponse sans contrôle ?

Ben je ne sais, peut être qu'une API fait ceci ?

A la rigueur je vois bien une lecture du bmp, avec donc pour chaque
pixel sa position et sa couleur (mais je ne connais pas la façon de stocker
les données des bmp, faut se renseigner), puis réécrire le pixel à
l'identique sur ta feuille :
Pset(c, l), couleur
en le passant préalablement par ton algorithmes de grossissement...

Mais toi tu le veux sans contrôle, mais tu veux utiliser "SavePicture" qui
sauve un contrôle image ou picture, là je dois dire que je décroche,
désolé...

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Norbert" news:4999d187$

"LE TROLL"
Bonjour,

Si t'es dans form1, "Image" devrait suffire.
Image = image2 = pictureBox * 2




Merci mais j'aimerais le faire directement sur la feuille sans contrôle.





LE TROLL
Le #18687341
Ah bon, ce serait le bon forum, je ne comprends pas...
Il y a quelques année, en VB6 y avait bien 15 questions par jour, et là,
vbNet VB10 bientôt, il me semble le successeur, donc il devrait y avoir
plein de monde, comment se fait-il qu'il n'y ait personne, ils sont passé où
ceux qui ne sont plus sur VB6 ? Un autre forum MS, ou autre ? Où alors plus
personne n'écrit en VB ? As-tu une explication ???

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Norbert" news:4999d187$

"LE TROLL"
Bonjour,

Si t'es dans form1, "Image" devrait suffire.
Image = image2 = pictureBox * 2




Merci mais j'aimerais le faire directement sur la feuille sans contrôle.





LE TROLL
Le #18688101
message du 17, 7h30 erreur de forum :o)

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"LE TROLL" news:
Ah bon, ce serait le bon forum, je ne comprends pas...
Il y a quelques année, en VB6 y avait bien 15 questions par jour, et là,
vbNet VB10 bientôt, il me semble le successeur, donc il devrait y avoir
plein de monde, comment se fait-il qu'il n'y ait personne, ils sont passé
où ceux qui ne sont plus sur VB6 ? Un autre forum MS, ou autre ? Où alors
plus personne n'écrit en VB ? As-tu une explication ???

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Norbert" news:4999d187$

"LE TROLL"
Bonjour,

Si t'es dans form1, "Image" devrait suffire.
Image = image2 = pictureBox * 2




Merci mais j'aimerais le faire directement sur la feuille sans contrôle.








Publicité
Poster une réponse
Anonyme