Question

vb怎么定义一个函数，比如用findwindow，用不了啊，出现子程序或函数未定义

Answer 1

'在窗体模块中定义使用下面的代码：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'在标准模块中定义使用下面的代码：
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'调用示例：hWnd = FindWindow(vbNullString, "未命名 - 画图") '通过窗口标题找符合条件的窗口：成功返回窗口句柄；失败返回0，会设置GetLastError

Answer 2

你是指的api函数吧，需要在模块中定义，具体的定义语句，可以找 vb 自带的一个小工具 API浏览器

追问

外接程序没有api浏览器啊

追答

你在安装目录搜索一下 apiload.exe,这个是需要自己添加的，才会在外接程序中有。实在找不到，请看这里http://jingyan.baidu.com/article/574c521917c7806c8d9dc198.html