Программирование
Веб программирование

VB коды клавиш

 
 

В этом Шаге представленны коды основных клавиш клавы. Например, у CTRL вобще не определяется ASCII код. Вот он:(Начнем с верхушки клавы)

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(только англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

Ну вроде и все, а пользоваться ими также как и ASCII кодами:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then MsgBox "Нажат пробел" ' Если нажат пробел то выскакивает сообщение
End Sub

Есть вопросы? Спроси на нашем форуме!!
Джон [23.08.2010 13:26]

А как сделать чтобы эксель (макрос) тупо опустил курсор на строчку ниже?

Павел [11.01.2011 08:48]

Private Sub CommandButton1_Click()
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End Sub

Это если действие происходит в самом Экселе, а не из сторонней программы.

Павел [11.01.2011 08:50]

Строки не перенеслись, слились в одну.
Попробую исправить.

Private Sub CommandButton1_Click()

Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

End Sub


Это если действие происходит в самом Экселе, а не из сторонней программы.

123 [24.03.2011 15:37]

А можно их значения тупо и банально поменять?

Паша [01.10.2011 09:06]

здравствуйте ...помогите как создать программу ...совершит такую опирацию .. если вставишь флешку то это программа скопировать вся флеушку и всавить в диск с:

Азизулло [25.11.2011 17:39]

каод поиск по критерии в vb 6.
0

Федор [25.12.2011 12:20]

Не работает

Samou4120 [08.03.2013 19:35]

Федор, текстовое поле на форму кинь

Ivan40 [23.07.2013 21:44]

Только куда вот эти коды клавиш писать? Это нужно виртуальную клавиатуру делать на форме или тут как-то по-другому?

revolution10 [19.07.2014 20:22]

У меня такой вопрос: "Как сделать на событие KeyDown сочетание клавиш? Делал так:
Private Sub Text1KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command1
Click
End If
If KeyCode = vbKeyReturn & vbKeyShift Then
Text1.Text = Text1.Text & vbCrLf
End If
End Sub
Так же пытался две кнопки "склеить" через "+"
Заранее спасибо!

pbdorawka10 [25.09.2014 23:50]

Не обижайся, Ваше преосвященство, но твои мордераторы меня
реально достали. Придется их проучить...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.