déplacer image entre picturebox

Version imprimable

26/03/2009, 17h45
bakman

déplacer image entre picturebox

salut à tous !
Voila je souhaiterais faire un jeux dont voici la structure.
9 picturebox (3x3)
de A1 à A3 de B1 à B et C1 à C3 .
je souhaiterais via des bouton (haut , bas , gauche et droite) pouvoir déplacer une image de picturebox en picturebox comment doit-je mis prendre?
Merci:P
26/03/2009, 20h58
tomlev
Tu as fais quoi jusqu'ici ? Sur quoi tu bloques exactement ?
Pour passer une image d'une PictureBox à une autre, tu peux faire comme ça :
Code:

1 2 pictureBox2.Image = pictureBox1.Image pictureBox1.Image = Nothing

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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
 Public Class bandit_invaders
    Dim pa1 As Integer
    Dim pa2 As Integer
    Dim pa3 As Integer
    Dim pb1 As Integer
    Dim pb2 As Integer
    Dim pb3 As Integer
    Dim pc1 As Integer
    Dim pc2 As Integer
    Dim pc3 As Integer
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pa1 = 1 ' alien
        pa2 = 5 ' image vide
        pa3 = 5
        pb1 = 5
        pb2 = 5
        pb3 = 2 ' voiture 
        pc1 = 5
        pc2 = 5
        pc3 = 5
 
        Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png")
        Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png")
        Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png")
        Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png")
        Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png")
        Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png")
        Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png")
        Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png")
        Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
 
        Me.Timer1.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png")
        Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png")
        Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png")
        Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png")
        Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png")
        Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png")
        Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png")
        Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png")
        Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
 
        Me.A1.Tag = pa1
        Me.A2.Tag = pa2
        Me.A3.Tag = pa3
        Me.B1.Tag = pb1
        Me.B2.Tag = pb2
        Me.B3.Tag = pb3
        Me.C1.Tag = pc1
        Me.C2.Tag = pc2
        Me.C3.Tag = pc3
 
        ' alien
 
        If pa1 = 1 Then
            pa1 = 5
            pb1 = 1
 
        ElseIf pb1 = 1 Then
            pb1 = 5
            pc1 = 1
 
        ElseIf pc1 = 1 Then
            pc1 = 5
            pc2 = 1
 
        ElseIf pc2 = 1 Then
            pc2 = 5
            pb2 = 1
 
        ElseIf pb2 = 1 Then
            pb2 = 5
            pa2 = 1
 
        ElseIf pa2 = 1 Then
            pa2 = 5
            pa3 = 1
        ElseIf pa3 = 1 Then
            pa3 = 5
            pb3 = 1
 
        ElseIf pb3 = 1 Then
            pb3 = 5
            pc3 = 1
        End If
 
        ' perdu
 
        '  If pa1 And pa2 And pa3 And pb1 And pb2 And pb3 And pc1 And pc2 And pc3 > 1 Then
        'MsgBox("perdu")
        '     End If
 
 
        If pa2 = 1 And pa3 = 2 Then
            pa3 = 4
 
 
        ElseIf pa3 = 1 And pb3 = 2 Then
            pb3 = 4
 
 
        ElseIf pb3 = 1 And pc3 = 2 Then
            pc3 = 4
        End If
 
 
        'bombe
 
        If pa2 = 3 Then
            pa2 = 5
            pa1 = 4
 
 
        ElseIf pa1 = 4 Then
            pa1 = 5
 
 
        ElseIf pb2 = 3 Then
            pb2 = 5
            pb1 = 4
 
        ElseIf pb1 = 4 Then
            pb1 = 5
 
 
        ElseIf pc2 = 3 Then
            pc2 = 5
            pc1 = 4
 
 
        ElseIf pc1 = 4 Then
            pc1 = 5
 
        End If
 
 
 
 
 
    End Sub
 
    Private Sub bt_right_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_right.Click
 
        Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png")
        Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png")
        Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png")
        Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png")
        Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png")
        Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png")
        Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png")
        Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png")
        Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
 
        Me.A1.Tag = pa1
        Me.A2.Tag = pa2
        Me.A3.Tag = pa3
        Me.B1.Tag = pb1
        Me.B2.Tag = pb2
        Me.B3.Tag = pb3
        Me.C1.Tag = pc1
        Me.C2.Tag = pc2
        Me.C3.Tag = pc3
 
        pb3 = 2
 
        If pa3 = 2 Then
            pa3 = 5
            pb3 = 2
        ElseIf pb3 = 2 Then
            pb3 = 5
            pc3 = 2
        End If
 
    End Sub
 
    Private Sub bt_left_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_left.Click
 
        Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png")
        Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png")
        Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png")
        Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png")
        Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png")
        Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png")
        Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png")
        Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png")
        Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
 
        Me.A1.Tag = pa1
        Me.A2.Tag = pa2
        Me.A3.Tag = pa3
        Me.B1.Tag = pb1
        Me.B2.Tag = pb2
        Me.B3.Tag = pb3
        Me.C1.Tag = pc1
        Me.C2.Tag = pc2
        Me.C3.Tag = pc3
 
        pb3 = 2
 
        If pc3 = 2 Then
            pc3 = 5
            pb3 = 2
        ElseIf pb3 = 2 Then
            pb3 = 5
            pa3 = 2
        End If
 
 
    End Sub
 
    Private Sub bt_fire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_fire.Click
 
        Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png")
        Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png")
        Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png")
        Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png")
        Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png")
        Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png")
        Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png")
        Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png")
        Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
 
        Me.A1.Tag = pa1
        Me.A2.Tag = pa2
        Me.A3.Tag = pa3
        Me.B1.Tag = pb1
        Me.B2.Tag = pb2
        Me.B3.Tag = pb3
        Me.C1.Tag = pc1
        Me.C2.Tag = pc2
        Me.C3.Tag = pc3
 
        If pa3 = 2 Then
            pa2 = 3
 
        ElseIf pb3 = 2 Then
            pb2 = 3
 
        ElseIf pc3 = 2 Then
            pc2 = 3
 
        End If
 
        'gagne
 
        If pa2 = 3 And pa1 = 1 Then
            pa1 = 4
            pette_la_banque.Show()
            Me.Hide()
        ElseIf pb2 = 3 And pb1 = 1 Then
            pb1 = 4
            pette_la_banque.Show()
            Me.Hide()
        ElseIf pc2 = 3 And pb1 = 1 Then
            pb1 = 4
            pette_la_banque.Show()
            Me.Hide()
        End If
 
    End Sub
End Class

Merci ta réponse m'a mis sur la voie voici ce que j'ai trouvé.
pour résumer mon jeux il y a un alien qui ce ballade de picturebox en picturebox (de A1 à A3 , B1 à B3 et C1 à C3) par contre à présent je n'arrive à spécifié un évènement lorsque l'alien et ce trouve sur la même picturebox
exemple:

Code:

1
2
 If pa2 = 1 And pa2 = 2 Then
            pa2 = 4

En tout cas merci à tous les membre de développez pour votre efficacité et pour transmettre à la communauté le savoir qui est si précieux:king:

27/03/2009, 16h02
tomlev

Citation:

Envoyé par bakman

par contre à présent je n'arrive à spécifié un évènement lorsque l'alien et ce trouve sur la même picturebox

euh... j'ai pas compris ta phrase :?
27/03/2009, 17h19
bakman
je reprend ma phrase :(par contre à présent je n'arrive qu'à spécifié un évènement lorsque l'alien et la voiture ce trouve sur la même picturebox ):?désolé.
oui en effet quand l'image 1 (alien) se déplace, si elle rencontre l'image 2 (voiture) l'alien prend le pas sur la voiture je n'arrive qu'a déclencher un évènement que si la picturebox et differente
comme ce ci
Code:

1 2 If pa2 = 1 And pa3 = 2 Then pa3 = 4
mais quand je fait comme ça ca ne fonctionne pas
Code:

1 2 If pa3 = 1 And pa3 = 2 Then pa3 = 4
27/03/2009, 18h19
tomlev

Euh, il faudrait que tu m'expliques un peu le fonctionnement de ton programme, parce que là j'ai un peu la flemme de lire tout le code :aie:

C'est quoi toutes ces variables pa1, pb2, etc ?

A1 à C3 corresponde à mes picturebox j'ai neuf picturebox qui forme un carré 3 picturebox par 3 .
les images ce trouvent dans un dossier spaceinvaders les images sont nommé de 1 à 5 .
j'ai créer mes variable pour pouvoir appeler les images par leur nom (de 1 à 5)
j'utilise
Code:

1 2 me.A1.tag = pa1 pa1 = 1
voci les variables
Code:

1 2 3 4 5 6 7 8 9 Dim pa1 As Integer Dim pa2 As Integer Dim pa3 As Integer Dim pb1 As Integer Dim pb2 As Integer Dim pb3 As Integer Dim pc1 As Integer Dim pc2 As Integer Dim pc3 As Integer
ici comment je charge les images
Code:

1 2 3 4 5 6 7 8 9 Me.A1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa1 & ".png") Me.A2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa2 & ".png") Me.A3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pa3 & ".png") Me.B1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb1 & ".png") Me.B2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb2 & ".png") Me.B3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pb3 & ".png") Me.C1.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc1 & ".png") Me.C2.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc2 & ".png") Me.C3.Image = Image.FromFile(Application.StartupPath & "\spaceinvaders\" & pc3 & ".png")
Sur un timer j'ai mit l'image 1 qui passe de picturebox en picturebox.
Sur les bouton left et right j'ai mit l'image 2 qui peu ce déplacer sur les 3 picturebox A3 B3 et C3 je n'arrive pas à créer un évènement quand l'image 1 arrive sur une picturebox ou ce trouve deja l'image 2.
j'arrive à déclencher un évènement que lorsque l'image 1 ce trouve sur la picturebox qui précède l'image 2

28/03/2009, 17h51
tomlev
Citation:
Envoyé par bakman

Code:

1 2 me.A1.tag = pa1 pa1 = 1
Ce bout de code me parait douteux... tu utilises la valeur de pa1 avant de l'affecter au tag... Il faudrait pas inverser ces instructions par hasard ? D'ailleurs il te sert à quoi le tag ? Partout dans ton code, tu affectes des valeurs aux tags des picturebox, mais tu n'utilises jamais cette valeur ensuite...

Et qu'est-ce que tu entends exactement par "déclencher un évènement" ?
28/03/2009, 21h00
bakman

tu as raison j'ai enlevé le tag en fait il ne me servé rien étant donné qu'il me suffit de donné une valeur entre 1 et 5 pour qu'une image apparaisse:?
28/03/2009, 21h17
bakman
oups désolé j'allais oublier le principale :D oui quand je dit déclencher un évènement je veux dire par la mettre l'image 4, par exemple quand un l'allien ce trouve sur la picturebox B3 et la voiture sur la C3 et bien au moment ou l'allien va sur la C3 si la voiture y est toujours je voudrais afficher l' image 4

du genre
Code:

1 2 If pc3 = 1 And pc3 = 2 Then pc3 = 4
mais ça ne marche pas car il ne peu y avoir qu'une image par picturebox c'est la que je bloque
29/03/2009, 22h46
tomlev
Citation:
Envoyé par bakman

Code:

1 2 If pc3 = 1 And pc3 = 2 Then pc3 = 4
Ben pc3 ne peut pas avoir 2 valeurs différentes en même temps :roll:
Il y a un problème de logique dans ta façon de faire... S'il peut y avoir 2 choses en même temps dans une case donnée, tu ne peut pas utiliser juste une valeur pour déterminer le contenu de la case. En plus, ta façon de faire est très laborieuse parce que tu dois gérer séparément chaque case. Le jour où tu veux modifier le programme pour avoir une grille de 4 sur 4, tu vas devoir modifier plein de choses...

A mon avis il vaudrait mieux que tu gères la position de chaque objet (voiture, alien...) dans la grille, plutôt que l'état de chaque case. A chaque fois qu'un objet se déplace, tu vérifies s'il n'est pas au même endroit qu'un autre objet
31/03/2009, 14h14
bakman

Oui tu as tout à fait raison ce sera plus simple en spécifiant les positions.
Je te remercie pour ce coup de mains tomlev à bientot ;)