乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 40|回复: 3

救急!!!!!!!!!!!!!!!十万火急

[复制链接]

16

主题

43

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
107
发表于 2005-9-21 19:55:00 | 显示全部楼层 |阅读模式
得到鼠标点选得点坐标 !!!!!!!!!!!!1111
回复

使用道具 举报

16

主题

43

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
107
发表于 2005-9-21 21:12:00 | 显示全部楼层
终于自己找到了,不易啊

回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-9-21 21:18:00 | 显示全部楼层
看你的发帖数了也不少了,这样的问题应该可以自己解决。所以有问题自己要先想办法解决,不要一碰到问题就拿上来问,这样对自己没有多大的提高。
回复

使用道具 举报

16

主题

43

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
107
发表于 2005-9-21 21:20:00 | 显示全部楼层
Sub test()
Dim ptPick As Variant
Dim string1(100) As String
Dim string2(100) As String
Dim i As Integer
For i = 1 To 5
ptPick = ThisDrawing.Utility.GetPoint(, "pick")
string1(i) = Left(ptPick(0), 8)
string2(i) = Left(ptPick(1), 8)
Next
'MsgBox string1 + " " + string2
Open "f:\ordinate.txt" For Output As #1
For i = 1 To 5
Print #1, string1(i), string2(i)
'Write #1, string1(i), string2(i)
Next
Close 1
End Sub
谢谢版主,批评的是,主要是别人问我,着急了些,我写出来了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 14:26 , Processed in 0.781611 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表