社区 › VB › VBA如何连续获取鼠标点击处坐标？

dchlmz 发表于 2005-6-24 15:44:00

VBA如何连续获取鼠标点击处坐标？

VBA如何连续获取鼠标点击处坐标？就像画多段线一样

evaporated 发表于 2005-6-25 08:41:00

可以获得双击处的。。。
别的可能难些

dchlmz 发表于 2005-6-27 09:53:00

我不想获得双击处的坐标，我现在想修改多段线，所以想连续获得鼠标左键单击后坐标值。各位老师请指点。

czlj2008 发表于 2005-8-13 10:40:00

use :getpoint()函数

liuzi6161 发表于 2006-5-13 21:58:00

关键是连续点击的坐标，可以用右键的err.number最后退出程序。

addfy2008 发表于 2006-5-16 10:17:00

能够给个实际的例子吗?

xinghesnak 发表于 2006-5-18 14:30:00

试试下面的程序，应该行的。。。
Private Type MyPoint
    X As Double
    Y As Double
    Z As Double
End Type
Sub main()
Dim Point() As MyPoint, curPoint As Variant, start As Boolean
ReDim Point(0) As MyPoint
start = True
Do
    On Error Resume Next
    curPoint = ThisDrawing.Application.ActiveDocument.Utility.GetPoint
    If Err Then Err.Clear: Exit Do
    If start = False Then ReDim Preserve Point(UBound(Point) + 1)
    Point(UBound(Point)).X = curPoint(0)
    Point(UBound(Point)).Y = curPoint(1)
    Point(UBound(Point)).Z = curPoint(2)
    start = False
Loop
End Sub

查看完整版本: VBA如何连续获取鼠标点击处坐标？