код клавиш и их получение
Участников: 2
Страница 1 из 1
код клавиш и их получение
Я уже забыл. Раньше, в qbasic, как-то получал нажатия клавиш.
Мне нужно
стрелка влево,
стрелка в право,
shift + пробел.
Стрелки, кажеться было двойное chr(0) + "m" или "k", но я не помню.
Если с ходу не помните, то не парьтесь, я напишу прогу, которая будет отражать коды нажимаемых клавиш.
Но если таковая у вас есть, то киньте, пожалуйста!
Мне нужно
стрелка влево,
стрелка в право,
shift + пробел.
Стрелки, кажеться было двойное chr(0) + "m" или "k", но я не помню.
Если с ходу не помните, то не парьтесь, я напишу прогу, которая будет отражать коды нажимаемых клавиш.
Но если таковая у вас есть, то киньте, пожалуйста!
Re: код клавиш и их получение
Оп ля! А тут есть ещё GetKey. Я то обрадовался, что она может дать более удобный перехват нажатия
клавиш. Стрелочки работают, а вот shift+space нет.
клавиш. Стрелочки работают, а вот shift+space нет.
- Код:
dim k as integer
do
sleep
cls
k = getkey
print "total return: " & k
if ( k > 255 ) then
print "extendet code: " & ( k and &hff )
print "regular code: " & (k shr 8)
print "'" & chr( k shr 8 ) & "'"
else
print "regular code: " & (k)
print "'" & chr( k ) & "'"
end if
loop until k = 27
Re: код клавиш и их получение
Eric-S, используй лучше Multikey
Не буду переписывать хелп, так как там все написано.
Не буду переписывать хелп, так как там все написано.
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
|
|