| Вопрос: KeyAscii выдает коды KeyCode | Добавлено: 15.08.11 12:26 |
Автор вопроса:  Эдик
|
|
Собственно вот код
Private Sub Form_Load() Form1.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = "KeyCode=" & KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Label2.Caption = "Ascii=" & KeyAscii Label3.Caption = Chr(KeyAscii) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" End Sub Ошибка в том что часто при нажатии прога показывает код KeyCode вместо код KeyAscii |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  @lex Вопросов: 14 Ответов: 262 |
Профиль | | #1 | Добавлено: 16.08.11 08:12 |
|
Ага. Например при нажатии циферок. Или пробела.
Наверное это... |
||
|
Номер ответа: 2 Автор ответа: Эдик Вопросов: 19 Ответов: 23 |
Профиль | | #2 | Добавлено: 16.08.11 12:00 |
| Да всё что нажимае | ||
|
Номер ответа: 3 Автор ответа: EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #3 | Добавлено: 16.08.11 14:47 |
| может вам следует уделить время и разобраться с порядком следований событий? | ||
Страница: 1 |