2002ASP VB function enhancement #876

A KeyCode to Strings Converter

★★★★★

4.8 · التحميلات: 2,341

It is a function that converts keycodes [probably used in ???_KeyDown events], to strings like "Ctrl", "Alt", "F", "/", which are recognizable to the end-user. Great for game programmers who have a key configuration form!

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر

Public Function KeyStr(KeyCode As Integer) As String
 'Copyright Alexander Chia Yan Sheng
 Select Case KeyCode
  Case 65 To 90
   KeyStr = Chr(KeyCode)
  Case 48 To 57
   KeyStr = Chr(KeyCode)
  Case 13
   KeyStr = "Enter"
  Case 9
   KeyStr = "Tab"
  Case 112 To 123
   KeyStr = "F" & LTrim(Str(KeyCode - 111))
  Case 27
   KeyStr = "Esc"
  Case 192
   KeyStr = "~"
  Case 187
   KeyStr = "="
  Case 189
   KeyStr = "-"
  Case 219
   KeyStr = "["
  Case 220
   KeyStr = "\"
  Case 221
   KeyStr = "]"
  Case 186
   KeyStr = ";"
  Case 222
   KeyStr = "'"
  Case 188
   KeyStr = ","
  Case 190
   KeyStr = "."
  Case 191
   KeyStr = "/"
  Case 16
   KeyStr = "Shift"
  Case 20
   KeyStr = "Caps Lock"
  Case 144
   KeyStr = "Num Lock"
  Case 145
   KeyStr = "Scr Lock"
  Case 17
   KeyStr = "Ctrl"
  Case 18
   KeyStr = "Alt"
  Case 32
   KeyStr = "Space"
  Case 45
   KeyStr = "Ins"
  Case 46
   KeyStr = "Del"
  Case 33
   KeyStr = "Pg Up"
  Case 34
   KeyStr = "Pg Dn"
  Case 8
   KeyStr = "Back"
  Case 36
   KeyStr = "Home"
  Case 35
   KeyStr = "End"
  Case 37
   KeyStr = "Left Arrow"
  Case 38
   KeyStr = "Up Arrow"
  Case 39
   KeyStr = "Right Arrow"
  Case 40
   KeyStr = "Down Arrow"
  Case 106
   KeyStr = "* [Num Pad]"
  Case 107
   KeyStr = "+ [Num Pad]"
  Case 111
   KeyStr = "/ [Num Pad]"
  Case 109
   KeyStr = "- [Num Pad]"
  Case Else
   KeyStr = "!"
 End Select
End Function

التعليقات الأصلية (3)

مسترجع من Wayback Machine