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

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

提示: 作者被禁止或删除内容自动屏蔽

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

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

mountains · 发表于 2004-7-12 00:23:00

提示: 作者被禁止或删除内容自动屏蔽

fang: · 发表于 2012-5-21 12:12:02

试验成功，呵呵！版主果然高手！

账号		自动登录	找回密码
密码			注册

mountains mountains 当前离线积分 974 明经币个注册时间 2004-2-12 在线时间小时威望金钱个贡献激情	发表于 2004-7-11 22:11:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

mountains mountains 当前离线积分 974 明经币个注册时间 2004-2-12 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2004-7-12 00:23:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡