键代码

tan66980

怎么编辑框的内容（如：“A”）转为键代码（如：#A键）？

猥琐小胖子

调试输出 (取代码 (“A”, ))

小淡

1. .版本 2
   
2. 
   
3. .子程序 键盘_键名取键代码, 整数型, 公开, 取键名的键代码(返回键代码)
   
4. .参数 键名, 文本型, , 键名,如填:A键,将返回65的键代码
   
5. .局部变量 按键码, 整数型
   
6. 
   
7. .判断开始 (到小写 (键名) ＝ “win”)
   
8.     按键码 ＝ 91
   
9. .判断 (到小写 (键名) ＝ “ctrl”)
   
10.     按键码 ＝ #Ctrl键
    
11. .判断 (到小写 (键名) ＝ “shift”)
    
12.     按键码 ＝ #Shift键
    
13. .判断 (到小写 (键名) ＝ “alt”)
    
14.     按键码 ＝ #Alt键
    
15. .判断 (键名 ＝ “0键”)
    
16.     按键码 ＝ #键0
    
17. .判断 (键名 ＝ “1键”)
    
18.     按键码 ＝ #键1
    
19. .判断 (键名 ＝ “2键”)
    
20.     按键码 ＝ #键2
    
21. .判断 (键名 ＝ “3键”)
    
22.     按键码 ＝ #键3
    
23. .判断 (键名 ＝ “4键”)
    
24.     按键码 ＝ #键4
    
25. .判断 (键名 ＝ “5键”)
    
26.     按键码 ＝ #键5
    
27. .判断 (键名 ＝ “6键”)
    
28.     按键码 ＝ #键6
    
29. .判断 (键名 ＝ “7键”)
    
30.     按键码 ＝ #键7
    
31. .判断 (键名 ＝ “8键”)
    
32.     按键码 ＝ #键8
    
33. .判断 (键名 ＝ “9键”)
    
34.     按键码 ＝ #键9
    
35. .判断 (到大写 (键名) ＝ “A键”)
    
36.     按键码 ＝ #A键
    
37. .判断 (到大写 (键名) ＝ “B键”)
    
38.     按键码 ＝ #B键
    
39. .判断 (到大写 (键名) ＝ “C键”)
    
40.     按键码 ＝ #C键
    
41. .判断 (到大写 (键名) ＝ “D键”)
    
42.     按键码 ＝ #D键
    
43. .判断 (到大写 (键名) ＝ “E键”)
    
44.     按键码 ＝ #E键
    
45. .判断 (到大写 (键名) ＝ “F键”)
    
46.     按键码 ＝ #F键
    
47. .判断 (到大写 (键名) ＝ “G键”)
    
48.     按键码 ＝ #G键
    
49. .判断 (到大写 (键名) ＝ “H键”)
    
50.     按键码 ＝ #H键
    
51. .判断 (到大写 (键名) ＝ “I键”)
    
52.     按键码 ＝ #I键
    
53. .判断 (到大写 (键名) ＝ “J键”)
    
54.     按键码 ＝ #J键
    
55. .判断 (到大写 (键名) ＝ “K键”)
    
56.     按键码 ＝ #K键
    
57. .判断 (到大写 (键名) ＝ “L键”)
    
58.     按键码 ＝ #L键
    
59. .判断 (到大写 (键名) ＝ “M键”)
    
60.     按键码 ＝ #M键
    
61. .判断 (到大写 (键名) ＝ “N键”)
    
62.     按键码 ＝ #N键
    
63. .判断 (到大写 (键名) ＝ “O键”)
    
64.     按键码 ＝ #O键
    
65. .判断 (到大写 (键名) ＝ “P键”)
    
66.     按键码 ＝ #P键
    
67. .判断 (到大写 (键名) ＝ “Q键”)
    
68.     按键码 ＝ #Q键
    
69. .判断 (到大写 (键名) ＝ “R键”)
    
70.     按键码 ＝ #R键
    
71. .判断 (到大写 (键名) ＝ “S键”)
    
72.     按键码 ＝ #S键
    
73. .判断 (到大写 (键名) ＝ “T键”)
    
74.     按键码 ＝ #T键
    
75. .判断 (到大写 (键名) ＝ “U键”)
    
76.     按键码 ＝ #U键
    
77. .判断 (到大写 (键名) ＝ “V键”)
    
78.     按键码 ＝ #V键
    
79. .判断 (到大写 (键名) ＝ “W键”)
    
80.     按键码 ＝ #W键
    
81. .判断 (到大写 (键名) ＝ “X键”)
    
82.     按键码 ＝ #X键
    
83. .判断 (到大写 (键名) ＝ “Y键”)
    
84.     按键码 ＝ #Y键
    
85. .判断 (到大写 (键名) ＝ “Z键”)
    
86.     按键码 ＝ #Z键
    
87. .判断 (到大写 (键名) ＝ “F1键”)
    
88.     按键码 ＝ #F1键
    
89. .判断 (到大写 (键名) ＝ “F2键”)
    
90.     按键码 ＝ #F2键
    
91. .判断 (到大写 (键名) ＝ “F3键”)
    
92.     按键码 ＝ #F3键
    
93. .判断 (到大写 (键名) ＝ “F4键”)
    
94.     按键码 ＝ #F4键
    
95. .判断 (到大写 (键名) ＝ “F5键”)
    
96.     按键码 ＝ #F5键
    
97. .判断 (到大写 (键名) ＝ “F6键”)
    
98.     按键码 ＝ #F6键
    
99. .判断 (到大写 (键名) ＝ “F7键”)
    
100.     按键码 ＝ #F7键
     
101. .判断 (到大写 (键名) ＝ “F8键”)
     
102.     按键码 ＝ #F8键
     
103. .判断 (到大写 (键名) ＝ “F9键”)
     
104.     按键码 ＝ #F9键
     
105. .判断 (到大写 (键名) ＝ “F10键”)
     
106.     按键码 ＝ #F10键
     
107. .判断 (到大写 (键名) ＝ “F11键”)
     
108.     按键码 ＝ #F11键
     
109. .判断 (到大写 (键名) ＝ “F12键”)
     
110.     按键码 ＝ #F12键
     
111. .判断 (到大写 (键名) ＝ “F13键”)
     
112.     按键码 ＝ #F13键
     
113. .判断 (到大写 (键名) ＝ “F14键”)
     
114.     按键码 ＝ #F14键
     
115. .判断 (到大写 (键名) ＝ “F15键”)
     
116.     按键码 ＝ #F15键
     
117. .判断 (到大写 (键名) ＝ “F16键”)
     
118.     按键码 ＝ #F16键
     
119. .判断 (键名 ＝ “break键”)
     
120.     按键码 ＝ #Break键
     
121. .判断 (键名 ＝ “回车键”)
     
122.     按键码 ＝ #回车键
     
123. .判断 (到小写 (键名) ＝ “pause”)
     
124.     按键码 ＝ #Pause键
     
125. .判断 (到小写 (键名) ＝ “capsLock”)
     
126.     按键码 ＝ #CapsLock键
     
127. .判断 (到小写 (键名) ＝ “numLock”)
     
128.     按键码 ＝ #NumLock键
     
129. .判断 (到小写 (键名) ＝ “scrollLock”)
     
130.     按键码 ＝ #ScrollLock键
     
131. .判断 (到小写 (键名) ＝ “esc”)
     
132.     按键码 ＝ #Esc键
     
133. .判断 (键名 ＝ “空格键”)
     
134.     按键码 ＝ #空格键
     
135. .判断 (到小写 (键名) ＝ “pageup”)
     
136.     按键码 ＝ #PageUp键
     
137. .判断 (到小写 (键名) ＝ “pagedown”)
     
138.     按键码 ＝ #PageDown键
     
139. .判断 (到小写 (键名) ＝ “home”)
     
140.     按键码 ＝ #Home键
     
141. .判断 (到小写 (键名) ＝ “end”)
     
142.     按键码 ＝ #End键
     
143. .判断 (键名 ＝ “←”)
     
144.     按键码 ＝ #左光标键
     
145. .判断 (键名 ＝ “↑”)
     
146.     按键码 ＝ #上光标键
     
147. .判断 (键名 ＝ “→”)
     
148.     按键码 ＝ #右光标键
     
149. .判断 (键名 ＝ “↓”)
     
150.     按键码 ＝ #下光标键
     
151. .判断 (到小写 (键名) ＝ “ins”)
     
152.     按键码 ＝ #Ins键
     
153. .判断 (到小写 (键名) ＝ “del”)
     
154.     按键码 ＝ #Del键
     
155. .判断 (键名 ＝ “；”)
     
156.     按键码 ＝ #分号键
     
157. .判断 (键名 ＝ “=”)
     
158.     按键码 ＝ #等号键
     
159. .判断 (键名 ＝ “<”)
     
160.     按键码 ＝ #逗号键
     
161. .判断 (键名 ＝ “-”)
     
162.     按键码 ＝ #减号键
     
163. .判断 (键名 ＝ “>”)
     
164.     按键码 ＝ #圆点键
     
165. .判断 (键名 ＝ “/”)
     
166.     按键码 ＝ #除号键
     
167. .判断 (键名 ＝ “~”)
     
168.     按键码 ＝ #反撇号键
     
169. .判断 (键名 ＝ “[”)
     
170.     按键码 ＝ #左中括号键
     
171. .判断 (键名 ＝ “]”)
     
172.     按键码 ＝ #右中括号键
     
173. .判断 (键名 ＝ “\”)
     
174.     按键码 ＝ #斜杠键
     
175. .判断 (键名 ＝ #引号)
     
176.     按键码 ＝ #单引号键
     
177. .判断 (键名 ＝ “*”)
     
178.     按键码 ＝ 106
     
179. .判断 (键名 ＝ “+”)
     
180.     按键码 ＝ 107
     
181. .判断 (键名 ＝ “退格键”)
     
182.     按键码 ＝ #退格键
     
183. .判断 (键名 ＝ “Num0”)
     
184.     按键码 ＝ 96
     
185. .判断 (键名 ＝ “Num1”)
     
186.     按键码 ＝ 97
     
187. .判断 (键名 ＝ “Num2”)
     
188.     按键码 ＝ 98
     
189. .判断 (键名 ＝ “Num3”)
     
190.     按键码 ＝ 99
     
191. .判断 (键名 ＝ “Num4”)
     
192.     按键码 ＝ 100
     
193. .判断 (键名 ＝ “Num5”)
     
194.     按键码 ＝ 101
     
195. .判断 (键名 ＝ “Num6”)
     
196.     按键码 ＝ 102
     
197. .判断 (键名 ＝ “Num7”)
     
198.     按键码 ＝ 103
     
199. .判断 (键名 ＝ “Num8”)
     
200.     按键码 ＝ 104
     
201. .判断 (键名 ＝ “Num9”)
     
202.     按键码 ＝ 105
     
203. .判断 (键名 ＝ “/”)
     
204.     按键码 ＝ 111
     
205. .判断 (键名 ＝ “-”)
     
206.     按键码 ＝ 109
     
207. .判断 (键名 ＝ “.”)
     
208.     按键码 ＝ 110
     
209. .判断 (键名 ＝ “Tab键”)
     
210.     按键码 ＝ 9
     
211. .默认
     
212. 
     
213. .判断结束
     
214. 
     
215. 
     
216. 
     
217. 
     
218. 
     
219. 
     
220. 
     
221. 
     
222. 返回 (按键码)
     
223. 
     
224. .子程序 键盘_键代码取键名, 文本型, 公开, 取键代码的键名(返回键名)
     
225. .参数 键代码, 整数型, , 键代码,如填:65,将返回 A键
     
226. .局部变量 文本, 文本型
     
227. 
     
228. .判断开始 (键代码 ＝ #Ctrl键)
     
229.     文本 ＝ “Ctrl”
     
230. .判断 (键代码 ＝ #Shift键)
     
231.     文本 ＝ “Shift”
     
232. .判断 (键代码 ＝ #Alt键)
     
233.     文本 ＝ “Alt”
     
234. .判断 (键代码 ＝ #键0)
     
235.     文本 ＝ “0键”
     
236. .判断 (键代码 ＝ #键1)
     
237.     文本 ＝ “1键”
     
238. .判断 (键代码 ＝ #键2)
     
239.     文本 ＝ “2键”
     
240. .判断 (键代码 ＝ #键3)
     
241.     文本 ＝ “3键”
     
242. .判断 (键代码 ＝ #键4)
     
243.     文本 ＝ “4键”
     
244. .判断 (键代码 ＝ #键5)
     
245.     文本 ＝ “5键”
     
246. .判断 (键代码 ＝ #键6)
     
247.     文本 ＝ “6键”
     
248. .判断 (键代码 ＝ #键7)
     
249.     文本 ＝ “7键”
     
250. .判断 (键代码 ＝ #键8)
     
251.     文本 ＝ “8键”
     
252. .判断 (键代码 ＝ #键9)
     
253.     文本 ＝ “9键”
     
254. .判断 (键代码 ＝ #A键)
     
255.     文本 ＝ “A键”
     
256. .判断 (键代码 ＝ #B键)
     
257.     文本 ＝ “B键”
     
258. .判断 (键代码 ＝ #C键)
     
259.     文本 ＝ “C键”
     
260. .判断 (键代码 ＝ #D键)
     
261.     文本 ＝ “D键”
     
262. .判断 (键代码 ＝ #E键)
     
263.     文本 ＝ “E键”
     
264. .判断 (键代码 ＝ #F键)
     
265.     文本 ＝ “F键”
     
266. .判断 (键代码 ＝ #G键)
     
267.     文本 ＝ “G键”
     
268. .判断 (键代码 ＝ #H键)
     
269.     文本 ＝ “H键”
     
270. .判断 (键代码 ＝ #I键)
     
271.     文本 ＝ “I键”
     
272. .判断 (键代码 ＝ #J键)
     
273.     文本 ＝ “J键”
     
274. .判断 (键代码 ＝ #K键)
     
275.     文本 ＝ “K键”
     
276. .判断 (键代码 ＝ #L键)
     
277.     文本 ＝ “L键”
     
278. .判断 (键代码 ＝ #M键)
     
279.     文本 ＝ “M键”
     
280. .判断 (键代码 ＝ #N键)
     
281.     文本 ＝ “N键”
     
282. .判断 (键代码 ＝ #O键)
     
283.     文本 ＝ “O键”
     
284. .判断 (键代码 ＝ #P键)
     
285.     文本 ＝ “P键”
     
286. .判断 (键代码 ＝ #Q键)
     
287.     文本 ＝ “Q键”
     
288. .判断 (键代码 ＝ #R键)
     
289.     文本 ＝ “R键”
     
290. .判断 (键代码 ＝ #S键)
     
291.     文本 ＝ “S键”
     
292. .判断 (键代码 ＝ #T键)
     
293.     文本 ＝ “T键”
     
294. .判断 (键代码 ＝ #U键)
     
295.     文本 ＝ “U键”
     
296. .判断 (键代码 ＝ #V键)
     
297.     文本 ＝ “V键”
     
298. .判断 (键代码 ＝ #W键)
     
299.     文本 ＝ “W键”
     
300. .判断 (键代码 ＝ #X键)
     
301.     文本 ＝ “X键”
     
302. .判断 (键代码 ＝ #Y键)
     
303.     文本 ＝ “Y键”
     
304. .判断 (键代码 ＝ #Z键)
     
305.     文本 ＝ “Z键”
     
306. .判断 (键代码 ＝ #F1键)
     
307.     文本 ＝ “F1键”
     
308. .判断 (键代码 ＝ #F2键)
     
309.     文本 ＝ “F2键”
     
310. .判断 (键代码 ＝ #F3键)
     
311.     文本 ＝ “F3键”
     
312. .判断 (键代码 ＝ #F4键)
     
313.     文本 ＝ “F4键”
     
314. .判断 (键代码 ＝ #F5键)
     
315.     文本 ＝ “F5键”
     
316. .判断 (键代码 ＝ #F6键)
     
317.     文本 ＝ “F6键”
     
318. .判断 (键代码 ＝ #F7键)
     
319.     文本 ＝ “F7键”
     
320. .判断 (键代码 ＝ #F8键)
     
321.     文本 ＝ “F8键”
     
322. .判断 (键代码 ＝ #F9键)
     
323.     文本 ＝ “F9键”
     
324. .判断 (键代码 ＝ #F10键)
     
325.     文本 ＝ “F10键”
     
326. .判断 (键代码 ＝ #F11键)
     
327.     文本 ＝ “F11键”
     
328. .判断 (键代码 ＝ #F12键)
     
329.     文本 ＝ “F12键”
     
330. .判断 (键代码 ＝ #F13键)
     
331.     文本 ＝ “F13键”
     
332. .判断 (键代码 ＝ #F14键)
     
333.     文本 ＝ “F14键”
     
334. .判断 (键代码 ＝ #F15键)
     
335.     文本 ＝ “F15键”
     
336. .判断 (键代码 ＝ #F16键)
     
337.     文本 ＝ “F16键”
     
338. .判断 (键代码 ＝ #Break键)
     
339.     文本 ＝ “Break”
     
340. .判断 (键代码 ＝ #回车键)
     
341.     文本 ＝ “回车键”
     
342. .判断 (键代码 ＝ #Pause键)
     
343.     文本 ＝ “Pause”
     
344. .判断 (键代码 ＝ #CapsLock键)
     
345.     文本 ＝ “Caps Lock”
     
346. .判断 (键代码 ＝ #NumLock键)
     
347.     文本 ＝ “NumLock”
     
348. .判断 (键代码 ＝ #ScrollLock键)
     
349.     文本 ＝ “ScrollLock”
     
350. .判断 (键代码 ＝ #Esc键)
     
351.     文本 ＝ “Esc”
     
352. .判断 (键代码 ＝ #空格键)
     
353.     文本 ＝ “空格键”
     
354. .判断 (键代码 ＝ #PageUp键)
     
355.     文本 ＝ “PageUp”
     
356. .判断 (键代码 ＝ #PageDown键)
     
357.     文本 ＝ “PageDown”
     
358. .判断 (键代码 ＝ #Home键)
     
359.     文本 ＝ “Home”
     
360. .判断 (键代码 ＝ #End键)
     
361.     文本 ＝ “End”
     
362. .判断 (键代码 ＝ #左光标键)
     
363.     文本 ＝ “←”
     
364. .判断 (键代码 ＝ #上光标键)
     
365.     文本 ＝ “↑”
     
366. .判断 (键代码 ＝ #右光标键)
     
367.     文本 ＝ “→”
     
368. .判断 (键代码 ＝ #下光标键)
     
369.     文本 ＝ “↓”
     
370. .判断 (键代码 ＝ #Ins键)
     
371.     文本 ＝ “Ins”
     
372. .判断 (键代码 ＝ #Del键)
     
373.     文本 ＝ “Del”
     
374. .判断 (键代码 ＝ #分号键)
     
375.     文本 ＝ “；”
     
376. .判断 (键代码 ＝ #等号键)
     
377.     文本 ＝ “=”
     
378. .判断 (键代码 ＝ #逗号键)
     
379.     文本 ＝ “<”
     
380. .判断 (键代码 ＝ #减号键)
     
381.     文本 ＝ “-”
     
382. .判断 (键代码 ＝ #圆点键)
     
383.     文本 ＝ “>”
     
384. .判断 (键代码 ＝ #除号键)
     
385.     文本 ＝ “/”
     
386. .判断 (键代码 ＝ #反撇号键)
     
387.     文本 ＝ “~”
     
388. .判断 (键代码 ＝ #左中括号键)
     
389.     文本 ＝ “[”
     
390. .判断 (键代码 ＝ #右中括号键)
     
391.     文本 ＝ “]”
     
392. .判断 (键代码 ＝ #斜杠键)
     
393.     文本 ＝ “\”
     
394. .判断 (键代码 ＝ #单引号键)
     
395.     文本 ＝ #引号
     
396. .判断 (键代码 ＝ 106)
     
397.     文本 ＝ “*”
     
398. .判断 (键代码 ＝ 107)
     
399.     文本 ＝ “+”
     
400. .判断 (键代码 ＝ #退格键)
     
401.     文本 ＝ “退格键”
     
402. .判断 (键代码 ＝ 91)
     
403.     文本 ＝ “Win”
     
404. .判断 (键代码 ＝ 96)
     
405.     文本 ＝ “Num0”
     
406. .判断 (键代码 ＝ 97)
     
407.     文本 ＝ “Num1”
     
408. .判断 (键代码 ＝ 98)
     
409.     文本 ＝ “Num2”
     
410. .判断 (键代码 ＝ 99)
     
411.     文本 ＝ “Num3”
     
412. .判断 (键代码 ＝ 100)
     
413.     文本 ＝ “Num4”
     
414. .判断 (键代码 ＝ 101)
     
415.     文本 ＝ “Num5”
     
416. .判断 (键代码 ＝ 102)
     
417.     文本 ＝ “Num6”
     
418. .判断 (键代码 ＝ 103)
     
419.     文本 ＝ “Num7”
     
420. .判断 (键代码 ＝ 104)
     
421.     文本 ＝ “Num8”
     
422. .判断 (键代码 ＝ 105)
     
423.     文本 ＝ “Num9”
     
424. .判断 (键代码 ＝ 111)
     
425.     文本 ＝ “/”
     
426. .判断 (键代码 ＝ 109)
     
427.     文本 ＝ “-”
     
428. .判断 (键代码 ＝ 110)
     
429.     文本 ＝ “.”
     
430. .判断 (键代码 ＝ 9)
     
431.     文本 ＝ “Tab键”
     
432. .默认
     
433. 
     
434. .判断结束
     
435. 返回 (文本)
     
436. 
     

复制代码

阿杰大大

取代码 ("A”, )或者精易模块里面：键盘_     里面有个命令，我忘了