| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 921 人关注过本帖
标题:[求助]VB中怎么实时保存?
只看楼主 加入收藏
dxmqj1983
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-9-11
收藏
 问题点数:0 回复次数:2 
[求助]VB中怎么实时保存?

我想做个记录鼠标坐标的小程序,工作原理如下:
当在桌面移动鼠标时,程序会记动记录鼠标所有经过的坐标,
并实时的保存在一个TXT文件中,分多行保存,
一行只保存一组数据:X+Y
请问我要怎么才能实现?
获得鼠标坐标代码:

Private Sub Timer2_Timer()

GetCursorPos z ' 获取坐标

Label1 = "X标坐标: " & z.x ' 显示 x 坐标

Label2 = "Y标坐标: " & z.y ' 显示 y 坐标

Text1 = z.x & " + " & z.y

End Sub

现在测试在LABEL中能正确显示XY坐标,TEXT中也能正确显示X+Y

请高手帮忙做个代码行?
小弟新手,刚接确VB,很多地方不懂,现在正在边看实例边学习,

另外,如果我想再实时读取己保好的文件中的数据,例:A.txt
X Y
125,253
125,254
125,255

每间隔一秒读取一行,并将数据实时做为坐标:X,Y(125.253)发送到鼠标,让鼠标自动按设定好的坐标移动,该怎样实现?
我做好了一点代码:
Private Sub Timer1_Timer()

Dim xy As Long, xz As Long
SetCursorPos xy, xz

End Sub

请高手能帮忙指点吗?

搜索更多相关主题的帖子: 坐标 鼠标 实时 
2006-09-11 21:49
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 

用 open 打開文件, 在停止鼠標位置捕獲之前才關閉. 在捕獲期間, 可以寫入資料啊.


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-09-12 01:00
yyy505
Rank: 1
等 级:新手上路
威 望:1
帖 子:49
专家分:0
注 册:2006-9-7
收藏
得分:0 

2006-09-12 10:56
快速回复:[求助]VB中怎么实时保存?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046250 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved