Вопрос по Application.Onkey!!!

[Klim Bassenger]

Всем Привет!
Подскажите, пожалуйста, возможно ли задать Application.Onkey следующий параметр: при нажати ENTER на NumPad чтобы данные из textbox данной формы добавлялись в listbox другой формы???
Подробнее в файле....
Заранее спасибо!

P. S. И еще вопрос: как запретить при нажатии кнопки Добавить добавление значения, которой уже было добавлено???
В справке Microsoft нашел такое:
Private Sub CommandButton2_Click()
'Ensure ListBox contains list items
If ListBox2.ListCount >= 1 Then
'If no selection, choose last list item.
If ListBox2.ListIndex = -1 Then
ListBox2.ListIndex = _
ListBox2.ListCount - 1
End If
ListBox2.RemoveItem (ListBox2.ListIndex)
End If
Label1.Caption = ListBox2.ListCount
End Sub

То есть просто удаляем элемент из списка... Вариант устраивает. Но всё-равно хотелось бы посмотреть как всё-таки запретить ввод значений!

[EducatedFool]

Application.Onkey здесь вряд ли поможет.

Во-первых, без использования WinAPI у Вас вряд ли получится отличить нажатие основной клавиши Enter от расположенной на NumPad.

Если без разницы, какая из клавиш Enter нажата, то можно использовать примерно такой код:

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then CommandButton1_Click
End Sub

как запретить при нажатии кнопки Добавить добавление значения, которой уже было добавлено?

Запретить добавление значения куда? На лист, или в одно из полей формы?

[Klim Bassenger]

Сообщение от EducatedFool

If KeyCode = 13 Then

Думаю - это то, что нужно... А где посмотреть все KeyCode ???

[Klim Bassenger]

Запретить добавление значения куда? На лист, или в одно из полей формы?[/QUOTE]
Запретить добавление элемента в листбокс.

[EducatedFool]

А где посмотреть все KeyCode ???

Проще посмотреть коды нужных клавиш, используя такой код:

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    MsgBox "KeyCode " & KeyCode
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MsgBox "KeyAscii " & KeyAscii
End Sub

Выделите одно из значений в ListBox1, и понажимайте различные клавиши.
Обратите внимание - KeyAscii для цифр с основной и дополнительной части клавиатуры (NumPad) одинаковый, а KeyCode - разный.

Впрочем, можно попробовать использовать и Application.Onkey
Только назначать макрос нужной кнопке при запуске формы, и отменять назначение макроса при закрытии формы.
Иначе после закрытия формы и нажатия Enter на листе макрос будет мешать работе с ячейками.

[Klim Bassenger]

Впрочем, можно попробовать использовать и Application.Onkey
Только назначать макрос нужной кнопке при запуске формы, и отменять назначение макроса при закрытии формы.
Иначе после закрытия формы и нажатия Enter на листе макрос будет мешать работе с ячейками.[/QUOTE]

Я вроде так и пытался сделать, но ничего не получилось (