why keyboardevents NOT working?

[liminma8458]

Hi,

In an InteractionEvents,  I try to use a keyboardevents at same time with a selectionevents. So while in doSelectEvents_OnPreSelect process, the user can click keyboard (such as space bar, or esc key) to invoke some action. But the code does not work out. Both oKeyPress_OnKeyDown() and oKeyPress_OnKeyPress() have no response. Can somebody try it out and see why?

The code in class is as attached. The code in module is :

Public Sub keyboard_enter_test()
Dim oEdge As Edge
Dim oSelect As New Clsselect_edge_keyboard
Set oEdge = oSelect.Pick(kPartEdgeCircularFilter, "Select a circular edge:")
End Sub

[laszlo_nagy · Accepted solution]

Hi!

When you run the process from VBA Editor, I don't know why but the KeyboardEvents are not active Until you click or Pan the model window

try to add this line into you class it works for me 

*Ps sorry for my english

----------Class --------------

' Set the filter using the value passed in.
oSelectEvents.AddSelectionFilter filter

' Start the InteractionEvents object.
oInteractEvents.Start

'----------------------------------
'ADD THIS LINE 
AppActivate ThisApplication.Caption
'-----------------------------------

' Loop until a selection is made.
Do While bStillSelecting
DoEvents
Loop

[liminma8458]

Work perfectly.

Thank you so much!!!