[问题] 输入框怎么识别小键盘的数字 [复制链接]

把代码贴上来 说出你想要的结果 你说的不明不白的 不理解啊 快捷键的话 大键盘的1是 按键码是49 小键盘1 是97 不同的 很好识别

,

按键1 =UCase(Form1.InputBox1.Text)
延时1 = Form1.InputBox2.Text
TracePrint Form1.InputBox1.Text
TracePrint UCase(Form1.InputBox1.Text)
If(按键1<>"") Then    
    If (jg Mod CInt(延时1))=0 Then
    For i = 0 To Len(按键1) - 1 Step 1
        Call Plugin.Bkgnd.KeyPress(Hwnd, Asc(Mid(按键1, i + 1, 1)))
        //按键之间的延时
        Delay 400
    Next
    End If

---------
输入字母改大写就对了
输入小键盘的数字 得到的是主键盘的数字

,

你这个是返回ANSI码 只要你输入1 就只能返回49 小键盘和大键盘输入的都是1 所以他返回是没有问题的 如何你想区分大小键盘的数字 就要舍弃ASC 比如可以监听按键 如 输入框1的改变事件中加入代码 a=getLastKey 检测上次按键并保存到A变量中 然后让 form1.inputbox1.text=a 让输入框1接收A的数据，这样你按大键盘1就是49 小键盘就是97 当然你的其他代码也要修改 这是一种解决方法 如果你想在你的代码的逻辑前提下加入 那就在改变事件中加入一个符号之类的代替小键盘的1 如 * 号 a=getLastKey if a=97 then form1.inputbox1.text=form1.inputbox1.text & * 这样就可以自动改成* 然后在调用后台按键前加入判断
if mid（按键1,i+1,1）= "*" then
Call Plugin.Bkgnd.KeyPress(Hwnd, 97)
else
Call Plugin.Bkgnd.KeyPress(Hwnd, Asc(Mid(按键1, i + 1, 1)))
end if 其他的按键也可以按这个思路去搞定