文件名称:mousepoint
- 所属分类：
- Windows编程
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2014-05-15
- 文件大小：
- 4kb
- 下载次数：
- 0次
- 提 供 者：
- jpu****
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
VB获取鼠标指针坐标，在窗口中适时显示鼠标坐标，移动鼠标适时显示坐标信息，是计算鼠标所经过点的像素值，以下代码是关键代码：
Private Sub Timer1_Timer()
Dim point As POINTAPI
GetCursorPos point 获取鼠标位置
Label1.Caption = "当前鼠标坐标：" & point.x & " , " & point.y
End Sub-VB to get the coordinates of the mouse pointer, timely mouse coordinates displayed in the window, move the mouse to display the coordinate information in a timely manner, the point through which the mouse is calculated pixel values , the following code is the key to the code:
Private Sub Timer1_Timer ()
Dim point As POINTAPI
GetCursorPos point to get the mouse position
Label1.Caption = "current mouse coordinates:" & point.x & "," & point.y
End Sub
Private Sub Timer1_Timer()
Dim point As POINTAPI
GetCursorPos point 获取鼠标位置
Label1.Caption = "当前鼠标坐标：" & point.x & " , " & point.y
End Sub-VB to get the coordinates of the mouse pointer, timely mouse coordinates displayed in the window, move the mouse to display the coordinate information in a timely manner, the point through which the mouse is calculated pixel values , the following code is the key to the code:
Private Sub Timer1_Timer ()
Dim point As POINTAPI
GetCursorPos point to get the mouse position
Label1.Caption = "current mouse coordinates:" & point.x & "," & point.y
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
获取鼠标指针坐标\Form1.frm
................\Form1.frx
................\Mdl_folder.bas
................\Module1.bas
................\MSSCCPRJ.SCC
................\工程1.PDM
................\工程1.vbp
................\工程1.vbw
获取鼠标指针坐标