Bouger une image avec fleche
franklachance
Messages postés
15
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
23 novembre 2005
-
2 nov. 2005 à 14:27
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 2 nov. 2005 à 14:55
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 2 nov. 2005 à 14:55
2 réponses
Baguauda
Messages postés
219
Date d'inscription
mercredi 31 août 2005
Statut
Membre
Dernière intervention
28 novembre 2008
1
2 nov. 2005 à 14:41
2 nov. 2005 à 14:41
recupère les evenement KeyPress puis change les coordonées de ta picturebox
pictureBox.loction(x,y) attention le point x,y donne les coordonée du point en haut a gauche
pictureBox.loction(x,y) attention le point x,y donne les coordonée du point en haut a gauche
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
2 nov. 2005 à 14:55
2 nov. 2005 à 14:55
salut,
svp, essayez de chercher avant de poster. ce code existe!!
[VB6]
Option Explicit
'
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' tu peux aussi vérifier pour empêcher de sortir de la Form...
With Picture1
Select Case KeyCode
Case vbKeyUp: .Top = .Top - 200
Case vbKeyDown: .Top = .Top + 200
Case vbKeyLeft: .Left = .Left - 200
Case vbKeyRight: .Left = .Left + 200
End Select
End With
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
++
PCPT [AFCK]
svp, essayez de chercher avant de poster. ce code existe!!
[VB6]
Option Explicit
'
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' tu peux aussi vérifier pour empêcher de sortir de la Form...
With Picture1
Select Case KeyCode
Case vbKeyUp: .Top = .Top - 200
Case vbKeyDown: .Top = .Top + 200
Case vbKeyLeft: .Left = .Left - 200
Case vbKeyRight: .Left = .Left + 200
End Select
End With
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
++
PCPT [AFCK]
