Hello All,
I'd like to get user input of ESC key. Sample codes below:
Sub TestCadInputD() 'record user input Dim myCIQ As CadInputQueue Dim myCIM As CadInputMessage Dim I As Long Dim pt3Selection As Point3d Set myCIQ = CadInputQueue For I = 1 To 1 Set myCIM = myCIQ.GetInput Select Case myCIM.InputType Case msdCadInputTypeCommand Debug.Print "Command" & vbTab & myCIM.CommandKeyin Case msdCadInputTypeReset Debug.Print "Reset" Exit For Case msdCadInputTypeDataPoint pt3Selection = myCIM.point Debug.Print "Point" & vbTab & pt3Selection.x & vbTab & _ pt3Selection.y & vbTab & _ pt3Selection.Z & vbTab & _ myCIM.View.Index & vbTab & _ myCIM.ScreenPoint.x & vbTab & _ myCIM.ScreenPoint.y & vbTab & _ myCIM.ScreenPoint.Z Case msdCadInputTypeKeyin Debug.Print "Keyin" & vbTab & myCIM.Keyin Case msdCadInputTypeAny Debug.Print "Any" Case msdCadInputTypeUnassignedCB Debug.Print "UnassignedCB" & vbTab & myCIM.CursorButton End Select Next I End Sub
Run it in V8i, it will respond user's ESC key and goes to msdCadInputTypeCommand part, debug.print will show "Command INPUTMANAGER TRAINING HINT ".
Run it in CE update 10 V10.10.00.23, if press ESC key, no response, it is waiting for other inputs still.
I didn't revise the ESC in both MS. Actually I don't know if ESC can be customised or not.
Can anyone help me to test the codes in CE update 11? Thanks a lot.