Discussion :

[Le Djé]

Bonjour le forum,

Je développe une appli qui surveille les utilisateurs de mon pc (photo via webcam + capture écran).

Pour l'instant je n'ai que mes deux images dans des picturebox (200x200 pixels) que j'enregistre séparément. Je souhaiterais plutôt ne faire qu'un fichier (1 picturebox de 200x400) avec mes images l'une à côté de l'autre.

Faut-il fusionner les 2 picturebox avant l'enregistrement ou bien faut-il enregistrer les deux picturebox et ensuite fusionner les fichiers ? Et comment faire ?

Merci de l'aide que vous pourrez m'apporter

[Pol63]

dim img as new bitmap(200,400)
dim g as system.drawing.graphics
= graphics.fromimage(img)
g.drawimage(imgpicturebox1, 0,0)
g.drawimage(imgpicturebox2,200,0)
img.save


ou un truc qui ressemble ^^

[Le Djé]

Merci à toi !

Ce code est excellent, en ajustant les tailles réelles des images et non pas celles des picturebox (car la 1ère picturebox affiche une image de 320*240 et la 2ème une image de 1440*900 mais ces picturebox font 320*240) ce qui me donne à l'arrivée une image de 1760*900

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim hauteur As Long, largeur As Long
'récupère la résolution de l'écran
        hauteur = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        largeur = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width + 320
        Dim img As New Bitmap(CInt(largeur), CInt(hauteur))
        Dim g As System.Drawing.Graphics = Graphics.FromImage(img)
        g.DrawImage(PictureBox1.Image, 0, 0)
 
        g.DrawImage(PictureBox2.Image, 320, 0)
        g.DrawImage(img, 320, 0)
        img.Save(Environment.CurrentDirectory & "\Capture.jpg", ImageFormat.Jpeg)

Je me retrouve avec l'image de 320*240 en haut à gauche de mon image et l'autre de 1440*900 à sa droite.

Un grand

Le Djé

[Pol63]

tu peux modifier les tailles des images aussi si tu veux (agrandir la webcam ou diminuer l'écran)
drawimage a une surcharge qui permet de définir la taille de départ et la taille au final