Метод Application.OnKey (Excel)

Выполняет указанную процедуру при нажатии определенного клавиши или комбинации ключей.

Синтаксис

выражения. OnKey (Клавиша, Процедура)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Ключ	Обязательный	String	Строка, указывающая клавишу, нажатую.
Процедура	Необязательный	Variant	Строка, указывающая имя необходимой процедуры. Если процедура «» (пустой текст), при нажатии клавиши ничего не происходит. Эта форма OnKey изменяет нормальный результат нажатия клавиш в Microsoft Excel.

Если процедура опущена, ключ возвращается к нормальному результату в Microsoft Excel, и все специальные назначения ключей, сделанные с помощью предыдущих методов OnKey, будут очищены.

Заметки

Аргумент Key может указать любой один ключ в сочетании с Alt, Ctrl или Shift или любым сочетанием этих ключей. Каждая клавиша представлена одним или несколькими символами, например a для символа «a» или для клавиши Enter.

Чтобы указать символы, которые не отображаются при нажатии соответствующего ключа (например: Ввод или вкладка), используйте коды, перечисленные в следующей таблице. Каждый код в таблице представляет одну клавишу на клавиатуре.

(тильда)

Ключ	Код
BACKSPACE	или
BREAK
CAPS LOCK
CLEAR
DELETE или DEL	или
СТРЕЛКА ВНИЗ
END
ВВОД (на цифровой клавиатуре)
ВВОД
ESC	< ESCAPE>или
HELP
HOME
INSERT
СТРЕЛКА ВЛЕВО
NUM LOCK
PAGE DOWN
PAGE UP
RETURN
СТРЕЛКА ВПРАВО
SCROLL LOCK
TAB
СТРЕЛКА ВВЕРХ
F1–F15	–

Вы также можете указать клавиши в сочетании с Shift and/or Ctrl and/or Alt and/or Command. Чтобы указать клавишу в сочетании с другой клавишей или клавишами, используйте следующую таблицу.

Объединение ключей с	Предварять код ключа
Shift	+ (знак «плюс»)
CTRL	^ (знак «крышка»)
ALT	% (знак процента)
Команда	* (звездочка) Применяется только к Mac; может работать только на Excel 2011 для Mac, а не более поздних версий.

Чтобы назначить процедуру одному из специальных символов (+, ^, %и т. д.), заключите символ в скобки. Подробные сведения см. в примере.

В настоящее время в последних версиях Office VBA нет способа обнаружения клавиши Command. Корпорация Майкрософт знает об этом и ищет ее.

Пример

В этом примере InsertProc назначает ключную последовательность Ctrl+Plus Sign и назначает SpecialPrintProc ключевой последовательности Shift+Ctrl+Right Arrow.

В этом примере стрелка Shift+Ctrl+Right возвращается к обычному значению.

В этом примере отключена последовательность ключей Shift+Ctrl+Right Arrow.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Коды цифр и знаков

www.rascalspb.narod.ru
Профиль | | #2

Добавлено: 25.12.03 11:59

Создай три Label, у первых двух Autosize=True и вставь этот код

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Label1.Caption = «KeyCode=» & KeyCode

Private Sub Form_KeyPress(KeyAscii As Integer)

Label2.Caption = «Ascii=» & KeyAscii

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Ещё поставь KeyPreview=True, а теперь нажимай и смотри.

Ответить

Номер ответа: 3 Автор ответа: . C O M Вопросов: 4 Ответов: 79	Профиль | | #3	Добавлено: 25.12.03 12:02
	хм. не влезло. Ответить

А разве нельзя так сделать?

Добавляешь на форму Label1 и TextBox, далее код:Private Sub

Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Ответить

Номер ответа: 4 Автор ответа: Монах Вопросов: 26 Ответов: 35	Профиль | | #4	Добавлено: 25.12.03 18:54

to Монах: Во первых-на кой тут нужен TextBox

Во вторых-на всякий пожарный там видно и ASCII кодировку

А в третьих-мы не ищем простых путей

Ответить

Номер ответа: 5 Автор ответа: Ra$cal Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль | | #5	Добавлено: 25.12.03 20:33

to Ra$cal: Я тебе просто написал как сделать прогу, которая легко узнаёт коды клавишь!

Ответить

Номер ответа: 6 Автор ответа: Монах Вопросов: 26 Ответов: 35	Профиль | | #6	Добавлено: 25.12.03 20:42

to Монах: По-моему моя тоже легко узнаёт и KeyCode и ASCII. И вообще прога не мне нужна

Источник

Коды клавиш клавиатуры vba

Иногда необходимо, чтобы ввод с клавиатуры обрабатывался именно формой, даже если фокус находится у элемента управления. Сделать это позволяет свойство формы « KeyPreview ». При создании формы это значение принимается равным « False ». Если же его установить равным « True », то форма будет перехватывать весь ввод с клавиатуры, с которым теперь можно работать в процедурах обработки событий самой формы. И только после этого будет передано управление элементу управления, находящемуся в фокусе.

12.2. Обработка событий мыши

Когда вы что-нибудь делаете с помощью мыши, генерируется определенное событие. При щелчке мышью происходит событие « Click », при двойном щелчке – « DblClick », а в момент перемещения указателя – « Move ». Где и когда произойдет определенное событие, зависит от положения указателя мыши. Иногда одно действие производит несколько событий.

Событие « Click » характерно практически для всех объектов и процедура обработки этого события имеет следующий синтаксис:

Private Sub Name_Click()

· Private – область действия процедуры обработки события;

· Name – имя элемента управления, которому адресовано событие;

· Click – имя события.

Аналогично можно запрограммировать событие « DblClick », указав это слово в заголовке процедуры вместо « Click ».

Эти два события связаны только со щелчками левой клавишей мыши, правая и средняя в этом случае будут игнорироваться.

При щелчках мыши происходят и другие события: « MouseDown » (нажатие клавиши), « MouseUp » (отпускание клавиши). Процедуры их обработки имеют следующий синтаксис:

Shift As Integer, X As Single, Y As Single)

Private Sub Name_MouseUp(Button As Integer,_

Shift As Integer, X As Single, Y As Single)

· Private – область видимости события.

· Name – имя элемента управления, которому адресовано событие.

· MouseDown / MouseUp – имена обрабатываемых событий.

· Button – целое число, указывающее нажатую клавишу мыши (см. табл. 28).

· Shift – целое число, описывающее состояние клавиш Shift >, Ctrl > и Alt > на клавиатуре в момент генерирования события (см табл. 27).

· X – координата указателя мыши по горизонтали.

· Y – координата указателя мыши по вертикали.

Значение, соответствующее комбинациям нажатых кнопок мыши

Нажатая кнопка (кнопки) мыши

Значение параметра « Button »

Процедуры обработки события « MouseDown » и « MouseUp » являются более сложными и обладающие расширенными возможностями по сравнению с процедурами событий « Click » и « DblClick ».

Выполнение процедур обработки событий « MouseDown » и « MouseUp » нельзя запрограммировать на конкретную клавишу мыши, но можно узнать какой клавишей она была запущена.

При перемещении указателя мыши генерируется событие « MouseMove », имеющее следующий синтаксис:

Private Sub Name_MouseMove(Button As Integer,_

Shift As Integer, X As Single, Y As Single)

· Private – область видимости события.

· Name – имя элемента управления, которому адресовано событие.

· MouseMove – имя обрабатываемого события.

· Button – целое число, указывающее нажатую клавишу мыши (см. табл. 14).

· Shift – целое число, описывающее состояние клавиш Shift >, Ctrl > и Alt > на клавиатуре в момент генерирования события (см табл. 13).

· X – координата указателя мыши по горизонтали.

· Y – координата указателя мыши по вертикали.

При этом перемещение должно быть обязательно над элементом управления, для которого была написана процедура обработки события.

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

Visual Basic имеет два серьезных недостатка при обработке событий мыши:

12.3. Перемещение объектов

Иногда может возникнуть необходимость предоставить пользователю возможность перемещения объектов по форме. Это можно сделать, непосредственно изменяя свойства « Left » и « Top » у перемещаемых объектов. Однако это можно реализовать более гибким и удобным способом, используя события «схватить и бросить». Хотя это событие и реализуется для формы в целом, но осуществляется с помощью мыши.

Любой видимый элемент управления обладает особым свойством « DragMode ». При его значении «0 – Manual » перемещение объекта запрещается, и он работает обычным образом. В случае его значения «1 – Automatic » перемещение разрешается, но прочая его работа (все остальные события) блокируется.

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

Private Sub Form_DragDrop(Source As Control,_

X As Single, Y As Single)

· Private – область видимости процедуры обработки события.

· Form – поскольку событие адресуется только форме, то в качестве имени управляющего объекта необходимо записывать слово « Form ».

· DragDrop – имя события.

· Source – особая переменная, в которой хранится имя перетаскиваемого элемента управления (свойство « Name »); работает как ссылка на него.

· Control – зарезервированное слово, описывающее переменную ссылку.

Текущие координаты « X » и « Y » будут присвоены свойствам « Left » и « Top » перемещаемого объекта соответственно, т.е. координатам левого верхнего угла элемента управления.

При перемещении иногда бывает важным узнать, возможно ли оно или нет. Отследить подобное помогает специальное событие « DragOver », процедура обработки которого имеет следующий синтаксис:

Private Sub Form_DragOver(Source As Control,_

X As Single, Y As Single, State As Integer)

· Private – область видимости процедуры обработки события.

· Form – поскольку событие адресуется только форме, то в качестве имени управляющего объекта необходимо записывать слово « Form ».

· DragOver – имя события.

· Source – особая переменная, в которой хранится имя перетаскиваемого элемента управления (свойство « Name »); работает как ссылка на него.

· Control – зарезервированное слово, описывающее переменную ссылку.

· State – специальный параметр, определяющий характер перемещения.

Параметр « State » может принимать несколько значений в зависимости от характера перемещения (см. табл. 29).

Возможные значения параметра « State »

Перетаскивание элемента управления с несвободного места на свободное

Перетаскивание элемента управления со свободного места на занятое

Перетаскивание элемента управления с одного свободного места на другое свободное

Еще одним полезным свойством перетаскиваемого элемента управления является « DragIcon ». Оно хранит в себе некоторый графический образ (файл пиктограммы «*. ico »), который будет отображаться при перемещении объекта вместо указателя мыши. В противном случае на экране просто будет отображен профиль этого объекта.

Контрольные вопросы для самопроверки

Источник

Всем привет, с вами автор блога scriptcoding.ru. Сегодня мы затронем такую тему как имитация нажатия клавиш программными средствами с помощью метода SendKeys класса WScript.Shell.

SendKeys – имитация нажатия клавиш – теоретические основы

Метод SendKeys, который позволяет имитировать нажатие клавиш и их комбинаций. Метод SendKeys объекта WScript.Shell является по своей природе слепым, так как он не позволяет указать то приложение, которому назначен ввод с клавиатуры, то есть, если мы сделаем попытку имитировать ввод фразы «привет мир», то она будет обрабатываться лишь тому приложениею, которое в данный момент являются активным. Если активным будет текстовый редактор – то в нем отобразится заданный текст, если антивирусная программа – то, скорее всего, никакой активности не произойдет.

Что бы использовать функцию Wscript SendKeys, нужно объявить переменную, которая будет хранить ссылку на объект WScript.Shell, а уже через эту переменную можно будет вызвать SendKeys.

Общая логика работы:

SendKeys (строка) – Видим, что мы в качестве аргумента должны передать строковое выражение, которое будет хранить имя клавиши или сочетание.

Что бы ввести просто символ или набор символов, мы всего-навсего прописываем их как строку, например: SendKeys(«привет мир»). Для ввода специальных клавиш (например, Enter, стрелки, функциональные клавиши и так далее), их название нужно заключить в фигурные скобки <>.

Ниже приведен список функциональных клавиш и их обозначение:

Если нужно указать сочетание специальных клавиш, то следует использовать следующие коды:

Также стоит помнить, что для ввода символов +, ^, %,

SendKeys – имитация нажатия клавиш – приступаем к программированию

Хорошо, с теорией разобрались, теперь давайте приступим к программированию. Давайте для начала рассмотрим следующий пример программного кода на языке vbscript:

А вот аналогичный пример, но уже на языке jscript:

А вот еще один пример на vbscript :

Ну и пример на языке jscript :

И так, давайте все подытожим… В этой статье мы рассмотрели функцию SendKeys класса WScript Shell, которая позволяет создавать имитацию нажатия клавиш, мы написали четыре программных кода – два на языке vbscript и два на языке jscript. Помним, что программный код работает под управлением сервера сценариев Windows Script Host.

Спасибо за внимание. Автор блога Владимир Баталий

Источник

Коды клавиш клавиатуры vba

ASCII таблица и
Virtual KeyCodes

ASCII таблица кодов символов Windows (win.1251):

Номер ответа: 7 Автор ответа: Ra$cal Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль | | #7	Добавлено: 25.12.03 21:03

Dec Hex Символ 000 00 спец. NOP 001 01 спец. SOH 002 02 спец. STX 003 03 спец. ETX 004 04 спец. EOT 005 05 спец. ENQ 006 06 спец. ACK 007 07 спец. BEL 008 08 спец. BS 009 09 спец. Табуляция 010 0A спец. LF (Возвр. каретки) 011 0B спец. VT 012 0C спец. FF 013 0D спец. CR (Новая строка) 014 0E спец. SO 015 0F спец. SI 016 10 спец. DLE 017 11 спец. DC1 018 12 спец. DC2 019 13 спец. DC3 020 14 спец. DC4 021 15 спец. NAK 022 16 спец. SYN 023 17 спец. ETB 024 18 спец. CAN 025 19 спец. EM 026 1A спец. SUB 027 1B спец. ESC 028 1C спец. FS 029 1D спец. GS 030 1E спец. RS 031 1F спец. US 032 20 сцеп. SP (Пробел) 033 21 ! 034 22 « 035 23 # 036 24 $ 037 25 % 038 26 & 039 27 ‘ 040 28 ( 041 29 ) 042 2A * 043 2B + 044 2C , 045 2D — 046 2E . 047 2F / 048 30 0 049 31 1 050 32 2 051 33 3 052 34 4 053 35 5 054 36 6 055 37 7 056 38 8 057 39 9 058 3A : 059 3B ; 060 3C 063 3F ? 064 40 @ 065 41 A 066 42 B 067 43 C 068 44 D 069 45 E 070 46 F 071 47 G 072 48 H 073 49 I 074 4A J 075 4B K 076 4C L 077 4D M 078 4E N 079 4F O 080 50 P 081 51 Q 082 52 R 083 53 S 084 54 T 085 55 U 086 56 V 087 57 W 088 58 X 089 59 Y 090 5A Z 091 5B [ 092 5C \ 093 5D ] 094 5E ^ 095 5F _ 096 60 ` 097 61 a 098 62 b 099 63 c 100 64 d 101 65 e 102 66 f 103 67 g 104 68 h 105 69 i 106 6A j 107 6B k 108 6C l 109 6D m 110 6E n 111 6F o 112 70 p 113 71 q 114 72 r 115 73 s 116 74 t 117 75 u 118 76 v 119 77 w 120 78 x 121 79 y 122 7A z 123 7B < 124 7C | 125 7D > 126 7E 127 7F 

Dec Hex Символ 128 80 Ђ 129 81 Ѓ 130 82 ‚ 131 83 ѓ 132 84 „ 133 85 … 134 86 † 135 87 ‡ 136 88 € 137 89 ‰ 138 8A Љ 139 8B ‹ 140 8C Њ 141 8D Ќ 142 8E Ћ 143 8F Џ 144 90 ђ 145 91 ‘ 146 92 ’ 147 93 “ 148 94 ” 149 95 • 150 96 – 151 97 — 152 98 ˜ 153 99 ™ 154 9A љ 155 9B › 156 9C њ 157 9D ќ 158 9E ћ 159 9F џ 160 A0 161 A1 Ў 162 A2 ў 163 A3 Ј 164 A4 ¤ 165 A5 Ґ 166 A6 ¦ 167 A7 § 168 A8 Ё 169 A9 © 170 AA Є 171 AB « 172 AC ¬ 173 AD ­ 174 AE ® 175 AF Ї 176 B0 ° 177 B1 ± 178 B2 І 179 B3 і 180 B4 ґ 181 B5 µ 182 B6 ¶ 183 B7 · 184 B8 ё 185 B9 № 186 BA є 187 BB » 188 BC ј 189 BD Ѕ 190 BE ѕ 191 BF ї 192 C0 А 193 C1 Б 194 C2 В 195 C3 Г 196 C4 Д 197 C5 Е 198 C6 Ж 199 C7 З 200 C8 И 201 C9 Й 202 CA К 203 CB Л 204 CC М 205 CD Н 206 CE О 207 CF П 208 D0 Р 209 D1 С 210 D2 Т 211 D3 У 212 D4 Ф 213 D5 Х 214 D6 Ц 215 D7 Ч 216 D8 Ш 217 D9 Щ 218 DA Ъ 219 DB Ы 220 DC Ь 221 DD Э 222 DE Ю 223 DF Я 224 E0 а 225 E1 б 226 E2 в 227 E3 г 228 E4 д 229 E5 е 230 E6 ж 231 E7 з 232 E8 и 233 E9 й 234 EA к 235 EB л 236 EC м 237 ED н 238 EE о 239 EF п 240 F0 р 241 F1 с 242 F2 т 243 F3 у 244 F4 ф 245 F5 х 246 F6 ц 247 F7 ч 248 F8 ш 249 F9 щ 250 FA ъ 251 FB ы 252 FC ь 253 FD э 254 FE ю 255 FF я

Таблица вмртуальных кодов клавиш Windows (Virtual Key Codes):

VK_LBUTTON01Left mouse buttonVK_RBUTTON02Right mouse buttonVK_CANCEL03Control-break processingVK_MBUTTON04Middle mouse button
(three-button mouse)—05-07UndefinedVK_BACK08BACKSPACE keyVK_TAB09TAB key—0A-0BUndefinedVK_CLEAR0CCLEAR keyVK_RETURN0DENTER key—0E-0FUndefinedVK_SHIFT10SHIFT keyVK_CONTROL11CTRL keyVK_MENU12ALT keyVK_PAUSE13PAUSE keyVK_CAPITAL14CAPS LOCK key—15-19Reserved for Kanji systems—1AUndefinedVK_ESCAPE1BESC key—1C-1FReserved for Kanji systemsVK_SPACE20SPACEBARVK_PRIOR21PAGE UP keyVK_NEXT22PAGE DOWN keyVK_END23END keyVK_HOME24HOME keyVK_LEFT25LEFT ARROW keyVK_UP26UP ARROW keyVK_RIGHT27RIGHT ARROW keyVK_DOWN28DOWN ARROW keyVK_SELECT29SELECT key—2AOriginal equipment
manufacturer (OEM) specificVK_EXECUTE2BEXECUTE keyVK_SNAPSHOT2CPRINT SCREEN key
for Windows 3.0 and laterVK_INSERT2DINS keyVK_DELETE2EDEL keyVK_HELP2FHELP keyVK_0300 keyVK_1311 keyVK_2322 keyVK_3333 keyVK_4344 keyVK_5355 keyVK_6366 keyVK_7377 keyVK_8388 keyVK_9399 key—3A-40UndefinedVK_A41A keyVK_B42B keyVK_C43C keyVK_D44D keyVK_E45E keyVK_F46F keyVK_G47G keyVK_H48H keyVK_I49I keyVK_J4AJ keyVK_K4BK keyVK_L4CL keyVK_M4DM keyVK_N4EN keyVK_O4FO keyVK_P50P keyVK_Q51Q keyVK_R52R keyVK_S53S keyVK_T54T keyVK_U55U keyVK_V56V keyVK_W57W keyVK_X58X keyVK_Y59Y keyVK_Z5AZ keyVK_LWIN5BLeft Windows key
(Microsoft Natural Keyboard)VK_RWIN5CRight Windows key
(Microsoft Natural Keyboard)VK_APPS5DApplications key
(Microsoft Natural Keyboard)—5E-5FUndefinedVK_NUMPAD060Numeric keypad 0 keyVK_NUMPAD161Numeric keypad 1 keyVK_NUMPAD262Numeric keypad 2 keyVK_NUMPAD363Numeric keypad 3 keyVK_NUMPAD464Numeric keypad 4 keyVK_NUMPAD565Numeric keypad 5 keyVK_NUMPAD666Numeric keypad 6 keyVK_NUMPAD767Numeric keypad 7 keyVK_NUMPAD868Numeric keypad 8 keyVK_NUMPAD969Numeric keypad 9 keyVK_MULTIPLY6AMultiply keyVK_ADD6BAdd keyVK_SEPARATOR6CSeparator keyVK_SUBTRACT6DSubtract keyVK_DECIMAL6EDecimal keyVK_DIVIDE6FDivide keyVK_F170F1 keyVK_F271F2 keyVK_F372F3 keyVK_F473F4 keyVK_F574F5 keyVK_F675F6 keyVK_F776F7 keyVK_F877F8 keyVK_F978F9 keyVK_F1079F10 keyVK_F117AF11 keyVK_F127BF12 keyVK_F137CF13 keyVK_F147DF14 keyVK_F157EF15 keyVK_F167FF16 keyVK_F1780HF17 keyVK_F1881HF18 keyVK_F1982HF19 keyVK_F2083HF20 keyVK_F2184HF21 keyVK_F2285HF22 keyVK_F2386HF23 keyVK_F2487HF24 key—88-8FUnassignedVK_NUMLOCK90NUM LOCK keyVK_SCROLL91SCROLL LOCK key—92-B9Unassigned—BA-C0OEM specific—C1-DAUnassigned—DB-E4OEM specific—E5Unassigned—E6OEM specific—E7-E8Unassigned—E9-F5OEM specificVK_ATTNF6Attn keyVK_CRSELF7CrSel keyVK_EXSELF8ExSel keyVK_EREOFF9Erase EOF keyVK_PLAYFAPlay keyVK_ZOOMFBZoom keyVK_NONAMEFCReserved for future use.VK_PA1FDPA1 keyVK_OEM_CLEARFEClear key

На главную страничку учебника Visual Basic

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

Источник