呵呵..给你个全部的例子你就知道了.. 使用了一个timer Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI '主要是漏了这个 x As Long y As Long End Type Dim z As POINTAPI Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() GetCursorPos z Cls Print z.x Print z.y End Sub
vb用户定义类型未定义: Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ;
最新推荐文章于 2024-12-11 00:19:56 发布
本文提供了一个使用Visual Basic编写的简单示例程序,通过声明GetCursorPos函数并定义POINTAPI类型来获取并显示鼠标的实时坐标。该程序利用了一个定时器组件每隔100毫秒更新一次坐标。
AI 时代程序员必备技能
Codex、Claude Code、Cursor、Hermes Agent、OpenClaw等工程化实战专栏 ,讲透 AI 如何接管脏活累活
AI 时代程序员必备技能
Codex、Claude Code、Cursor、Hermes Agent、OpenClaw等工程化实战专栏 ,讲透 AI 如何接管脏活累活

503

被折叠的 条评论
为什么被折叠?



