Using UP ARROW and DOWN ARROW Keys to Move the Focus

• Microsoft Visual Basic Standard and Professional Editions for Windows, versions 2.0, 3.0
• Microsoft Visual Basic programming system for Windows, version 1.0
• Microsoft Visual Basic Standard and Professional Editions for MS-DOS, version 1.0

SUMMARY

You can trap for the UP ARROW and DOWN ARROW extended keyboard keys in some Visual Basic controls by placing code in the KeyDown event procedure. The code uses KeyCode values to trap the UP ARROW and DOWN ARROW keys. You cannot, however, trap the keys in all Visual Basic controls because some controls already have built-in functionality for the UP ARROW and DOWN ARROW keys, so there is no KeyDown event generated.

MORE INFORMATION

The information in this article is provided to show that it is possible to trap the UP ARROW and DOWN ARROW keys, however Microsoft does not recommend that you implement it because the UP ARROW and DOWN ARROW keys have standard, predefined behavior on some controls. Microsoft recommends that you use the standard method for using the keyboard to move the focus; that is, use the TAB and SHIFT+TAB keys or use the access keys.

Step-by-Step Example for Moving the Focus Using UP ARROW and DOWN ARROW

1. Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running.



2. Add a Picture box and two Text boxes to Form1.



3. In the Picture1_KeyDown event procedure, add this code:

   
      Sub Picture1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
         IF KeyCode = 38 Then    '* 38 = up arrow key
            Text2.SetFocus
         Text2.SelStart = 0   '* set the cursor to the start
         END IF
   
         IF KeyCode = 40 Then    '* 40 = down arrow key
            Text1.SetFocus
         Text1.SelStart = 0   '* set the cursor to the start
         END IF
      END SUB 




4. In the Text1_KeyDown event procedure, add this code:

   
      Sub Text1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
         If KeyCode = 38 Then    '* 38 = UP ARROW key
            Picture1.SetFocus
         End If
   
         If KeyCode = 40 Then    '* 40 = DOWN ARROW key
            Text2.SetFocus
            Text2.SelStart = 0   '* set the cursor to the start
         End If
      End Sub 




5. In the Text2_KeyDown event procedure, add this code:

   
      Sub Text2_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
         If KeyCode = 38 Then    '* 38 = UP ARROW key
            Text1.SetFocus
            Text1.SelStart = 0   '* set the cursor to the start
         End If
   
         If KeyCode = 40 Then    '* 40 = DOWN ARROW key
            Picture1.SetFocus
         End If
      End Sub 




6. Choose Start from the Run menu or press F5 to run the example. Press the UP ARROW or DOWN ARROW key to see the focus move to a different control.

Additional query words: 2.00 3.00 B_VBmsdos

Keywords :
Version :
Platform :
Issue type :