急！帮忙看下这句程序哪里有错误？

Question

If 0 = accpinfo.Text Then Call keybd_event(30, 0, 0, 0)
为什么我一运行就说“子程序或函数未定义”然后keybd_event就用黄色标记！

Answer 1

这个，又是从什么书上直接摘下来的吧？
keybd_event()应该是你自定义的函数或过程，你没有定义当然会出现这样的错误

Answer 2

加上：
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Answer 3

加上：
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Answer 4

代码顶端加上
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Answer 5

代码顶端加上API的声明语句
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Answer 6

就是啊 ,那个函数要么自定义的要么就是 系统函数啊
自定义的就要顶一函数啊 ,在编写代码啊
可是如果是api函数你就在模块中定义声名下啊