Private Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim s As String

s = String(100, Chr(0))

GetKeyNameText MapVirtualKey(KeyCode, 0) * 65536, s, 100

s = Left(s, InStr(s, Chr(0)))

Me.Cls

Print s
End Sub

我用的源码是这里



KeyAscii 替换上去就提示错误
是不是声明限制了！！
还有运行不正常！应该怎么写才对呢！

我想实现的是鼠标放到Text文本框里按下键盘任何一个按钮就能在Text1里显示出对应的Alias码！列如我输入1就显示49
Text2 是显示对应的KeyDown识别的案件字符 列如a就显示A或a 尝试了很多次了就是不行！！各位谁看到知道的给个列子！谢谢了！！！！！

！

工程1.rar (1.85 KB)

方便各位老师了！现成的附件！帮我改改谢谢了

    bczgvip   还在吗！！KeyAscii码不能换吗！！要怎么在目前这个列子上来声明和修改呢！！！！

bczgvip  很感谢你！，我还想问个小问题！！我怎么让他从TEXT文本框显示出来以后！如果矮子连着往TEXT1里输入按键，他居然叠加在一起。


按下键盘1对应的是49
返回的对应码是对的。
就是框里会保留原始记录，
第二次按的话就会叠加在一起变成
4949 或者949 我试着+了些删除前面文字的代码
就是不行，一定是我书写不对。应该怎么写才对呢，麻烦你了

可用来写后台操作模拟内存占用很小

什么布景啊！？？？？你是说我发帖的习惯吗！呵呵

我需要显示ascii码的你这个不能显示没声明是吧？？