/ Snippet Library - View Code

Visual Basic / Games / Diagonal movement

Snippet details

ID: 339

Viewed: 1290

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Now you can move the form in all directions. When you press the ESC key, the program will exit.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllDim blnKeys(256) As Boolean ' buffer for key status
Code
Highlight AllPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) blnKeys(KeyCode) = True' set that the key is pressed End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) blnKeys(KeyCode) = False' set that the key is released End Sub Public Sub RunMain() Do ' Check for pressed keys and move form accordingly If blnKeys(vbKeyUp) Then Me.Top = Me.Top - 20 If blnKeys(vbKeyDown) Then Me.Top = Me.Top + 20 If blnKeys(vbKeyLeft) Then Me.Left = Me.Left - 20 If blnKeys(vbKeyRight) Then Me.Left = Me.Left + 20 DoEvents Loop Until blnKeys(vbKeyEscape) ' loop until you press ESC Unload Me End Sub Private Sub Form_Load() Me.Show Call RunMain End Sub

No Reviews to show