• Home
 · 
• Custom Controls/Forms/Menus
 · 
• TABLE HOCKEY GAME. Code required to move images using the keyborad, and also getting images to boun

TABLE HOCKEY GAME. Code required to move images using the keyborad, and also getting images to boun

TABLE HOCKEY GAME. Code required to move images using the keyborad, and also getting images to bounce off the main image, ie. puck bouncing

Rate TABLE HOCKEY GAME. Code required to move images using the keyborad, and also getting images to boun

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Puck.Move Puck.Left + deltax, Puck.Top + deltay
    If Puck.Left < Shape2.Left Then
    deltax = 250
        End If
    If Puck.Left + Puck.Width > Shape2.Width + Shape2.Left Then
        deltax = -250
      End If
    If Puck.Top < Shape2.Top Then deltay = 250
    If Puck.Top + Puck.Height > Shape2.Height + Shape2.Top Then
        deltay = -250
        End If

**************************** FORM CODE *********************
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyLeft
    PlayerL.Left = PlayerL.Left - 300
Case vbKeyRight
    PlayerL.Left = PlayerL.Left + 300
Case vbKeyUp
    PlayerL.Top = PlayerL.Top - 300
Case vbKeyDown
    PlayerL.Top = PlayerL.Top + 300
End Select

'PlayerR = PlayerR    PlayerL = PlayerL    Puck = Puck
'if touch
If PlayerR.Left < Puck.Left + Puck.ScaleWidth And PlayerR.Left + PlayerR.ScaleWidth > Puck.Left And PlayerR.Top + PlayerR.ScaleHeight > Puck.Top And PlayerR.Top < Puck.Top + Puck.ScaleHeight Then
       deltax = -350
       deltay = 400
       End If

If PlayerR.Left > Puck.Left + Puck.ScaleWidth And PlayerR.Left + PlayerR.ScaleWidth < Puck.Left And PlayerR.Top + PlayerR.ScaleHeight < Puck.Top And PlayerR.Top > Puck.Top + Puck.ScaleHeight Then
  
       deltax = 350
       deltay = -400
       End If

If Puck.Left < PlayerL.Left + PlayerL.ScaleWidth And Puck.Left + Puck.ScaleWidth > PlayerL.Left And Puck.Top + Puck.ScaleHeight > PlayerL.Top And Puck.Top < PlayerR.Top + PlayerL.ScaleHeight Then
       deltax = 350
       deltay = 400
       End If

If Puck.Left > PlayerL.Left + PlayerL.ScaleWidth And Puck.Left + Puck.ScaleWidth < PlayerL.Left And Puck.Top + Puck.ScaleHeight < PlayerL.Top And Puck.Top > PlayerL.Top + PlayerL.ScaleHeight Then
       deltax = -350
       deltay = -400
       End If

*** ALSO THIS CODE ***
'Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 56 Then
PlayerR.Top = PlayerR.Top - 300
End If
If KeyAscii = 50 Then
PlayerR.Top = PlayerR.Top + 300
End If
If KeyAscii = 54 Then
PlayerR.Left = PlayerR.Left + 300
End If
If KeyAscii = 52 Then
PlayerR.Left = PlayerR.Left - 300
End If