VBA, MS Access MS Access в примерах

Обработка нажатия клавиш в контроле формы

Private Sub txtUnderLine_KeyDown(KeyCode As Integer, Shift As Integer)
'es - 07.08.2019
'Обработка нажатия клавиш в контроле формы (тут [TAB] и [ENTER])
'----------------------------------------------------------------е!
'[Shift] - пока не обрабатываем - сработает при любом сочетании ...
'----------------------------------------------------------------е!
On Error GoTo txtUnderLine_KeyDown_ERR
    
    Select Case KeyCode
        'Тут подумать - [TAB] можно использовать как то ... (пока никак)
        Case vbKeyTab       ' нажата клавиша: [TAB]
        Case vbKeyReturn    ' нажата клавиша: [ENTER]
            KeyCode = 0 'Экранируем реакцию формы на нажатие! (отменяем)
            'Дейстаия по нажатию:
            ...  
    End Select
    Exit Sub

txtUnderLine_KeyDown_ERR:
    'KeyCode = 0 ' Не обязвтельно - пусть будет пока
    Err.Clear
    Exit Sub

End Sub
Назад ToTop
L.E. 07.08.2019
Рейтинг@Mail.ru