события текстбокса после SendKeys

[Space]

Почему после SendKeys Text1_KeyDown не вызывается для "АЯ", а Text1_KeyPress вызывается?

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

Private Sub Form_Load()
Dim s As String
    s = "09azАЯ"
    SendKeys s
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode;

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Debug.Print Chr(KeyAscii);

End Sub

[Antonariy]

Потому что в Text1_KeyDown приходит код клавиши, а не код символа. Исторически сложилось, что коды символов английского алфавита соответствуют кодам клавиш, на которых нарисованы. Отдельных русских клавиш в проекте не было.

[Space]

если подставить строку s = "09azAZаяАЯ", то получим в Immediate: 48 0 57 9 65 a 90 z 16 65 A 16 90 ZаяАЯ
Откуда для заглавных английских берётся код =16? Я так понимаю, это управляющий символ, означающий верхний регистр клавы. Почему это для русских букв нет кода? Код есть при нажатии 'русских' клавиш, например, для "Ф" должен посылаться код "A", просто SendKeys в VB не может сопоставлять коды русских символов с кодовой таблицей клавиатуры или что-то в этом роде (она просто игнорирует символы, чей ASCII>128).

[tyomitch]

Узри в Object Browser модуль KeyCodeConstants

[Antonariy]

Откуда для заглавных английских берётся код =16? Я так понимаю, это управляющий символ, означающий верхний регистр клавы.

Нет, это код одной из клавиш shift.

Почему это для русских букв нет кода?

Сделай себе плакат "Буквы и кнопки — не одно и то же", пусть повисит пару дней. Кнопки не являются "русскими" или "английскими".

Код есть при нажатии 'русских' клавиш, например, для "Ф" должен посылаться код "A",

Не должен.

просто SendKeys в VB не может сопоставлять коды русских символов с кодовой таблицей клавиатуры

Он не имеет ни малейшего понятия о кодовых таблицах. Он имеет понятие только о кнопках.

(она просто игнорирует символы, чей ASCII>128).

Еще бы. Пересчитай кнопки на клавиатуре.