Restored from previous forum. Originally posted by PB.
Code: Select all
; GetKeyName() procedure by PB -- do what you want with it. :)
; Returns the name of a key, given its ASCII value, for the current locale.
; Usage: name$=GetKeyName(ascii) ; ascii = Ascii code of desired key.
;
Procedure.s GetKeyName(ascii)
name$=Space(255) ; Prepare string to hold name of the desired key.
GetKeyNameText_(MapVirtualKey_(ascii,0)*$10000,name$,255) ; Get key name.
ProcedureReturn name$
EndProcedure
;
Debug GetKeyName(#VK_END)
Debug GetKeyName(#VK_HOME)
Debug GetKeyName(#VK_SHIFT)
Debug GetKeyName(#VK_ESCAPE)
Debug GetKeyName(9) ; 9 = Tab key.
Debug GetKeyName(13) ; 13 = Enter key.
PB - Registered PureBasic Coder
Edited by - PB on 01 July 2002 12:11:49