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

dchlmz

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

evaporated

可以获得双击处的。。。


别的可能难些

dchlmz

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

czlj2008

use :getpoint()函数

liuzi6161

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

addfy2008

能够给个实际的例子吗?

xinghesnak

试试下面的程序，应该行的。。。

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