Indexation des pictureBox avec Tag. Peut-on faire mieux?

**excalybur** · 28/02/2016, 17h00

Bonsoir,

En relisant les FAQ récentes j'ai compris qu'il fallait déjouer cette impossibilité d'indexer en utilisant Tag. J'ai affecté Tag de chaque image avec les n°1 à 64 (64 cases d'un échiquier) => OK ça marche voir le code suivant

A noter que les mouvement de la souris utilise mousedown et mousemouve ainsi que dragdrop sur le picturebox final.
GiveFeedback est utilisé pour adapter l'image bmp d'une pièce d'échec appelé RN au curseur de la souris pour voir son mouvement.

Le code :

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
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
Public Class Form1
 
    Dim MouseIsDown As Boolean = False
    Dim CursorImage As Image
    Dim isDragging As Boolean = False
    Dim CurrentX As Integer, CurrentY As Integer
    Dim CaseEch(64) As ButtonBase
    Dim aaa As String
    Dim Pieces As String
    Dim LocationX(64) As Integer
    Dim LocationY(64) As Integer
 
 
    Private Property mypic As Point
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.AllowDrop = True
        PictureBox2.AllowDrop = True
        PictureBox3.AllowDrop = True
        PictureBox4.AllowDrop = True
        PictureBox5.AllowDrop = True
        PictureBox6.AllowDrop = True
        PictureBox7.AllowDrop = True
        PictureBox8.AllowDrop = True
        PictureBox9.AllowDrop = True
 
 
 Public Sub RB_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RB.MouseDown
        MouseIsDown = True
    End Sub
 
 
    Public Sub RB_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RB.MouseMove
        If MouseIsDown Then
            If RB.Image Is Nothing Then Exit Sub
            RB.DoDragDrop(RB.Image, DragDropEffects.Move)
        Else
            MouseIsDown = False
        End If
    End Sub
 
 
    Public Sub RB_GiveFeedback(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.GiveFeedbackEventArgs) Handles RB.GiveFeedback
        e.UseDefaultCursors = False
        Dim myPic As New Bitmap(CType(sender, PictureBox).Image)
        CursorImage = myPic.GetThumbnailImage(32, 32, Nothing, IntPtr.Zero)
        Cursor.Current = New Cursor(CType(CursorImage, System.Drawing.Bitmap).GetHicon())
        Pieces = "RB"
    End Sub
 
 
    Public Sub RN_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RN.MouseDown
        MouseIsDown = True
    End Sub
 
 
    Public Sub RN_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RN.MouseMove
        If MouseIsDown Then
            If RN.Image Is Nothing Then Exit Sub
            RN.DoDragDrop(RN.Image, DragDropEffects.Move)
        Else
            MouseIsDown = False
        End If
    End Sub
 
 
    Public Sub RN_GiveFeedback(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.GiveFeedbackEventArgs) Handles RN.GiveFeedback
        e.UseDefaultCursors = False
        Dim myPic As New Bitmap(CType(sender, PictureBox).Image)
        CursorImage = myPic.GetThumbnailImage(32, 32, Nothing, IntPtr.Zero)
        Cursor.Current = New Cursor(CType(CursorImage, System.Drawing.Bitmap).GetHicon())
        Pieces = "RN"
    End Sub
 
 
 Public Sub PictureBox_DragDrop(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, PictureBox3.DragDrop, PictureBox4.DragDrop, PictureBox5.DragDrop, PictureBox6.DragDrop, PictureBox7.DragDrop, PictureBox8.DragDrop
 
        Dim clicked As PictureBox = CType(sender, PictureBox)
        Tag = sender.tag
 
        If Tag = 1 Then PictureBox1.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox1.Location.X : LocationY(Tag) = PictureBox1.Location.Y
        If Tag = 2 Then PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox2.Location.X : LocationY(Tag) = PictureBox2.Location.Y
        If Tag = 3 Then PictureBox3.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox3.Location.X : LocationY(Tag) = PictureBox3.Location.Y
        If Tag = 4 Then PictureBox4.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox4.Location.X : LocationY(Tag) = PictureBox4.Location.Y
        If Tag = 5 Then PictureBox5.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox5.Location.X : LocationY(Tag) = PictureBox5.Location.Y
        If Tag = 6 Then PictureBox6.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox6.Location.X : LocationY(Tag) = PictureBox6.Location.Y
        If Tag = 7 Then PictureBox7.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox7.Location.X : LocationY(Tag) = PictureBox7.Location.Y
        If Tag = 8 Then PictureBox8.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox8.Location.X : LocationY(Tag) = PictureBox8.Location.Y
 
 
 
        TextBox1.Text = "Tag: " + Tag.ToString + "    Piece: " + Pieces + "              Location X,Y :  " + LocationX(Tag).ToString + " , " + LocationY(Tag).ToString
    End Sub
 
 
End Class

Ce code est donné pour les 8 premières cases dans le sub PictureBox_DragDrop, il n'est pas complet (volontairement) et vous comprenez tout de suite pourquoi : L'écriture de 64 fois cette ligne à modifier chaque fois est fastidieuse : " If Tag = 8 Then PictureBox8.Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PictureBox8.Location.X : LocationY(Tag) = PictureBox8.Location.Y"

L'utilisation de Tag a bien contribué à réduire l'écriture, l'idéal serait de pouvoir inclure la ligne précédente dans une boucle for/next de 1 à 64 par exemple mais comment l'indexer totalement les Picturebox et leurs propriétés ? D'autant qu'il va se rajouter beaucoup données supplémentaire sur cette ligne!

Pour info une photo de la feuille de capture et les propriétés mise à chaque case de 1 à 64 (Tag)

Nom : Ecranchess.JPG
Affichages : 681
Taille : 113,9 Ko

Nom : Ecranchess.JPG
Affichages : 681
Taille : 113,9 Ko

Merci pour vos idées et suggestions.

**excalybur** · 28/02/2016, 17h55

Re

Je réponds à ma question !

L'indexation des PictureBox est bien possible !

L'astuce :

1/ Déclarer un objet indexé que je nomme PicZ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
 
    Dim MouseIsDown As Boolean = False
    Dim CursorImage As Image
    Dim isDragging As Boolean = False
    Dim CurrentX As Integer, CurrentY As Integer
    Dim CaseEch(64) As ButtonBase
    Dim aaa As String
    Dim Pieces As String
    Dim LocationX(64) As Integer
    Dim LocationY(64) As Integer
    Dim PicZ(64) As Object
 
    Private Property mypic As Point

2/ Affecter dans le Form1_Load chaque PictureBox à son objet indexé PicZ() et affecter à chaque PicZ() l'état AllowDrop= True :

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
 
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        PicZ(1) = PictureBox1
        PicZ(2) = PictureBox2
        PicZ(3) = PictureBox3
        PicZ(4) = PictureBox4
        PicZ(5) = PictureBox5
        PicZ(6) = PictureBox6
        PicZ(7) = PictureBox7
        PicZ(8) = PictureBox8
        PicZ(9) = PictureBox9
'etc jusqu'à 64 .... 
 
        For n = 1 To 64
            PicZ(n).allowdrop = True
 
        Next
    End Sub

3/ Créer la fameuse boucle for next dans le sub picturebox_DragDrop :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Public Sub PictureBox_DragDrop(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, PictureBox3.DragDrop, PictureBox4.DragDrop, PictureBox5.DragDrop, PictureBox6.DragDrop, PictureBox7.DragDrop, PictureBox8.DragDrop
 
        Dim clicked As PictureBox = CType(sender, PictureBox)
 
 
        Tag = sender.tag
 
        For m = 1 To 64
            If Tag = m Then PicZ(Tag).Image = e.Data.GetData(DataFormats.Bitmap) : LocationX(Tag) = PicZ(Tag).Location.X : LocationY(Tag) = PicZ(Tag).Location.Y
        Next m
        TextBox1.Text = "Tag: " + Tag.ToString + "    Piece: " + Pieces + "              Location X,Y :  " + LocationX(Tag).ToString + " , " + LocationY(Tag).ToString
    End Sub

Voila ! c'était si simple.

Allez je marque Résolu.

**william44af** · 28/02/2016, 22h54

je me suis posé cette même question il y apeu :

La réponse reçue était peut être encore plus pratique que la tienne :

http://www.developpez.net/forums/d15...jets-indexees/

**Pol63** · 29/02/2016, 13h47

c'est ni fait ni à faire

quand on a beaucoup de chose à poser, on ne perd pas de temps à les poser à la main, et en ajoutant une ligne de code par objet pour le mettre dans une collection

Code :

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

1
2
 
private _Pcts as new list(of picturebox)

Code :

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

1
2
3
4
5
6
7
8
 
for i as integer = 1 to 64
   dim p as new pictubox
   _pcts.Add(p)
   ' placement (définir p.top et p.left)
   me.controls.add(p)
   ' addhandler ... (= ajouter une gestion des évènements sur les controles créés par code)
next

10 lignes de code et tu as tes 64 cases de posées, et elles sont indexées dans une collection pour les retrouver partout

il convient donc d'apprendre un peu le langage et ce qu'on peut faire avec avant de coder

**excalybur** · 29/02/2016, 16h40

Bonjour

Merci pour vos réponse. William44af je me suis un peu servi de ton projet que j'ai lu dans les FAQ pour comprendre l'astuce que j'ai exposé.

Ceci étant dit ce langage VB2012 est génial et son principale intérêt est de faire court en programmation d'où le la question de mon titre. Soyez indulgent je ne peut pas tout apprendre en 2 mois à raison de 5 ou 6 heurs par semaine !

Je teste les méthodes et à bientôt pour les résultats.

**excalybur** · 11/03/2016, 19h59

Bonsoir,

J'ai passé pas mal de temps sur la proposition de Pol63 (" Private _Pcts As New List(Of PictureBox).....) sans trouver la bonne façon de l'écrire.

Quelqu'un aurait-il une solution à me proposer car là je sèche et la documentation de Microsoft n'est pas loquace en exemples ?

En vous remerciant.

Indexation des pictureBox avec Tag. Peut-on faire mieux?

VB.NET

Vue hybride

Discussions similaires

Partager

Partager