[VB.NET]Procédure qui s'éxécute plusieurs fois

Version imprimable

24/08/2006, 13h58
ropiet

[VB.NET]Procédure qui s'éxécute plusieurs fois

Bonjour à tous,

J'ai un problème que je n'arrive pas à résoudre:

J'ai créé une procédure "doubleclick" sur une picturebox, dont le but est de changer l'image (on passe d'un pion blanc à un pion noir, et inversemement).

Or, quand je doucle-clique sur cette picturebox, il arrive (pas à chaque fois!!) qu'il éxécute plusieurs fois les commandes (il change le pion noir en blanc, puis en noir, puis en blanc, etc.)

Après avoir essayé de débuger, il est clair que parfois la procédure est appelée plusieurs fois. Comment est-ce possible que sur un seul double-click la procédure soit appelée plus d'une fois? Y a t'il un moyen d'éviter ça?

Merci d'avance!

Un programmeur en déprime..
24/08/2006, 14h05
Asdorve

salut, on peut voir ton code?

Code (jeu programmé = Othello)

Voilà ma procédure "double-click": tout marche (calcul des pions à convertir, changement de couleur, etc.)
A la fin de la procédure, la procédure de changement de joueur est appelée, qui marche elle aussi.

Sauf qu'après avoir changé les pions de couleurs (boucle While) et changé de joueur (procédure change_joueur()), parfois il rerentre ds PictureBox_DoubleClick(), et comme il a changé de joueur auparavant, il rechange la couleur des pions, et ce 2, 3, 4 fois ou plus. Du coup, un seul double-click peut ne pas changer la couleur au final.

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
    Private Sub PictureBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim element As Object
        Dim elementbis, elementter As Control
        Dim dif, pas, saut, ecart, toto As Integer
        Dim compteur As Integer = 0
        Dim fin As Boolean = False
 
        'On calcule la différence d'index entre le pion choisi et la case où il est laché
        dif = sender.tabindex - depart
 
        'On calcule le pas (valeur absolue)
        If dif < 8 And dif > -8 Then
            pas = 1
        ElseIf dif Mod 9 = 0 Then
            pas = 9
        ElseIf dif Mod 10 = 0 Then
            pas = 10
        Else
            pas = 11
        End If
        'On remet le pas en valeur réelle
        If dif < 0 Then
            pas = 0 - pas
        End If
        'On calcule le nombre de pions sautés
        saut = (dif / pas) - 1
        'On convertit les pions sautés et le pion de destination de la couleur de celui qui a joué
        ecart = pas
 
	'Boucle qui change les pions de couleur
        While compteur <= saut
            For Each element In Controls
                If element.TabIndex = depart + ecart Then
                    'on change le statut de la case
                    If tour = "n" Then
                        element.image = Image.FromFile("pionnoir.gif")
                        element.tag = "n"
                    ElseIf tour = "b" Then
                        element.image = Image.FromFile("pionblanc.gif")
                        element.tag = "b"
                    End If
                End If
            Next element
            compteur = compteur + 1
            ecart = ecart + pas
        End While
 
		'On change de joueur
        change_joueur()
 
    End Sub
 
 
	'PROCEDURE DE CHANGEMENT DE JOUEUR
    Private Sub change_joueur()
        Dim elementter As Control
 
        'On change de joueur
        If tour = "n" Then
            tour = "b"
            Label37.Text = " Player : " & player2
        ElseIf tour = "b" Then
            tour = "n"
            Label37.Text = " Player : " & player1
        End If
 
        'On branche les pions du joueur qui doit jouer sur la procédure qui autorise le click
        For Each elementter In Controls
            If elementter.Tag = tour Then
                AddHandler elementter.Click, AddressOf PictureBox_Click
            Else
                RemoveHandler elementter.Click, AddressOf PictureBox_Click
            End If
        Next elementter
    End Sub

Merci beaucoup!

24/08/2006, 14h38
Jihnn

(End While, ça marche ? Ça devrait être Wend normalement ^^)
24/08/2006, 14h40
IADJOFOGUE

Est-ce que tu t'es assuré que c'est bien dans l'évenement double click que tu as ton code et non dans l'évenement click ?
24/08/2006, 14h45
ropiet

While

Si ça fonctionne en vb.net, j'ai oublié de préciser...
24/08/2006, 14h47
ropiet

Oui, le code est bien dans la procédure double click, c'est ça qui est etonnant, je ne comprends pas du tout. Normalement quand on double clicque, la procédure ne se lance qu'une fois, et là c'est pas le cas..
24/08/2006, 14h58
khany

Es-tu certain de ne pas appeller le double clic d'un autre endroit de ton programme surtout à partir d'un form_activate, repaint, ou autres de ce style qui s'exécutent plusieurs fois sans que l'on s'en doute ;)

Tu es bien en VB6 car je vois que tu parles de VB.NET ?
24/08/2006, 15h00
jmfmarques

1) Quels sont (tu ne nous en parles pas !) les autres événements de ta picturebox que tu utilises éventuellement ?... et si tel est le cas, quelles instructions y figurent ?

2) VB.Net et VB sont des choses différentes...

D'abord, merci de vos réponses.

Je me suis trompé, effectivement je développe en VB.Net..

Je n'appelle pas le double click à un autre endroit, la seule fois ou je le cite dans le code est au moment ou je dois brancher cette procédure à certaines cases de l'echiquier.

Il n'y a qu'une autre procédure attachée aux picturebox de l'echiquier que j'utilise, c'est le "click".

Pour résumer, quand je clique sur un pion noir (si c'est aux noirs de jouer), il teste les cases jouables, et les branche sur la procédure "double-click". Ensuite, on ne peut appeler le double-click que sur ces cases jouables.

Voici la procédure du click:

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
    Private Sub PictureBox_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
		'On teste que la case qui a été choisie correspond à celui qui doit jouer
        If sender.tag = tour Then
 
            Dim elementbis As Control
            For Each elementbis In Controls
                'On remet toutes les cases de l'othellier de la même couleur
                If elementbis.Tag <> "" Then
                    elementbis.BackColor = Color.BlanchedAlmond
                End If
            Next elementbis
 
            'Tableau des cases à vérifier quand un pion est joué
            Dim tab(7) As Integer
            ' Tableau des cases ou il y a des pions adverses autour du pion joué
            Dim autour(0) As Integer
 
            'On réinitialise jouable()
            Erase jouable
 
            Dim element As Control
            Dim cpt As Integer = 0
            Dim i, pas As Integer
            Dim pionAdv, pionAdv2 As Boolean
            Dim fin As Boolean = False
            Dim diff As Integer = 0
            'On affecte le tableau des cases à vérifier ( mouvements relatifs par rapport à la case jouée)
            tab(0) = -11
            tab(1) = -10
            tab(2) = -9
            tab(3) = -1
            tab(4) = 1
            tab(5) = 9
            tab(6) = 10
            tab(7) = 11
 
            'affectation de la valeur de l'index du pion moussé
            depart = sender.tabindex
 
            'On boucle pour savoir quelles cases autour du pion choisi sont occupées par un pion adverse
            For Each element In Controls
                'On teste les cases autour (positions relatives)
                For i = 0 To 7
                    If element.TabIndex = depart + tab(i) Then
                        'Test s'il y a un pion adverse dans la case
                        pionAdv = element.Tag <> "v" And element.Tag <> "h" And element.Tag <> tour
                        If pionAdv = True Then
                            'On stocke dans un tableau l'index de la case, si elle contient un pion adverse
                            ReDim Preserve autour(cpt)
                            autour(cpt) = element.TabIndex
                            cpt = cpt + 1
                        End If
                    End If
                Next i
            Next element
 
            'On réinitialise la variable cpt
            cpt = 0
 
            'On boucle pour savoir quelles cases de l'othellier sont jouables pour le pion choisi
            For Each element In Controls
                'Test sur les pions adverses adjacents, dont les index sont stockés dans le tableau "autour()"
                For i = 0 To UBound(autour)
                    If element.TabIndex = autour(i) Then
                        'On stocke le pas entre la case choisie et la case adverse
                        pas = element.TabIndex - sender.tabindex
                        pionamod = pas
                        diff = pas
                        'On boucle pour savoir combien de pions adverses sont en ligne par rapport à la case jouée
                        fin = False
                        While fin <> True
                            'on boucle pour tester l'index: si la case correspond à celle d'après dans la ligne directionnelle de pions
                            For Each elementbis In Controls
                                If elementbis.TabIndex = element.TabIndex + diff Then
                                    pionAdv2 = elementbis.Tag <> "v" And elementbis.Tag <> "h" And elementbis.Tag <> tour
                                    'S'il y a un pion adverse, on augmente le pas pour continuer le test
                                    If pionAdv2 = True Then
                                        diff = diff + pas
                                        'Si la case est vide, cela signifie que la case est jouable: on stocke dans le tableau "jouable()", puis on sort de la boucle
                                    ElseIf elementbis.Tag = "v" Then
                                        ReDim Preserve jouable(cpt)
                                        jouable(cpt) = elementbis.TabIndex
                                        elementbis.BackColor = Color.PaleGoldenrod
 
                                        AddHandler elementbis.DoubleClick, AddressOf PictureBox_DoubleClick
 
                                        cpt = cpt + 1
 
                                        'Sinon, on sort de la boucle
                                        fin = True
                                    Else
                                        fin = True
                                    End If
                                End If
                            Next elementbis
                        End While
                    End If
                Next i
            Next element
        End If
 
    End Sub

24/08/2006, 15h21
jmfmarques

Citation:

Il n'y a qu'une autre procédure attachée aux picturebox de l'echiquier que j'utilise, c'est le "click".

Rien que çà !!!

Bon, je crois de toutes façons qu'il serait préférable que tu "postes" ce sujet sur le forum dédié à VB.Net. Profites-en pour apporter d'entrée de jeu ces importantes précisions.
Bonne chance à toi, Ami.
24/08/2006, 15h34
ropiet

D'accord je vais essayer, merci beaucoup!
24/08/2006, 15h35
AlainTech

Discussion déplacée.
25/08/2006, 17h21
Mose

Pour le pb de double click :
Si tu as VS.Net :
* tu colles un breakpoint (point d'arrêt) au début de ta procedure de double-click.
* tu lances le programme en débug.
* tu double click UNE SEULE FOIS.
* et là tu vois :
- combien de fois l'évènement est effectivement appelé.
- par qui il est appelé, dans la fenêtre "CallStack" (pile d'appel)

Si c'est par du code non-utilisateur, ce que je pressens, alors ton erreur vient très très certainement du fais que tu associes ta procédure à l'évènement DoubleClick plusieurs fois. Vérifie ta boucle d'initialization....