以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Keys枚举  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41106)
--  作者：aalons
--  发布时间：2013/10/11 12:43:00
--  [求助]Keys枚举
Keydown下想枚举0到9，诶，用下面的代码要写9个Case，谁有更好的办法简化代码？
Select Case e.KeyCode
         Case Keys.D0
         Msgbox("你按了0键")
End Select 
--  作者：Bin
--  发布时间：2013/10/11 12:53:00
--  
就这样判断最实际
--  作者：有点甜
--  发布时间：2013/10/11 20:25:00
--  
 字符排列是有规律的，希望可以帮到你。举一反三，楼主。

msgbox(keys.D0 & " " & Keys.D1 & " " & Keys.D9)