敬业的IT人 互联网 佚名 2008-4-18 10:48:15

在标准EXE工程添加一个Timer、两个Label控件，各属性取默认值。然后给工程拷贝如下代码：

OptionExplicit

'申明API函数
PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong

PrivateTypePOINTAPI'声明数据类型
xAsLong
yAsLong
EndType

DimzAsPOINTAPI'变量

PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=1
EndSub

PrivateSubTimer1_Timer()
GetCursorPosz'获取坐标
Label1="x:"&z.x'显示x坐标
Label2="y:"&z.y'显示y坐标
EndSub

最新文章

一组VB应用技巧[04-18]

VisualBasic软件设计中的几个问题[04-18]

切割一个Container中的图片[04-18]

在有剪贴板的应用程序间移动数据[04-18]

在Windows98中使用VB5.0编程疑难一解[04-18]

ADO控件和DATA控件的冲突（不能共存）的解决方法[04-18]

相关文章