afficher le nom de l'image dropée dans un label

Version imprimable

Bonjour

je suis en train d'élaborer un petit jeu qui fonctionne avec des images a glisser deposer dans la bonne case.

je voudrais connaitre le nom de l'image déposée dans la picturebox pour comptabiliser les bonnes réponses.

voici mon code (simplifié à 2 picturebox source et 2 picturebox cible)

le drag and drop image marche exactement comme je le souhaite mais je ne parvient pas a trouver comment afficher dans un label juste au dessus de la picturebox cible le nom de l'image dropée.

merci de votre aide

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        picDropTarget1.AllowDrop = True
        picDropTarget2.AllowDrop = True
 
        picDragSource1.Tag = "selectionner_le_chocolat.png"
        picDragSource2.Tag = "afficher_prix_a_payer.png"
 
 
 
    End Sub
 
    Private nomdelimage As String
    Private MouseIsDown As Boolean = False 'flag
 
    ' Start the drag.
    Private Sub picDragSource_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picDragSource1.MouseDown, picDragSource2.MouseDown ', picDragSource3.MouseDown, picDragSource4.MouseDown, picDragSource5.MouseDown, picDragSource6.MouseDown, picDragSource7.MouseDown, picDragSource8.MouseDown, picDragSource9.MouseDown, picDragSource10.MouseDown, picDragSource11.MouseDown
 
        ' Start the drag if it's the left mouse button.
 
        Dim tagimage As String = CStr(CType(sender, System.Windows.Forms.PictureBox).Tag)
 
        If (e.Button = MouseButtons.Left) Then
 
            picDragSource1.DoDragDrop(DirectCast(sender, PictureBox).Image, DragDropEffects.Copy)
            picDragSource1.DoDragDrop(picDragSource1.Name, DragDropEffects.Copy) 'Lorsque j'appuis je recuperer le nom de ma picturebox
            picDragSource2.DoDragDrop(DirectCast(sender, PictureBox).Image, DragDropEffects.Copy)
            picDragSource2.DoDragDrop(picDragSource2.Name, DragDropEffects.Copy) 'Lorsque j'appuis je recuperer le nom de ma picturebox
 
 
 
        End If
    End Sub
 
 
    ' Allow a copy of an image.
    Private Sub picDropTarget1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget1.DragEnter
        ' See if this is a copy and the data includes an image.
 
        If (e.Data.GetDataPresent(DataFormats.Bitmap) AndAlso (e.AllowedEffect And DragDropEffects.Copy) <> 0) Then
            ' Allow this.
            e.Effect = DragDropEffects.Copy
 
 
 
        Else
            ' Don't allow any other drop.
            e.Effect = DragDropEffects.None
        End If
    End Sub
    ' Accept the drop.
    Private Sub picDropTarget1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget1.DragDrop
        Dim bm As Bitmap = DirectCast(e.Data.GetData(DataFormats.Bitmap, True), Bitmap)
 
        picDropTarget1.Image = bm
 
    End Sub
    ' Allow a copy of an image.
    Private Sub picDropTarget2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget2.DragEnter
        ' See if this is a copy and the data includes an image.
 
        If (e.Data.GetDataPresent(DataFormats.Bitmap) AndAlso (e.AllowedEffect And DragDropEffects.Copy) <> 0) Then
            ' Allow this.
            e.Effect = DragDropEffects.Copy
 
 
        Else
            ' Don't allow any other drop.
            e.Effect = DragDropEffects.None
        End If
    End Sub
    ' Accept the drop.
    Private Sub picDropTarget_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget2.DragDrop
        Dim bm As Bitmap = DirectCast(e.Data.GetData(DataFormats.Bitmap, True), Bitmap)
 
        picDropTarget2.Image = bm
 
 
    End Sub
 
    'bouton d'effacement
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'PictureBox1.Image = Nothing
        picDropTarget1.Image = Nothing
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'PictureBox2.Image = Nothing
        picDropTarget2.Image = Nothing
        rep22.Text = ""
    End Sub
 
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
 
    End Sub
End Class

18/12/2014, 18h38
shayw

Bonjour

à quoi sert

Code:

Dim tagimage As String = CStr(CType(sender, System.Windows.Forms.PictureBox).Tag)

?
Puisqu'il n'est pas utilisé :roll:

Si tu veux afficher un label au dessus d'un picturebox
comme tu connais les coordonnés du picturebox left et top et tu connais la taille du label
alors

Code:

label1.location = new point(picturebox1.left + (picturebox1.width - label1.width)\2,picturebox1.top - label1.height - 4)

ainsi le label sera centré légèrement au dessus du picturebox
18/12/2014, 19h04
zylix

c'est vrai que j'ai oublié d'enlever le dim.

mais le probleme n'est pas d'afficher le label mais de mettre dedans le bon nom de l'image dropé...
en fait il y aura au final 10 images sources avec un nom différent et je voudrais connaitre le nom de l'image dropé dans une des 10 pictures box cibles. car il faut mettre la bonne image source dans une des cases cibles...
18/12/2014, 19h16
shayw

Tu as gardé le nom de l'image dans le tag du picturebox non ?
18/12/2014, 20h58
Pol63

dodragdrop permet de démarrer le drag drop, avec ce qu'on veut dedans (pourquoi tu le fais 4x d'ailleurs ?)

via le getdata on peut récupérer les données (et il doit y avoir getdataformats pour savoir si ce qui est dropé est bien ce que l'on pense, car ca peut etre dropé depuis une autre application)

donc si tu veux pouvoir récupérer l'image et son nom autant mettre quelque chose qui a les 2 infos, genre le picturebox
après tu cast le getdata et tu pourras faire .image .tag dessus

ton idée me plait car image + nom de l'image c'est ce que je cherche à faire

j'ai essayé ça mais ça ne marche pas
Code:

1 2 3 Private Sub picDropTarget1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget1.DragDrop, picDropTarget2.DragDrop picdroptarget1.Image = DirectCast(PictureBox1.Controls(e.Data.GetData(DataFormats.Text)), PictureBox).Image.Tag End Sub
je suis à la limite de mes capacités j'ai du mal à coder cette idée...

18/12/2014, 23h05
Pol63

DataFormats.Text c'est pour spécifier qu'on veut récupérer du texte, toi tu veux récupérer un picturebox

tu peux mettre un point d'arret et essayer différentes syntaxes dans la fenetre d'espion express, ca gagne du temps sur l'apprentissage
de mémoire je crois qu'il faut préciser le chemin de la classe genre "System.Windows.Forms.Picturebox"
m'enfin sinon tu fais F1 sur getdata et tu auras des explications
et sinon un coup d'espion express sur getformats ou un truc dans le genre

Bonjour,

Citation:

Envoyé par zylix

ton idée me plait car image + nom de l'image c'est ce que je cherche à faire
...
je suis à la limite de mes capacités j'ai du mal à coder cette idée...

Je n'ai pas tout vérifié dans ton code, mais voici le principe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub picDragSource_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picDragSource1.MouseDown, picDragSource2.MouseDown ', picDragSource3.MouseDown, picDragSource4.MouseDown, picDragSource5.MouseDown, picDragSource6.MouseDown, picDragSource7.MouseDown, picDragSource8.MouseDown, picDragSource9.MouseDown, picDragSource10.MouseDown, picDragSource11.MouseDown
        If (e.Button = MouseButtons.Left) Then         ' Start the drag if it's the left mouse button.
            Dim img As System.Drawing.Image = DirectCast(sender, PictureBox).Image
            img.Tag = DirectCast(sender, PictureBox).Tag
            DirectCast(sender, PictureBox).DoDragDrop(img, DragDropEffects.Copy) ' 
        End If
    End Sub
    ' Allow a copy of an image.
    Private Sub picDropTarget_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget1.DragEnter, picDropTarget2.DragEnter
        ' See if this is a copy and the data includes an image.
        If (e.Data.GetDataPresent(DataFormats.Bitmap) AndAlso (e.AllowedEffect And DragDropEffects.Copy) <> 0) Then
            e.Effect = DragDropEffects.Copy             ' Allow this.
        Else
            e.Effect = DragDropEffects.None             ' Don't allow any other drop.
        End If
    End Sub
    ' Accept the drop.
    Private Sub picDropTarget_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget1.DragDrop, picDropTarget2.DragDrop
        DirectCast(sender, PictureBox).Image = DirectCast(e.Data.GetData(DataFormats.Bitmap, True), Bitmap)
        ' DirectCast(sender, PictureBox).Image.Tag contient le nom de l'image -> effectuer l'affichage du label (avec LeLabel.Text = DirectCast(sender, PictureBox).Image.Tag)
    End Sub

Ecrit le texte "picDropTarget1.Image.Tag" dans un label fixe pour voir que cela fonctionne, puis ensuite fait le avec le label lié au picturebox.

j'ai repensé le problème et réécrit le code :

cela marche parfaitement bien maintenant.
pour résumer, j'ai onze picturebox contenant 11 images sources avec un tag.
chacune de ces images sont "drag and dropées" avec leur tag dans une des 11 autres pictures box cible, la ou le souhaite l'utilisateur.
comme il s'agit d'un jeu, il ne peut y avoir qu'un seul bon emplacement cible ou l'on peut mettre l'image source.
quand le joueur pense qu'il a bien placé toutes les images il valide ses réponses en appuyant sur un bouton de validation et il peut connaitre sa note qui s'affiche dans un textbox.
un double click sur la cible permet d'effacer son contenu si necessaire.

je vous partage mon code pour que d'autres puissent en profiter.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        picDropTarget1.AllowDrop = True
        picDropTarget2.AllowDrop = True
        picDropTarget3.AllowDrop = True
        picDropTarget4.AllowDrop = True
        picDropTarget5.AllowDrop = True
        picDropTarget6.AllowDrop = True
        picDropTarget7.AllowDrop = True
        picDropTarget8.AllowDrop = True
        picDropTarget9.AllowDrop = True
        picDropTarget10.AllowDrop = True
        picDropTarget11.AllowDrop = True
 
 
        picDragSource1.Tag = "selectionner_le_chocolat.png"
        picDragSource2.Tag = "afficher_prix_a_payer.png"
        picDragSource3.Tag = "introduire_piece.png"
        picDragSource4.Tag = "affiche_somme_versee.png"
        picDragSource5.Tag = "somme_versee_superieure.png"
        picDragSource6.Tag = "somme_versee_egale.png"
        picDragSource7.Tag = "somme_versee_inferieure.png"
        picDragSource8.Tag = "rendre_monnaie.png"
        picDragSource9.Tag = "monnaie_rendue.png"
        picDragSource10.Tag = "distribuer_chocolat.png"
        picDragSource11.Tag = "chocolat_distribue.png"
 
    End Sub
 
    Private nomdelimage As String
    Private MouseIsDown As Boolean = False 'flag 
    Private tagSource As String
 
 
    ' Start the drag.
    Private Sub picDragSource_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picDragSource1.MouseDown, picDragSource2.MouseDown, picDragSource9.MouseDown, picDragSource8.MouseDown, picDragSource7.MouseDown, picDragSource6.MouseDown, picDragSource5.MouseDown, picDragSource4.MouseDown, picDragSource3.MouseDown, picDragSource11.MouseDown, picDragSource10.MouseDown ', picDragSource3.MouseDown, picDragSource4.MouseDown, picDragSource5.MouseDown, picDragSource6.MouseDown, picDragSource7.MouseDown, picDragSource8.MouseDown, picDragSource9.MouseDown, picDragSource10.MouseDown, picDragSource11.MouseDown
 
        ' Start the drag if it's the left mouse button.
        If (e.Button = MouseButtons.Left) Then
 
            tagSource = DirectCast(sender, System.Windows.Forms.PictureBox).Tag
            DirectCast(sender, PictureBox).DoDragDrop(DirectCast(sender, PictureBox).Image, DragDropEffects.Copy)
        End If
    End Sub
 
 
    ' Allow a copy of an image.
    Private Sub picDropTarget_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget2.DragEnter, picDropTarget1.DragEnter, picDropTarget9.DragEnter, picDropTarget8.DragEnter, picDropTarget7.DragEnter, picDropTarget6.DragEnter, picDropTarget5.DragEnter, picDropTarget4.DragEnter, picDropTarget3.DragEnter, picDropTarget11.DragEnter, picDropTarget10.DragEnter ' Handles picDropTarget1.DragEnter
        ' See if this is a copy and the data includes an image.
 
        If (e.Data.GetDataPresent(DataFormats.Bitmap) AndAlso (e.AllowedEffect And DragDropEffects.Copy) <> 0) Then
            ' Allow this.
            e.Effect = DragDropEffects.Copy
        Else
            ' Don't allow any other drop.
            e.Effect = DragDropEffects.None
        End If
    End Sub
    'Accept the drop.
    Private Sub picDropTarget_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles picDropTarget2.DragDrop, picDropTarget1.DragDrop, picDropTarget9.DragDrop, picDropTarget8.DragDrop, picDropTarget7.DragDrop, picDropTarget6.DragDrop, picDropTarget5.DragDrop, picDropTarget4.DragDrop, picDropTarget3.DragDrop, picDropTarget11.DragDrop, picDropTarget10.DragDrop ' Handles picDropTarget1.DragDrop
        Dim bm As Bitmap = DirectCast(e.Data.GetData(DataFormats.Bitmap, True), Bitmap)
        Dim pb As PictureBox = DirectCast(sender, PictureBox)
        pb.Tag = tagSource
        pb.Image = bm
    End Sub
 
 ' comptabilisation des reponses
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
 
        picDragSource1.Tag = "selectionner_le_chocolat.png"
        picDragSource2.Tag = "afficher_prix_a_payer.png"
        picDragSource3.Tag = "introduire_piece.png"
        picDragSource4.Tag = "affiche_somme_versee.png"
        picDragSource5.Tag = "somme_versee_superieure.png"
        picDragSource6.Tag = "somme_versee_egale.png"
        picDragSource7.Tag = "somme_versee_inferieure.png"
        picDragSource8.Tag = "rendre_monnaie.png"
        picDragSource9.Tag = "monnaie_rendue.png"
        picDragSource10.Tag = "distribuer_chocolat.png"
        picDragSource11.Tag = "chocolat_distribue.png"
 
        Dim iResult As Integer = 0
 
        If picDropTarget1.Tag = "selectionner_le_chocolat.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget2.Tag = "afficher_prix_a_payer.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget3.Tag = "introduire_piece.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget4.Tag = "affiche_somme_versee.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget5.Tag = "somme_versee_superieure.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget6.Tag = "somme_versee_egale.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget7.Tag = "somme_versee_inferieure.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget8.Tag = "rendre_monnaie.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget9.Tag = "monnaie_rendue.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget10.Tag = "distribuer_chocolat.png" Then
            iResult = iResult + 1
        End If
        If picDropTarget11.Tag = "chocolat_distribue.png" Then
            iResult = iResult + 1
        End If
 
        'affichage du resultat arrondi à 2 decimales
        Dim manote
        manote = iResult * (20 / 11)
        TextBox1.Text = iResult & " bonnes réponses. soit : " & " " & (FormatNumber(manote, 2) & " /20")
    End Sub
 
' effacement 
    Private Sub picDropTarget_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picDropTarget9.DoubleClick, picDropTarget8.DoubleClick, picDropTarget7.DoubleClick, picDropTarget6.DoubleClick, picDropTarget5.DoubleClick, picDropTarget4.DoubleClick, picDropTarget3.DoubleClick, picDropTarget2.DoubleClick, picDropTarget11.DoubleClick, picDropTarget10.DoubleClick, picDropTarget1.DoubleClick
        DirectCast(sender, PictureBox).Image = Nothing
        DirectCast(sender, PictureBox).Tag = ""
    End Sub
End Class

merci pour vos suggestions et votre aide.
et un grand merci à Fabien qui m'a bien aidé sur ce coup la.