Экономическая информатика-стр.408

Рассмотрим пример программы, которая содержит процедуру, обрабатывающую событие KeyPress. При этом выполняются такие действия:

•    в текстовое поле путем нажатия клавиши вводится символ;

•    введенный символ распознается и определяется значение кода ASCII;

•    в окно сообщений выдается числовое значение кода и введенный символ.

Для создания программы выполните следующие шаги:

1. Создайте новый проект с экранной формой, как на рис. 8.18.

Рис. 8.18. Экранная форма

2.    В процедуру обработки события KeyPress элемента управления Textl введите код:

Private Sub TextBox l_KeyPress(ByVal KeyAscii As_ MSForms.Returnlnteger)

' Объявление переменных Dim ChrPressed As String 'Для хранения введенного символа Dim AscNum As String' Для хранения кода ASCII Dim Msg As String' Для хранения строки сообщения 'Преобразование значения параметра в символ ChrPressed = Chr(Key Ascii)

'Преобразование числа в строку символов AscNum = CStr(KeyAscii)

'Формирование сообщения Msg = Msg & «ASCII код» & AscNum Msg = Msg & «,» & «символ:» & ChrPressed MsgBox Msg

End Sub

3.    В процедуру обработки сообщения Click элемента управления CommandButton 1 введите код:

Private Sub Command l_Click()

End

End Sub

4.    Запустите программу на выполнение. При нажатии алфавитно-цифровых клавиш в окне сообщения будет выдаваться информация о введенном символе и его коде (рис. 8.19).

Рис. 8.19. Сообщение о событии клавиатуры

Обработка событий KeyUp и KeyDown

Когда нажимается клавиша на клавиатуре, то для элемента управления, находящегося в фокусе, генерируется событие KeyDown, когда клавиша отпускается - событие KeyUp. Эти события связаны с клавишами клавиатуры, а не с введенным символом, как в событии KeyPress.