Transform a KeyCode! to a StringTag(s): Powerscript


// returns a String corresponding to the KeyCode! received as
// argument (akc_key)

string ls_ret = ""
 
CHOOSE CASE akc_key
 CASE Key0!, KeyNumPad0!
  ls_ret ="0"
 CASE Key1!, KeyNumPad1!
  ls_ret ="1"
 CASE Key2!, KeyNumPad2!
  ls_ret ="2"
 CASE Key3!, KeyNumPad3!
  ls_ret ="3"
 CASE Key4!, KeyNumPad4!
  ls_ret ="4"
 CASE Key5!, KeyNumPad5!
  ls_ret ="5"
 CASE Key6!, KeyNumPad6!
  ls_ret ="6"
 CASE Key7!, KeyNumPad7!
  ls_ret ="7"
 CASE Key8!, KeyNumPad8!
  ls_ret ="8"
 CASE Key9!, KeyNumPad9!
  ls_ret ="9"
 CASE KeySpaceBar!
  ls_ret = " "
END CHOOSE
 
RETURN ls_ret

blog comments powered by Disqus