如何实现用键盘可以像游戏中可以斜上移动，鼠标又如何控制呢？等待你的回答。

Question

你的提问很没技巧：）  移动什么－－没说清楚
  用鼠标移动还是键盘移动－－没说清楚等待你的提问！

Answer 1

一般在程序中只响应一个按键，若要判断几个健同时按下可以用下面这条函数
Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
实现如下
我预先将我所要扫描的按键的Keycode放在了Integer数组MyKeyCode()中
然后用GetKeyState这条函数扫描这些键是否被按下，并将扫描结果放在Boolean数组KeyPressed()中
For A = 0 To 9
KeyPressed(A) = (GetKeyState(MyKeyCode(A)) < 0)
Next A注意，可能是由于键盘的原因，多键按下时有时会有按键冲突，你玩过模拟器的话就会有所体会。