请问有人帮忙翻译成易语言的代码

初学者初来乍到

'先申明函数

Public Declare Function GetCursorInfo Lib "user32.dll" (ByRef pci As CURSORINFO) As Boolean

'再建立需要用到的数据类型 CURSORINFO 及POINTAPI

Public Type POINTAPI '建立point的属性,横坐标与纵坐标

X As Long 'point.x

Y As Long 'point.y

End Type

Public Type CURSORINFO

cbSize As Long

' Specifies the size, in bytes, of the structure.

' The caller must set this to Marshal.SizeOf(typeof(CURSORINFO)).

flags As Long

' Specifies the cursor state. This parameter can be one of the following values:

' 0 The cursor is hidden.

' 1 The cursor is showing.

hCursor As Long

' Handle to the cursor.

ptScreenPos As POINTAPI

End Type

'最后调用此函数方法

DIM pci As CURSORINFO

pci.cbSize = Len(pci)

a = GetCursorInfo (pci)

'如果调用成功则a返回True 否则返回False

'如果调用成功可使用如下取得鼠标句柄等信息

pci.hcursor '鼠标句柄

pci.ptScreenPos.X '鼠标点x坐标

pci.ptScreenPos.Y '鼠标点y坐标

请哪位朋友帮帮忙可以吗？谢谢了。。。。。。

老衲法号黄牛

这是VB，有偿帮

猥琐小胖子

其实你搜索：GetCursorInfo  E很多源码都有例子的 1.rar (1.6 KB, 下载次数: 10)

2016-5-26 18:27 上传

点击文件名下载附件

初学者初来乍到

猥琐小胖子 发表于 2016-5-26 18:27
其实你搜索：GetCursorInfo  E很多源码都有例子的

这里面的英文我不懂？你能在源码后加注释吗

猥琐小胖子

初学者初来乍到 发表于 2016-5-26 18:32
这里面的英文我不懂？你能在源码后加注释吗

还翻译什么啊。就一个api函数。这个api函数干啥的。你搜索下那英文，一堆中文解释。

初学者初来乍到

猥琐小胖子 发表于 2016-5-26 18:39
还翻译什么啊。就一个api函数。这个api函数干啥的。你搜索下那英文，一堆中文解释。

我刚才搜索了，有的可以搜索到解释，有的搜索不到。ptScreenPos  像这个我就没有搜索到中文的意思