mountains
发表于 2004-7-11 22:11:00
雪山飞狐_lzh
发表于 2004-7-11 22:23:00
Sub t3()<BR>On Error GoTo ErrHandle<BR>Do While True<BR>Debug.Print ThisDrawing.Utility.GetPoint(, "输入：")(0)<BR>Loop<BR>ErrHandle:<BR>MsgBox "退出"<BR>End Sub<BR>
mountains
发表于 2004-7-12 00:23:00
fang:
发表于 2012-5-21 12:12:02
试验成功，呵呵！版主果然高手！
页:
[1]