XDSoft 发表于 2021-1-13 02:46:59

Can't use transparent command from menu or toolbars while getting input


问题:

I use the following macro to prompt for user input:
Sub test()
ThisDrawing.Utility.GetPoint , "Specify a point or use a transparent command:"
End Sub
Why does the prompt abort after a user selects the Zoom command from the
toolbar?

解答:

This is a known problem for which the workaround is to have the user type the
transparent command instead of selecting it from the toolbar or menu is as
follows:
Sub test()

Dim pt As Variant
On Error GoTo herr

pt=ThisDrawing.Utility.GetPoint( , "Specify a point or use a transparent
command: ")
Exit Sub

herr:
   Resume
End Sub

页: [1]
查看完整版本: Can't use transparent command from menu or toolbars while getting input