社区 › VB › 救急！！！！！！！！！！！！！！！十万火急

y1982_0 发表于 2005-9-21 19:55:00

救急！！！！！！！！！！！！！！！十万火急

得到鼠标点选得点坐标 ！！！！！！！！！！！！1111

y1982_0 发表于 2005-9-21 21:12:00

终于自己找到了,不易啊

mccad 发表于 2005-9-21 21:18:00

看你的发帖数了也不少了，这样的问题应该可以自己解决。所以有问题自己要先想办法解决，不要一碰到问题就拿上来问，这样对自己没有多大的提高。

y1982_0 发表于 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
谢谢版主,批评的是,主要是别人问我,着急了些,我写出来了

查看完整版本: 救急！！！！！！！！！！！！！！！十万火急