Question

有关vb语言编程的API函数问题

为什么我在通用部分里声明了以下语句后出现用户定义类型未定义的情况?是不是还有什么没有加载或其他问题,我应该怎么做?
Declare Function GetCursorPos Lib "user32" (lpPoint As PoinTAPI) As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Answer 1

你的问题大概是你不小心造成的：

应该写成
public Declare Function GetCursorPos Lib "user32" (lpPoint As PoinTAPI) As Long

public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

在通用模块中要加上关键字：public

如果你没有加入此关键字，那就会报找不到的错误，你试一试吧！

Answer 2

Type POINTAPI
x As Long
y As Long
End Type
加在前面

Answer 3

帮你找了个
http://cache.baidu.com/c?word=declare%2Cfunction%2Cgetcursorpos%2Clib%2Cuser32%2Clppoint%2Cas%2Cpointapi%2Cas%2Clong&url=http%3A//hightall%2E51%2Enet/&b=0&a=3&user=baidu#2
参考一下