Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4331

[CE MVBA] How to get user input of ESC

$
0
0

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.


Viewing all articles
Browse latest Browse all 4331

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>