поймать ввод в мс-доступе и в дереве

Question

Я пытаюсь поймать [ENTER] в элементе управления TreeView Microsoft.

этот код работает на любом обычном ключе, но не вводится.

Private Sub xProductTreeview_KeyPress(KeyAscii As Integer)
  'do something treeview can understand..
  Application.Quit
End Sub

теперь нажатие клавиши не срабатывает при нажатии ENTER, поэтому попытка KeyDown, с помощью http://www.pcreview.co.uk/forums/here-syntax-treeview-keydown-t3810664.html официальная декларация неверна и работает следующий код:

Private Sub xProductTreeview_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
  'do something treeview can understand..
  If KeyCode = 32 Then Application.Quit
  'Still, KeyCode=13 doesn't trigger nothing..
End Sub

Попытка установки для KeyPreivew в форме доступа значения true.

EDIT: Это на самом деле работает ..

установка KeyPreview в true и:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then MsgBox xProductTreeview.SelectedItem.Text
End Sub

Единственное, что осталось так отсортировать, это возвращаемое значение - значение метки, которое может быть неуникальным, так как я могу получить ключ вместо текста узла ??

С уважением, // т

Answer 1

keyPreview = true и

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Dim nodSelected As MSComctlLib.Node
    Set nodSelected = Me.xProductTreeview.SelectedItem
    MsgBox nodSelected.Key
  end if
End Sub