Discussion :

[bakman]

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

[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 :

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

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

[bakman]

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
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 :

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

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

[tomlev]

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

[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 :

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

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

mais quand je fait comme ça ca ne fonctionne pas

Code :

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

1
2
 If pa3 = 1 And pa3 = 2 Then
            pa3 = 4

[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

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