Private Sub etat_jeux(le_jeu As jeu, cle As Integer, etat As Boolean)
Private Sub etat_jeux(ByRef le_jeu As jeu, cle As Integer, etat As Boolean)
Private Sub etat_jeux(ByRef le_jeu As jeu, ByVal cle As Integer, ByVal etat As Boolean)
Private Sub etat_jeux(ByRef le_jeu As jeu, ByVal cle As Integer, ByVal etat As Boolean)
With le_jeu
Select Case cle
Case 68, 39: .av = etat
Case 71, 37: .ar = etat
Case 72, 38: .h = etat
Case 66, 40: .b = etat
End Select
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form_Magasin_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Dim Threading1 As New Thread(Sub() Mouvement_Juju(e)) Threading1.IsBackground = True Threading1.Start() LILI.Sortir() Select Case e.KeyCode Case ToucheDLili 'va à Droite LILI.Aller_Droite() Case ToucheGLili 'va à gauche LILI.Aller_Gauche() Case ToucheHLili 'va à Haut LILI.Aller_Haut() Case ToucheBLili 'va à Bas LILI.Aller_Bas() End Select End Sub Dim MouvEnfant As Byte = 1 Private Sub Mouvement_Juju(e As System.Windows.Forms.KeyEventArgs) JUJU = New Class_Juju(PictureBox_Juju.Location.X, PictureBox_Juju.Location.Y, Me) JUJU.Sortir() ' empeche de sortir du cadre Select Case e.KeyCode Case ToucheDJuju 'va à Droite Me.PictureBox_Juju.Left += 5 'va à droite JUJU.PositionEnfant = Me.PictureBox_Juju.Location Me.PictureBox_Juju.Image = My.Resources.JujuD1 If MouvEnfant = 1 Then Me.PictureBox_Juju.Image = My.Resources.JujuD2 MouvEnfant = 2 Exit Sub ElseIf MouvEnfant = 2 Then Me.PictureBox_Juju.Image = My.Resources.JujuD3 MouvEnfant = 3 Exit Sub ElseIf MouvEnfant = 3 Then Me.PictureBox_Juju.Image = My.Resources.JujuD1 MouvEnfant = 1 Exit Sub End If Case ToucheGJuju 'va à gauche ' JUJU.Aller_Gauche() Me.PictureBox_Juju.Left -= 5 'va à droite JUJU.PositionEnfant = Me.PictureBox_Juju.Location Me.PictureBox_Juju.Image = My.Resources.JujuG1 If MouvEnfant = 1 Then Me.PictureBox_Juju.Image = My.Resources.JujuG2 MouvEnfant = 2 Exit Sub ElseIf MouvEnfant = 2 Then Me.PictureBox_Juju.Image = My.Resources.JujuG3 MouvEnfant = 3 Exit Sub ElseIf MouvEnfant = 3 Then Me.PictureBox_Juju.Image = My.Resources.JujuG1 MouvEnfant = 1 Exit Sub End If Case ToucheHJuju 'va en Haut 'JUJU.Aller_Haut() Me.PictureBox_Juju.Top -= 5 ' va en haut JUJU.PositionEnfant = Me.PictureBox_Juju.Location Me.PictureBox_Juju.Image = My.Resources.JujuH1 If MouvEnfant = 1 Then Me.PictureBox_Juju.Image = My.Resources.JujuH2 MouvEnfant = 2 Exit Sub ElseIf MouvEnfant = 2 Then Me.PictureBox_Juju.Image = My.Resources.JujuH3 MouvEnfant = 3 Exit Sub ElseIf MouvEnfant = 3 Then Me.PictureBox_Juju.Image = My.Resources.JujuH1 MouvEnfant = 1 Exit Sub End If Case ToucheBJuju 'va en Bas 'JUJU.Aller_Bas() Me.PictureBox_Juju.Top += 5 ' va en bas JUJU.PositionEnfant = Me.PictureBox_Juju.Location Me.PictureBox_Juju.Image = My.Resources.JujuB1 If MouvEnfant = 1 Then Me.PictureBox_Juju.Image = My.Resources.JujuB2 MouvEnfant = 2 Exit Sub ElseIf MouvEnfant = 2 Then Me.PictureBox_Juju.Image = My.Resources.JujuB3 MouvEnfant = 3 Exit Sub ElseIf MouvEnfant = 3 Then Me.PictureBox_Juju.Image = My.Resources.JujuB1 MouvEnfant = 1 Exit Sub End If End Select End Sub
Me.PictureBox_Juju.Left += 5 'va à droite
Option Explicit
Private labX As Boolean, labfg As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then labfg = True
If KeyCode = 88 Then labX = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then labfg = False
If KeyCode = 88 Then labX = False
End Sub
Private Sub Timer1_Timer()
If labfg Then
labelflechegauche.Left = labelflechegauche.Left - 1
End If
If labX Then
LabelX.Left = LabelX.Left + 1
End If
End Sub
Option Explicit
Private Type jeu
av As Boolean
ar As Boolean
h As Boolean
b As Boolean
End Type
Private jeu_jacques As jeu
Private jeu_pierre As jeu
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 68, 71, 72, 66
etat_jeux jeu_jacques, KeyCode, True
Case 37 To 40
etat_jeux jeu_pierre, KeyCode, True
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 68, 71, 72, 66
etat_jeux jeu_jacques, KeyCode, False
Case 37 To 40
etat_jeux jeu_pierre, KeyCode, False
End Select
End Sub
Private Sub Timer1_Timer()
If jeu_pierre.ar Then
pierre.Left = pierre.Left - 1
End If
If jeu_pierre.av Then
pierre.Left = pierre.Left + 1
End If
If jeu_pierre.h Then
pierre.Top = pierre.Top - 1
End If
If jeu_pierre.b Then
pierre.Top = pierre.Top + 1
End If
If jeu_jacques.av Then
jacques.Left = jacques.Left + 1
End If
If jeu_jacques.ar Then
jacques.Left = jacques.Left - 1
End If
If jeu_jacques.h Then
jacques.Top = jacques.Top - 1
End If
If jeu_jacques.b Then
jacques.Top = jacques.Top + 1
End If
End Sub
Private Sub etat_jeux(le_jeu As jeu, cle As Integer, etat As Boolean)
With le_jeu
Select Case cle
Case 68: .av = etat
Case 71: .ar = etat
Case 72: .h = etat
Case 66: .b = etat
Case 37: .ar = etat
Case 38: .h = etat
Case 39: .av = etat
Case 40: .b = etat
End Select
End With
End Sub
Private Type jeuà été converti en
Private Structure jeudans VB.net.
Public Class Class_Jeu
Private Structure jeu
Private av As Boolean
Private ar As Boolean
Private ha As Boolean
Private ba As Boolean
End Structure
Private _jeu_jacques As jeu
Private _jeu_pierre As jeu
Public Property Jeu_Jacques As jeu
Get
Return _jeu_jacques
End Get
Set(value As jeu)
_jeu_jacques = value
End Set
End Property
Public Property Jeu_Pierre As jeu
Get
Return _jeu_pierre
End Get
Set(value As jeu)
_jeu_pierre = value
End Set
End Property
End Class
Public Class Accueil
Private Structure jeu
Dim av As Boolean
Dim ar As Boolean
Dim h As Boolean
Dim b As Boolean
End Structure
Private jeu_jacques As jeu
Private jeu_pierre As jeu
Private Sub Accueil_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim KeyCode As Integer = e.KeyValue
Select Case KeyCode
Case 68, 71, 72, 66
'MessageBox.Show(KeyCode.ToString)
etat_jeux(jeu_jacques, KeyCode, True)
Case 37 To 40
'MessageBox.Show(KeyCode.ToString)
etat_jeux(jeu_pierre, KeyCode, True)
End Select
End Sub
Private Sub Accueil_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Dim KeyCode As Integer = e.KeyValue
Select Case KeyCode
Case 68, 71, 72, 66
etat_jeux(jeu_jacques, KeyCode, False)
Case 37 To 40
etat_jeux(jeu_pierre, KeyCode, False)
End Select
End Sub
Private Sub etat_jeux(ByRef le_jeu As jeu, ByVal cle As Integer, ByVal etat As Boolean)
With le_jeu
Select Case cle
Case 68 : .av = etat
Case 71 : .ar = etat
Case 72 : .h = etat
Case 66 : .b = etat
Case 37 : .ar = etat
Case 38 : .h = etat
Case 39 : .av = etat
Case 40 : .b = etat
End Select
End With
End Sub
Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
'MessageBox.Show("?")
If jeu_pierre.ar Then
Pierre.Left = Pierre.Left - 1
End If
If jeu_pierre.av Then
Pierre.Left = Pierre.Left + 1
End If
If jeu_pierre.h Then
Pierre.Top = Pierre.Top - 1
End If
If jeu_pierre.b Then
Pierre.Top = Pierre.Top + 1
End If
If jeu_jacques.av Then
Jacques.Left = Jacques.Left + 1
End If
If jeu_jacques.ar Then
Jacques.Left = Jacques.Left - 1
End If
If jeu_jacques.h Then
Jacques.Top = Jacques.Top - 1
End If
If jeu_jacques.b Then
Jacques.Top = Jacques.Top + 1
End If
End Sub
End Class