开始我想的挺简单,以为用一个timer控件,设定一个时间点击就好了!试了一下不知怎么弄
我想在WINXP系统任何程序下,实现按键盘方向键,每隔几秒中按一下

我用VB6标准窗体试了一下
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Private Sub Timer1_Timer()

从这我以为给Keycode附值(方向左键为37,)就行呢!

End Sub



请给指出错误,谢谢!!

KeyCode 本身就存储了按的键的键码。而且 Form_KeyDown 过程没有 End Sub。你不用给 KeyCode 赋值，只要检测它存储的是否为某个键的键值就可以了。
在 Form_KeyCode 里面写:

If KeyCode = 37 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

然后再在 Timer1 里写移动控件的代码。

我还是不明白,我想写一个只要打开程序什么情况下等同于一直按键盘(方向左键KEYCODE值为37)!


2楼说
在 Form_KeyCode 里面写:

If KeyCode = 37 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

然后再在 Timer1 里写移动控件的代码。

我觉得这只是在按下键盘左键TIME1控件工作!
我想要的是打开程序,在运行别的程序时(如写字版等),等同与一直按着键盘(左键)!!

谢谢2楼!

哦，原来你是想要这样的效果。那么你就在 Timer 中写触发 Form_KeyDown 事件的代码吧。


Private Sub Timer1_Timer()
Form_KeyDown 37, 0
End Sub

[此贴子已经被作者于2006-1-15 22:00:55编辑过]

不好意思再次打扰你,我试过了,这样运行会报错(函数没定义),而且在FORM最小化(失去焦点后)在别的程序上也不能用!我决的,我是个菜鸟,谢谢帮助!!


Private Sub Timer1_Timer()
Form_KeyDown 37, 0
End Sub

这个就不能依靠 Form_KeyDown 了，得用 API 函数。

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) '一个可以实现模仿敲键的 API 函数，第一个参数指明按键的虚拟码，第三个参数指明的是按键的方式，其他的参数都不太重要
Private Const VK_LEFT = &H25 '表示"左箭头键"，VK 是虚拟(Virtual)码的意思
Private Const KF_UP = &H8000 '表示"放开按键"

Private Sub Form_Load()
Timer1.Interval = 500 '每半秒触发一次 Timer 事件，即每半秒按一次键
End Sub

Private Sub Timer1_Timer()

keybd_event VK_LEFT, 0, 0, 0 '按下箭头键，第二个"0"表示"按下"
keybd_event VK_LEFT, 0, KF_UP, 0 '放开下箭头键

End Sub

多谢多谢!!
明天我去买本WIN32 API的书好好学学!