меню
Новости
Основы VB
DirectX & VB
Основы Dx
Direct3D
DirectDraw
DirectInput
DirectSound
DirectMusic
DirectPlay
Others
Графика с Dx
Разное
Разные статьи
Download
Магазин
Ссылки
Помощь
Урок 1: Работа с клавиатурой
Function KeyNames(iNum As Integer) As String
aKeys(DIK_ESCAPE) = "ESCAPE"
aKeys(DIK_1) = "1": aKeys(DIK_2) = "2" : aKeys(DIK_3) = "3"
aKeys(DIK_4) = "4": aKeys(DIK_5) = "5": aKeys(DIK_6) = "6"
aKeys(DIK_7) = "7": aKeys(DIK_8) = "8": aKeys(DIK_9) = "9"
aKeys(DIK_0) = "0"
aKeys(DIK_MINUS) = "-"
' - на главной клавиатуре
aKeys(DIK_EQUALS) = "="
aKeys(DIK_BACK) = "Backspace"
aKeys(DIK_TAB) = "TAB"
aKeys(DIK_Q) = "Q": aKeys(DIK_W) = "W": aKeys(DIK_E) = "E"
aKeys(DIK_R) = "R": aKeys(DIK_T) = "T": aKeys(DIK_Y) = "Y"
aKeys(DIK_U) = "U": aKeys(DIK_I) = "I": aKeys(DIK_O) = "O"
aKeys(DIK_P) = "P"
aKeys(DIK_LBRACKET) = "BRACKET"
'Левый
aKeys(DIK_RBRACKET) = "BRACKET"
'Правый
aKeys(DIK_RETURN) = "Enter"
' На главной клавиатуре
aKeys(DIK_LCONTROL) = "CTRL"
'Левый
aKeys(DIK_A) = "A": aKeys(DIK_S) = "S": aKeys(DIK_D) = "D"
aKeys(DIK_F) = "F": aKeys(DIK_G) = "G": aKeys(DIK_H) = "H"
aKeys(DIK_J) = "J": aKeys(DIK_K) = "K": aKeys(DIK_L) = "L"
aKeys(DIK_SEMICOLON) = "SEMICOLON"
';
aKeys(DIK_APOSTROPHE) = "APOSTROPHE"
' '
aKeys(DIK_GRAVE) = "GRAVE"
'`
aKeys(DIK_LSHIFT) = "SHIFT"
'левый
aKeys(DIK_BACKSLASH) = "BACKSLASH"
'\
aKeys(DIK_Z) = "Z": aKeys(DIK_X) = "X": aKeys(DIK_C) = "C"
aKeys(DIK_V) = "V": aKeys(DIK_B) = "B": aKeys(DIK_N) = "N"
aKeys(DIK_M) = "M"
aKeys(DIK_COMMA) = "COMMA"
aKeys(DIK_PERIOD) = "PERIOD"
'На главной клавиатуре
aKeys(DIK_SLASH) = "SLASH"
'На главной клавиатуре
aKeys(DIK_RSHIFT) = "SHIFT"
'Правый
aKeys(DIK_MULTIPLY) = "MULTIPLY"
' * на цифр. клавиатуре
aKeys(DIK_LMENU) = "Alt"
' Левый
aKeys(DIK_SPACE) = "SPACE"
aKeys(DIK_CAPITAL) = "CAPITAL"
' Caps Lock
aKeys(DIK_F1) = "F1": aKeys(DIK_F2) = "F2": aKeys(DIK_F3) = "F3"
aKeys(DIK_F4) = "F4": aKeys(DIK_F5) = "F5": aKeys(DIK_F6) = "F6"
aKeys(DIK_F7) = "F7": aKeys(DIK_F8) = "F8": aKeys(DIK_F9) = "F9"
aKeys(DIK_F10) = "F10"
aKeys(DIK_NUMLOCK) = "NUMLOCK"
aKeys(DIK_SCROLL) = "SCROLL"
' Scroll Lock
aKeys(DIK_NUMPAD7) = "NUMPAD7"
aKeys(DIK_NUMPAD8) = "NUMPAD8"
aKeys(DIK_NUMPAD9) = "NUMPAD9"
aKeys(DIK_SUBTRACT) = "SUBTRACT"
' - На цифр. клавиатуре
aKeys(DIK_NUMPAD4) = "NUMPAD4"
aKeys(DIK_NUMPAD5) = "NUMPAD5"
aKeys(DIK_NUMPAD6) = "NUMPAD6"
aKeys(DIK_ADD) = "ADD"
' + На цифр. клавиатуре
aKeys(DIK_NUMPAD1) = "NUMPAD1"
aKeys(DIK_NUMPAD2) = "NUMPAD2"
aKeys(DIK_NUMPAD3) = "NUMPAD3"
aKeys(DIK_NUMPAD0) = "NUMPAD0"
aKeys(DIK_DECIMAL) = "DECIMAL"
' . На цифр. клавиатуре
aKeys(DIK_OEM_102) = "DIK_OEM_102"
' < > | на UK/Германской клавитуре
aKeys(DIK_F11) = "F11": aKeys(DIK_F12) = "F12"
aKeys(DIK_F13) = "F13"
'на (NEC PC98)
aKeys(DIK_F14) = "F14"
'на (NEC PC98)
aKeys(DIK_F15) = "F15"
'на (NEC PC98)
aKeys(DIK_KANA) = "KANA"
'на Японской клавиатуре
aKeys(DIK_ABNT_C1) = "ABNT_C1"
' ? на Португальской(Бразильской) клавиатуре
aKeys(DIK_CONVERT) = "CONVERT"
'на Японской клавиатуре
aKeys(DIK_NOCONVERT) = "NOCONVERT"
'на Японской клавиатуре
aKeys(DIK_YEN) = "YEN"
'на Японской клавиатуре
aKeys(DIK_ABNT_C2) = "DIK_ABNT_C2"
' . на Португальской(Бразильской) цифр. клавиатуре
aKeys(DIK_NUMPADEQUALS) = "="
'на цифр. клавиатуре (NEC PC98)
aKeys(DIK_PREVTRACK) = "PREVTRACK"
' на Previous Track (DIK_CIRCUMFLEX на Японской клавиатуре)
aKeys(DIK_AT) = "AT"
'на (NEC PC98)
aKeys(DIK_COLON) = "COLON"
' на (NEC PC98)
aKeys(DIK_UNDERLINE) = "UNDERLINE"
' на (NEC PC98)
aKeys(DIK_KANJI) = "KANJI"
'на Японской клавиатуре
aKeys(DIK_STOP) = "STOP"
' на (NEC PC98)
aKeys(DIK_AX) = "AX"
' (Japan AX)
aKeys(DIK_UNLABELED) = "UNLABELED"
' (J3100)
aKeys(DIK_NEXTTRACK) = "NEXTTRACK"
' Next Track
aKeys(DIK_NUMPADENTER) = "ENTER"
' Enter на цифр. клавиатуре
aKeys(DIK_RCONTROL) = "Ctrl"
'ПРАВЫЙ
aKeys(DIK_MUTE) = "MUТЕ"
' Звук(вкл/выкл)
aKeys(DIK_CALCULATOR) = "Калькулятор"
aKeys(DIK_PLAYPAUSE) = "PLAY/PAUSE"
' Play / Пауза
aKeys(DIK_MEDIASTOP) = "MEDIA STOP"
' Media Стоп
aKeys(DIK_VOLUMEDOWN) = "VOLUME -"
' Звук -
aKeys(DIK_VOLUMEUP) = "VOLUME +"
' Звук +
aKeys(DIK_WEBHOME) = "Домой"
'Web
aKeys(DIK_NUMPADCOMMA) = ","
' на цифр. клавиатуре (NEC PC98)
aKeys(DIK_DIVIDE) = "DIVIDE"
' / на цифр. клавиатуре
aKeys(DIK_SYSRQ) = "SYSRQ"
aKeys(DIK_RMENU) = "Alt"
' Right
aKeys(DIK_PAUSE) = "PAUSE"
' Pause
aKeys(DIK_HOME) = "HOME"
' Home на вспом. клавиатуре
aKeys(DIK_UP) = "UP"
' UpArrow на вспом. клавиатуре
aKeys(DIK_PRIOR) = "PRIOR"
' PgUp на вспом. клавиатуре
aKeys(DIK_LEFT) = "LEFT"
' LeftArrow на вспом. клавиатуре
aKeys(DIK_RIGHT) = "RIGHT"
' RightArrow на вспом. клавиатуре
aKeys(DIK_END) = "END"
' End на вспом. клавиатуре
aKeys(DIK_DOWN) = "DOWN"
' DownArrow на вспом. клавиатуре
aKeys(DIK_NEXT) = "NEXT"
' PgDn на вспом. клавиатуре
aKeys(DIK_INSERT) = "INSERT"
' Insert на вспом. клавиатуре
aKeys(DIK_DELETE) = "DELETE"
' Delete на вспом. клавиатуре
aKeys(DIK_LWIN) = "WINDOWS"
' Левая клавиша
aKeys(DIK_RWIN) = "WINDOWS"
' Правая клавиша
aKeys(DIK_APPS) = "APPS"
' AppMenu key
aKeys(DIK_POWER) = "POWER"
' Выключение
aKeys(DIK_SLEEP) = "SLEEP"
' Спящий режим
aKeys(DIK_WAKE) = "WAKE"
' System Wake
aKeys(DIK_WEBSEARCH) = "Поиск"
' Web
aKeys(DIK_WEBFAVORITES) = "Избранное"
' Web
aKeys(DIK_WEBREFRESH) = "Обновить"
' Web
aKeys(DIK_WEBSTOP) = "Стоп"
' Web
aKeys(DIK_WEBFORWARD) = "Вперед"
' Web
aKeys(DIK_WEBBACK) = "Назад"
' Web
aKeys(DIK_MYCOMPUTER) = "Мой компьютер"
aKeys(DIK_MAIL) = "Mail"
aKeys(DIK_MEDIASELECTD) = "Media Select"
KeyNames = aKeys(iNum)
End Function
Назад
Содержание
Copyright © 2005 Visual Basic Programmes
Максим "Genius" Малыгин
Сайт создан в системе
uCoz
