Bonjour,
Je me permets d'écrire car j'ai une problématique que je n'arrive pas à résoudre.
Je suis Débutant ++
Mon problème :
J'ai une image de fond sur laquelle je souhaite drag & drop des images
Comme si j'avais une image de parking sur laquelle je souhaite placer avec la souris des images de voiture.
J'aimerai aussi pouvoir déplacer les voitures que j'ai mis sur mon image de fond avec la souris.
Et pour finir faire la fusion de toutes mes images de voiture et mon image de fond pour enregistrer une image sur mon HD
Actuellement mon dev :
J'ai un panel dans lequel j'ai une PictureBox avec mon image de fond.
c'est le début du dev, il n'y a pas la gestion du drag & drop
Le problème est le fait que les images sont fusionnées.
j'ai fait différents essais mais je bloque, je sais pas comment faire ou choisir tels ou tels composants, librairies.
Je vous remercie d'avance pour votre aide car ce projet me tiens à cœur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Dim objBitMap As Bitmap = Image.FromFile(Application.StartupPath & "\SaveMaps\MapForToken.jpg") Dim PictureBoxToken As New PictureBox PictureBoxToken.AllowDrop = True PictureBoxToken.SizeMode = PictureBoxSizeMode.AutoSize PictureBoxToken.Image = objBitMap Panel1.Controls.Add(PictureBoxToken) Dim objBMP As Bitmap = Image.FromFile(Application.StartupPath & "\Modules\Picto.png") Dim objPictureBoxAssets As New PictureBox objPictureBoxAssets.Name = "PictureBox_aze" objPictureBoxAssets.AllowDrop = True objPictureBoxAssets.Height = 30 objPictureBoxAssets.Width = 30 objPictureBoxAssets.SizeMode = PictureBoxSizeMode.StretchImage objPictureBoxAssets.Image = objBMP objPictureBoxAssets.BringToFront() Panel1.Controls.Add(objPictureBoxAssets) Dim objGraphics As Graphics objGraphics = Graphics.FromImage(objBitMap) objGraphics.DrawImage(objBMP, New Point(30, 30))
Cordialement Joel
Partager