Empêcher de faire avancer une image dans un jeuRésolu

Question

Bonjour, je fais un jeu o&#249; je dois faire avancer un petit vaisseau de gauche &#224; droite et de droite &#224; gauche. J'aimerais avoir des conseil sur comment emp&#234;cher mon vaisseau de d&#233;passer les limites de mon formulaire avec une simple structure de d&#233;cisions. Qu'il puisse rester dans les limite sans dispara&#238;tre d'un c&#244;t&#233; ou de l'autre. &#199;a fonctionne presque pour mon VbKeyLeft mais lorsque je fais la m&#234;me chose de l'autre c&#244;t&#233; (C'est-&#224;-dire avec les signe &#224; peu pr&#232;s contraire) alors mon vaisseau n'avance que d'un c&#244;t&#233;.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


    Select Case KeyCode
        Case vbKeyLeft

            If Image1.Left < frame1..Left Then
                Image1.Left = Image1.Left + 200
            Else
                Image1.Left = Image1.Left - 100
            End If

        Case vbKeyRight
                Image1.Left = Image1.Left + 100
    End Select

Merci beaucoup de votre aide.

PCPT · Accepted Answer

salut, à supposer que ton image1 est dans ta frame1 .... Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) With Image1 Select Case KeyCode Case vbKeyLeft If .Left >100 Then .Left .Left - 100 Case vbKeyRight If .Left <(Frame1.Width - .Width - 100) Then .Left .Left + 100 End Select End With End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

eYeScReAm25 · Answer

Merci beaucoup, &#231;a fonctionne &#224; merveille.

Empêcher de faire avancer une image dans un jeu

2 réponses

Discussions similaires