Интересное поведение контрола при передачи фокуса

[ZOD]

Ситуация такая: есть контрол, в котором вводятся цифры и еще куча других контролов на форме.
Задача: сделать так, чтобы при нажатии на цифровые клавиши в любом месте формы (фокус м.б. на любом элементе) фокус передавался в цифровой текстбокс и цифры вводились в него.
Все это сделано так: у формы ставим Keypreview в true, вылавливаем нажатие клавиш, переключаем фокус на текстбокс, SendKey-ем посылаем нажатие цифры. Загвоздка вот в чем: если быстро нажать, скажем, 4 затем 5, то 4 пропечатывается, а 5 нет. Если подождать с полсекунды и больше, то все ок. В чем м.б. загвоздка?

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

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode >= vbKey0 And KeyCode <= vbKey9 Then
        If Me.ActiveControl.Name <> "txtComments" And Me.ActiveControl.Name <> "txtNumber" Then
            txtNumber.SetFocus
            Call SendKeys(Chr$(KeyCode))
        End If
    End If
End Sub



[alibek]

...
.SetFocus
SendKeys ..., True
KeyCode = 0
...

Попробуй так.

[ZOD]

Все равно не работает
Странно как-то. Обработки после изменения значения практически не выполняется, задержек и "потерь нажатий" быть не должно.

[Хакер]

Ты хочешь странного: чтобы программа работала вопреки правилам и концепциям Windows, но работала правильно. Такое редко бывает.

[ZOD]

Почему же она работает вопреки концепциям Windows?

[Денис]

Почему же она работает вопреки концепциям Windows?

Мне так кажется, что под концепцией понимается сама концепция фокуса и перехода между контролами с его помощью. Парадигма автоматического перескакивания фокуса при активизации числового ввода с клавиатуры не вписывается в эту концепцию.
Рекомендуется пересмотреть дизайн программы таким образом, чтобы при включении режима ввода чисел фокус устанавливался в первое (левое-верхнее) поле ввода и перемещался при помощи клавиши Tab (закрытие режима по нажатию Клавиши Enter). Это надо вдолбить в головы юзеров, а не плясать под их дудку.

[Andrey Fedorov]

Ловим Form_KeyDown (KeyPreview должно быть включено) если нажата цифра и ActiveControl не цифровое поле то делаем KeyCode = 0, присваиваем цифру цифровому полю (типа МоеПоле.Text = 5), после чего передаем фокус этому цифровому полю...

[ZOD]

Andrey Fedorov
Абсолютно так сейчас все и работает Включая непонятный глючок.

[dr.MIG]

Абсолютно так сейчас все и работает Включая непонятный глючок.

Не абсолютно так. У тебя сейчас обрабатывается событие KeyUp, а тебе рекомендуют обрабатывать KeyDown, это приведёт к тому, что сразу после нажатия клавиши до её отпускания, фокус попадёт в цифровое поле и ввод следующей цифры не будет проигнорирован.