Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

SavePicture

5 réponses
Avatar
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"

5 réponses

Avatar
LE TROLL
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" a écrit dans le message de
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"





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

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.
Avatar
LE TROLL
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" a écrit dans le message de
news:4999d187$

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

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.





Avatar
LE TROLL
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" a écrit dans le message de
news:4999d187$

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

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.





Avatar
LE TROLL
message du 17, 7h30 erreur de forum :o)

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


"LE TROLL" <le a écrit dans le message de
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" a écrit dans le message de
news:4999d187$

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

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.