What's Here?

Members: 117,281
Replies: 431,121
Topics: 66,540
Snippets: 2,391
Tutorials: 630
Total Online: 2,109
Members: 70
Guests: 2,039

Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Getting VB Help is Easy! Join 117,281 VB Programmers for FREE! Ask your question and get quick answers from experts. There are 2,109 online right now! We've got more than 500 tutorials and 2,000 snippets. Join and find out why Dream.In.Code is the #1 programming help community on the internet! Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert Register to Make This Box Go Away!

How to move and Picture box with ASC and Arrow keys

This allows you to move and image box either by ascii or the arrow keys.

Submitted By: sam_benne

Actions:

Rating:

Views: 665

Language: Visual Basic

Last Modified: May 7, 2008

Instructions: Create and picture box (pic1) on a standard exe.

Snippet

Private Sub Form_Load()
KeyPreview = True
MsgBox ("Use the 2, 4, 6, 8 keys or the arrow keys to move the picture box")
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) ' to handle the number keys
Form1.Caption = "You pressed key: " & KeyAscii
'W = 119, D = 100, A = 97, S = 119
Select Case KeyAscii
Case 115 ' down
pic1.Top = pic1.Top + 100
Case 97 ' left
pic1.Left = pic1.Left - 100
Case 100 ' Right.
pic1.Left = pic1.Left + 100
Case 119 ' Up
pic1.Top = pic1.Top - 100
End Select
End Sub
Private Sub Pic1_KeyDown(KeyCode As Integer, Shift As Integer)
' to handle the non ASCII keys, arrow keys, use the KeyDown event
Select Case KeyCode
Case vbKeyDown
pic1.Top = pic1.Top + 100
Case vbKeyLeft
pic1.Left = pic1.Left - 100
Case vbKeyRight
pic1.Left = pic1.Left + 100
Case vbKeyUp
pic1.Top = pic1.Top - 100
End Select
End Sub

Copy & Paste

Private Sub Form_Load()
    KeyPreview = True
    MsgBox ("Use the 2, 4, 6, 8 keys or the arrow keys to move the picture box")
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) ' to handle the number keys
Form1.Caption = "You pressed key: " & KeyAscii
'W = 119, D = 100, A = 97, S = 119
    
    Select Case KeyAscii
        Case 115 ' down
            pic1.Top = pic1.Top + 100
        Case 97 ' left
            pic1.Left = pic1.Left - 100
        Case 100 ' Right.
            pic1.Left = pic1.Left + 100
        Case 119 ' Up
            pic1.Top = pic1.Top - 100
    End Select

End Sub

Private Sub Pic1_KeyDown(KeyCode As Integer, Shift As Integer)
    ' to handle the non ASCII keys, arrow keys, use the KeyDown event
    Select Case KeyCode
    Case vbKeyDown
            pic1.Top = pic1.Top + 100
    Case vbKeyLeft
            pic1.Left = pic1.Left - 100
    Case vbKeyRight
            pic1.Left = pic1.Left + 100
    Case vbKeyUp
            pic1.Top = pic1.Top - 100
    End Select
    
End Sub