Wak
Apr 18th, 2001, 07:18 PM
I converted this DirectX7 project to DirectX8 and I am still having problems. Can someone plz help me, I don't know where I am going wrong. There is a form, frmMain and a module, modMain .
frmMain
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
KeyUp = True
Case vbKeyDown
KeyDown = True
Case vbKeyLeft
KeyLeft = True
Case vbKeyRight
KeyRight = True
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
KeyUp = False
Case vbKeyDown
KeyDown = False
Case vbKeyLeft
KeyLeft = False
Case vbKeyRight
KeyRight = False
Case vbKeyEscape
bRunning = False
End Select
End Sub
There isn't enough room to chuck it all in 1 post, so I'll put in another 1. In less than 5 minz.
frmMain
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
KeyUp = True
Case vbKeyDown
KeyDown = True
Case vbKeyLeft
KeyLeft = True
Case vbKeyRight
KeyRight = True
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
KeyUp = False
Case vbKeyDown
KeyDown = False
Case vbKeyLeft
KeyLeft = False
Case vbKeyRight
KeyRight = False
Case vbKeyEscape
bRunning = False
End Select
End Sub
There isn't enough room to chuck it all in 1 post, so I'll put in another 1. In less than 5 minz.