Очистка буфера клавиатуры - как?

[Ёрик]

Есть две формы, первая вызывает вторую модально. Вторая форма закрывается по нажатию кнопки Enter. Этот самый Enter почему-то попадает в KeyUp первой формы, хотя не хотелось бы. Хочется сделать что-то вроде чистки буфера клавиатуры в OK_Clicked второй формы, если, конечно, это нельзя сделать какими-либо более цивильными способами.

[GSerg]

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

[Ёрик]

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

Я с удовольствием подумаю об изменении дизайна, но вот беда, кнопка ОК на диалоге дефолтная, и KeyUp при нажатии Enter не приходит.. приходит OK_Click и усё. И Enter спокойненько идет дальше в кей-ап вызывающей формы...

[Ёрик]

Приклепляю сампл-приложение, на котором ясно видно, что никакое клавиатурное событие по нажатию ентера не приходит в форму с дефолтной кнопкой.
Есть ли какие-нибудь идеи?

Спасибо.

[ALX_2002]

Хм... Действительно... Никогда такого не видел..

Попробывал KeyPreview менять. Всё равно такая же лажа.

[CORBA]

Если я правильно понял суть вопроса, то можно
уравнять значения по адресам памяти 0040:$1C и 0040:$1A

[tyomitch]

Если я правильно понял суть вопроса, то можно
уравнять значения по адресам памяти 0040:$1C и 0040:$1A

Неправильно понял. У человека не DOS.

[SHURUP]

Хм... Действительно... Никогда такого не видел..

Попробывал KeyPreview менять. Всё равно такая же лажа.

а я Сталкивался
Это можно получить, если, например, на пустой форме вставить код

Код: Выделить всё

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then MsgBox "Нажмите Ентер"
End Sub 

получается замкнутый круг.
---
Поскольку на Форме1 события Form_KeyDown не происходит, а только Form_KeyUp - как вариант: Отлавливать на FORM1 только нажатие Энтера, а отжатие - игнорировать:

Код: Выделить всё

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        KeyCode = 0
        Exit Sub
    End If
Msgbox "Нажата клавиша с кодом " & KeyCode
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        MsgBox "Нажат Энтер"
    End If
End Sub

Private Sub Form_Load()
    Me.Show
    Form2.Show vbModal, Me
End Sub