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 : 599
Taille : 113,9 Ko

Nom : Ecranchess.JPG
Affichages : 599
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.

**wallace1** · 11/03/2016, 20h13

Ceci étant dit ce langage VB2012 est génial et son principale intérêt est de faire court en programmation

--> ~~VB2012 n'est pas un langage à proprement parler !~~
--> En programmation l'objectif n'est pas de "faire au plus court" mais de répondre à un besoin selon des données d'entrée !

Tout a été dit donc maintenant c'est à toi de bosser un peu !

A+

**excalybur** · 11/03/2016, 22h07

Envoyé par wallace1

--> VB2012 n'est pas un langage à proprement parler !
+

Désolé de te contredire mais Visual Basic est bien un langage : https://www.microsoft.com/fr-fr/down....aspx?id=44914

Par contre il ne parle pas de "à proprement parler" !!!

Bon aller je sors !

**Pol63** · 11/03/2016, 23h56

si visual basic n'est pas un langage je veux bien savoir ce que c'est ^^

**wallace1** · 12/03/2016, 00h40

Envoyé par Pol63

si visual basic n'est pas un langage je veux bien savoir ce que c'est ^^

Désolé de te contredire mais Visual Basic est bien un langage

Mea culpa .... j'avais lu VS2012....

allez je vais me coucher cette fois-ci ^^

**excalybur** · 13/03/2016, 20h03

Voici la 2ème solution à mon problème que je viens enfin d'écrire ! Merci Pol63 pour les indices. C'était si simple (facile à dire après coup!)

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
 
        Dim Pics As New List(Of PictureBox)
 
        For j As Integer = 0 To 7
            For i As Integer = 0 To 7
                Pics.Add(New PictureBox)
                Select Case j
                    Case 0, 2, 4, 6
                        If Int(j * 8 + i / 2) = (j * 8 + i / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                End Select
                Select Case j
                    Case 1, 3, 5, 7
                        If Int((j * 8 + i) / 2) <> ((j * 8 + i) / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                End Select
 
                Pics(j * 8 + i).Top = (Int((j * 8 + i) / 8) * 32 + 400)
                Pics(j * 8 + i).Left = (i - 8 * Int(i / 8)) * 32
                Pics(j * 8 + i).Width = 32
                Pics(j * 8 + i).Height = 32
                Me.Controls.Add(Pics(j * 8 + i))
            Next i
        Next j

L'échiquier est constitué des 64 images s'affiche bien.

Dans cette routine je constate qu'il faut commencer l'indexation par 0 sinon rien ne s'affiche! Cela est bien embêtant si je veux respecter la norme FIDE qui index leurs case de 11 à 88 (les dizaines sont pour les colonnes (1 à 8 ou souvent a à h ) et les unité pour les lignes (1 à 8). Une idée ?

Invité · 13/03/2016, 20h50

Bonsoir,
Utilises un dictionary et une classe tu pourras affecté à ta classe ton contrôle, gérer les évènements de ce contrôles.
, déclencher tes propres évènements dans un autre instance de ta classe et rendre ainsi une communication entre les différentes pièces de ton jeux possible.

**Pol63** · 13/03/2016, 22h58

c'est toujours un peu moche ...

Pics.Add(New PictureBox) puis le repointer par la collection c'est pas top niveau lisibilité
=>

Code :

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

1
2
3
4
dim p as new picturebox
p.image = ...
' ...
pics.add(p) '  à la fin, après avoir tout setté

2x le même select case c'est étrange, tu n'as pas du comprendre le rôle du select case (et encore je ne parle pas du contenu mais juste de la ligne)

Code :

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

1
2
3
4
5
6
7
8
select case variable
   case valeur1, valeur2
         action1
   case valeur3, valeur4
        action2
    case else ' facultatif
         action3
end select

le contenu parlons en, c'est quasiment 2x la même chose, donc ca doit pouvoir se factoriser ; et tout mettre en ligne c'est pas forcément top
tu peux par exemple faire une variable shared de type tableau d'image en mettant dedans (imageblanche, imagenoire)
comme ca après tu utilises la parité pour l'indexer, et sans faire de test écrire directement p.image = variable(parité) ' avec parité ) 0 ou 1

après ca fait mieux de tester la parité justement (pair/impair) de la valeur plutot que de faire ça avec un select case

si tu ne veux pas t'embêter à définir l'emplacement et la taille, et qu'au passage tu veux que les cases s'agrandissent quand la fenetre s'agrandit tu peux utiliser le tablelayoutpanel, lui mettre 8 lignes et 8 colonnes et docker les pctbox dans chaque case

après que l'indexation commence à 0 c'est une norme en vb.net, mais ce n'est qu'un point technique qui ne doit pas être visible à l'utilisateur, si tu veux gérer tes cases en 11 à 88 à l'affichage rien ne t'en empeche

**excalybur** · 14/03/2016, 22h38

Bonsoir,

Merci pour les conseils très constructifs.

Effectivement repointer une picture est redondant. Il suffit de supprimer Dim pics as new list (of picturebox). Les case et select j sont regroupé

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
 For j As Integer = 0 To 7
            For i As Integer = 0 To 7
                Pics.Add(New PictureBox)
                Select Case j
                    Case 0, 2, 4, 6
                        If Int(j * 8 + i / 2) = (j * 8 + i / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                        'Case 1, 3, 5, 7
                    Case Else
                        If Int((j * 8 + i) / 2) <> ((j * 8 + i) / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                End Select
                Pics(j * 8 + i).Top = (Int((j * 8 + i) / 8) * 32 + 400)
                Pics(j * 8 + i).Left = (i - 8 * Int(i / 8)) * 32
                Pics(j * 8 + i).Width = 32
                Pics(j * 8 + i).Height = 32
                Me.Controls.Add(Pics(j * 8 + i))
            Next i
        Next j

Je vais essayer le tablelayoutpanel et lui mettre 8 lignes et 8 colonnes et docket. Juste une question, quel est le sens de docket (je lit "registre" dans le Collings !) Je pense qu'il s'agit plutôt d'un verbe d'action ?

a+

**excalybur** · 14/03/2016, 22h44

Envoyé par rdurupt

Bonsoir,
Utilises un dictionary et une classe tu pourras affecté à ta classe ton contrôle, gérer les évènements de ce contrôles.
, déclencher tes propres évènements dans un autre instance de ta classe et rendre ainsi une communication entre les différentes pièces de ton jeux possible.

Bonsoir,

Merci pour tes conseils mais là je reconnais que je suis un peu largué! Je suis un autodidacte (certes depuis Turbo Basic de Borland (1983), mais qui dit autodidacte dit pas toujours bien formé.

Je n'ai jamais utilisé dictionary . Peux-tu me donner un lien vers une documentation avec des exemples parlant pour comprendre cette notion ? Ou bien un exemple ?

En te remerciant.

A+

**Pol63** · 14/03/2016, 23h14

Envoyé par excalybur

Effectivement repointer une picture est redondant. Il suffit de supprimer Dim pics as new list (of picturebox). Les case et select j sont regroupé

je ne parlais pas vraiment de ça, je disais de ne pas faire .Add(new picturebox), mais de mettre new picturebox dans une variable

Envoyé par excalybur

Je vais essayer le tablelayoutpanel et lui mettre 8 lignes et 8 colonnes et docket. Juste une question, quel est le sens de docket (je lit "registre" dans le Collings !) Je pense qu'il s'agit plutôt d'un verbe d'action ?

c'est une faute de frappe, je voulais écrire docker, du verbe to dock ^^
sur les controles tu as une prorpiété dock, si tu mets top le controle est collé en haut à gauche et à droite par exemple
en mettant fill, le controle prend tout l'espace possible sur son parent, s'il est dans une case de tlp alors il prendra toute la case, y compris quand la fenetre se redimensionne, sans taper de code

**excalybur** · 15/03/2016, 17h58

Bonjour

Merci pour l'explication c'est génial. Je vais essayer dans ce sens car surprise ma dernière méthode créant des picZ() n'est pas accepté par les handles de DragDrop.

En effet si :

Code :

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

1
2
Public Sub PictureBox_DragDrop(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, ....

fonctionne parfaitement,

par contre le fait de remplacer PictureBox1.DragDrop par picZ(n).DragDrop ne fonctionne pas (pour cause les handles de DragDrop n'acceptent pas les objets indexé). La souris amène bien l'objet sur ce nouvel échiquier mais pas moyen de droper ! Y-a-t'il une solution ?

En attendant j'analyse une troisième voie: tablelayoutpanel

En tout cas merci à tous pour votre patience et précieux conseils, j'ai hâte de pouvoir en faire autant !

**Pol63** · 15/03/2016, 18h00

addhandler

**excalybur** · 16/03/2016, 08h02

Merci

Je regarde ce soir.

**excalybur** · 16/03/2016, 19h55

Bonsoir,

En ajoutant addhandler dans la boucle ou dans le form1 il ne se passe rien : le curseur passe bien au dessus de l'échiquier ainsi créé mais lorsque l'on lâche la touche gauche la pièce 'dragée' disparait.

Mon 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
   For j As Integer = 0 To 7
            For i As Integer = 0 To 7
                Pics.Add(New PictureBox)
                Pics(j * 8 + i).AllowDrop = True
                AddHandler Pics(j * 8 + i).DragDrop, AddressOf PictureBox_DragDrop
                Select Case j
                    Case 0, 2, 4, 6
                        If Int(j * 8 + i / 2) = (j * 8 + i / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                    Case Else 'Case 1, 3, 5, 7
                        If Int((j * 8 + i) / 2) <> ((j * 8 + i) / 2) Then Pics(j * 8 + i).Image = My.Resources.CaseBlanche Else Pics(j * 8 + i).Image = My.Resources.CaseNoire
                End Select
                Pics(j * 8 + i).Top = (Int((j * 8 + i) / 8) * 32 + 400)
                Pics(j * 8 + i).Left = (i - 8 * Int(i / 8)) * 32
                Pics(j * 8 + i).Width = 32
                Pics(j * 8 + i).Height = 32
                Me.Controls.Add(Pics(j * 8 + i))
            Next i
        Next j

Apparament la littérature utilise addhandler pour des listbox, aucun exemple avec picturebox dans msdn.

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

VB.NET

Discussions similaires

Partager

Partager