关于找不到DLL入口点的问题。

wuzhifei 2006-08-18 09:33:17
我的代码如下
Private Declare Function getcursorpos Lib "user32" (lppoint As pointapi) As Long
Private Declare Function setcursorpos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type pointapi
X As Long
Y As Long
End Type

Private Sub Command1_Click()
If IsNumeric(Text1) And IsNumeric(Text2) Then
i = setcursorpos(Text1, Text2)
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rc As Long
Dim lppoint As pointapi
rc = getcursorpos(lppoint)
End Sub


调试时弹出错误窗口说找不到DLL入口点 getcursorpos in user32
这个应该怎么修改法??请高手指点。。。
...全文
241 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
早起旺财 2006-08-18
  • 打赏
  • 举报
回复
声明问题,注意大小写
Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧