光标移动.frm

Visual Basic课程举例1 有很好的例题

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00E0E0E0&
   ClientHeight    =   7500
   ClientLeft      =   3315
   ClientTop       =   3165
   ClientWidth     =   10215
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   21.75
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7500
   ScaleWidth      =   10215
   Begin VB.Label L1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "J"
      BeginProperty Font 
         Name            =   "Wingdings"
         Size            =   72
         Charset         =   2
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1590
      Left            =   4560
      TabIndex        =   1
      Top             =   2400
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "用光标键控制笑脸的移动，其它键复位到窗体中心，按Esc键退出程序。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' 多重选择结构之SELECT CASE 程序举例
' 作者：曹新国
' 日期：2008年3月
'
' 说明：程序只是实现了比较简单的功能，程序中的150是VB默认长度单位，150 twips 合10像素
' 同学们可以利用其它键再增加一些功能，比如按下CTRL键后倍速移动，利用“+”和“-”加速、减速等
'


' MSDN中KEYDOWN事件的相关参数描述

'keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。
'要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中的常数。

'shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。
'shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。
'这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。
'例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。
'如果需要测试 shift 参数，可使用该参数中定义各位的 shift 常数。该常数有下列值：

'常数        值  描述
'vbShiftMask 1  SHIFT 键的位屏蔽。
'VbCtrlMask  2  CTRL 键的位屏蔽。
'VbAltMask   4  ALT 键的位屏蔽。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case vbKeyEscape
            End
        Case vbKeyUp
            L1.Top = L1.Top - 150
        Case vbKeyDown
            L1.Top = L1.Top + 150
        Case vbKeyLeft
            L1.Left = L1.Left - 150
        Case vbKeyRight
            L1.Left = L1.Left + 150
        Case Else
            L1.Left = (Me.Width - L1.Width) / 2
            L1.Top = (Me.Height - L1.Height) / 2
    End Select
            
End Sub