mountains 发表于 2004-7-11 22:11:00

求教:用getpoint循环选择点的问题

Sub t3()
On Error GoTo ErrHandle
Do While True
Debug.Print ThisDrawing.Utility.GetPoint(, "输入：")(0)
Loop
ErrHandle:
MsgBox "退出"
End Sub

雪山飞狐_lzh 发表于 2004-7-11 22:23:00

试验成功，呵呵！版主果然高手！
页: [1]
查看完整版本: 求教:用getpoint循环选择点的问题