-----------------------------------------------------------------------------------

黑客动画吧 http://www.hack58.com

致力于中国最专业的黑客安全站点

黑客动画吧，有你更精彩

-----------------------------------------------------------------------------------
                                
                                  用键盘控制小球移动
                                 
     大家好，今天是农历29，先跟大家拜个早年啊。第一次给黑吧做教程挺紧张的，一直想到黑吧来学习

，可是苦于没有邀请码，希望教程能发布哦。

    今天给大家做VB教程，根据KeyDown事件来编写一个实例，键盘响应事件是做游戏的基础。
   
    KeyDown事件即当按下键盘上的任意键时触发的事件，KeyDown事件能够报告键盘准确的物理状态，
   
    这个事件的语法格式如下：

   Private Sub object_KeyDown(KeyCode As Integer, Shift As Integer)
  
   此语法格式中的参数如下：
  
   KeyCode：是一个键的代码，如vbKeyF1（表示F1键）；vbKeyHome（表示home键）。
  
   Shift：表示shift键，ctrl键和alt键的状态，只有检查此参数，才能判断输入的是大写还是小写字母。
         
   实例:用键盘控制小球移动  (实例如)
  
   1.启动VB后在窗体上添加图形控件Shape1.然后设置窗体的Caption属性(移动的小球)，设置Shape1的
  
     Shape属性(3-Cirle.即圆形)，FillStyle属性(0-Solid。即实心)，FillColor属性(填充颜色为蓝色)
    
     和BorderColor属性(边框颜色为红色)。    
  
   2.编写程序事件代码：
  
   这个我就直接复制过去了，节省时间。
  
Option Explicit

Dim i As Integer          '定义i为整形变量  
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 37 Then         '如果按下键值为37的键
  Shape1.Left = Shape1.Left - 100      '图形控件向左移动100缇
 ElseIf KeyCode = 38 Then                               '如果按下键值为38的键
  Shape1.Top = Shape1.Top - 100          '图形控件向左移动100缇
 ElseIf KeyCode = 39 Then                               '如果按下键值为39的键
  Shape1.Left = Shape1.Left + 100      '图形控件向左移动100缇
 ElseIf KeyCode = 40 Then                               '如果按下键值为40的键
  Shape1.Top = Shape1.Top + 100                         '图形控件向左移动100缇
 End If
End Sub

  3.4个键对应的键值：
 
   37，38，39，40分别为方向键上下左右的键值。
  
  教程就到这里了，做的不好请大家原谅啊。。。
 
  我的联系方式。E-mail：1397542940@163.com