Drag & Drop PictureBox sur WindowsForm

Version imprimable

07/10/2013, 21h44
elerat

Drag & Drop PictureBox sur WindowsForm

Bonjour à tous,
Nouveaux sur le forum, je tiens à préciser que je débute en VB.Net ...
Je réalise actuellement une application qui sera totalement configurable par l'utilisateur. L'utilisateur pourra choisir ce qui est affiché sur la WindowsForm.
Pour cela, j'ai crée une boite à outils permettant de choisir les éléments à afficher.

Mon problème est le suivant, dans ma boite à outils, j'ai des controls du genre PictureBox ou Label, j'aimerais réaliser un Drag Drop de cette boite à outils sur la form utilisateur, et lors du Drop sur la form, créer un nouvel objet PictureBox ou Label ...
J'ai trouvé beaucoup d'exemples de Drag & Drop d'image dans pictureBox ou Text,dans TextBox, mais pas de Drag & Drop d'objets.

Je remercie par avance toutes les personnes qui donnerons réponse à mon probbleme.
07/10/2013, 23h10
wallace1

Bonsoir elerat,

Désolé si l'exemple que je vais te proposer te semble pour le moins compliqué mais si tu souhaites :

- créer des contrôles avec des poignées de redimensionnement tu devras à mon humble avis passer par là ....... :

http://www.codeproject.com/Articles/...ontrol-Resizer

- glisser déposer 1 PictureBox ou 1 Label :

http://stackoverflow.com/questions/7...ebox-onto-form

http://stackoverflow.com/questions/8...el-in-winforms

N'hésites pas à utiliser un convertisseur DotNet :

http://www.developerfusion.com/tools.../csharp-to-vb/

Bonne lecture. ;)

Merci Wallace1,
Grâce à ces exemples j'ai pu implémenter le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    Private Sub ToolBoxLamp_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ToolBoxLamp.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.ToolBoxLamp.DoDragDrop(ToolBoxLamp.Image, DragDropEffects.Copy)
        End If
    End Sub
 
    Private Sub HMI_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        If e.Data.GetDataPresent(DataFormats.Bitmap) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
 
    Private Sub HMI_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        If e.Data.GetDataPresent(DataFormats.Bitmap) Then
            Dim Pb As New HmiObjButton
            Me.Controls.Add(Pb)
            Pb.Size = New Point(50, 50)
            Pb.SizeMode = PictureBoxSizeMode.Zoom
            Pb.Location = New Point(e.X, e.Y)
            Pb.Image = e.Data.GetData(DataFormats.Bitmap)
            Pb.EventValue = 0
            AddHandler Pb.Click, AddressOf PbClick
        End If
    End Sub
 
    Private Sub PbClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        HmiObjContextMenu.Show()
    End Sub

Ce code me permet donc de créer un nouveau PictureBox intégrant l'image du PictureBox source.

J'ai quelques autres soucis concernant le Pb créer en dynamique ...
J'ai ajouter un AddHandler pour l'event Click, comment puis je récupérer ou cibler le Pb (je peux en créer plusieurs ...) concerné, ou récupérer une propriété de ce Pb, Pb.Location par exemple ?

Encore merci pour toutes ces informations.