private Sub Form_KeyDown(KeyCode Ss Integer,Shift As Integer)
Static i
i=i+1
If i Mod 10 = 0 Then
Print Chr$(KeyCode);"--";Hex$(KeyCode);"";
Print;Print
ElseI KeyCode = 13 Then
i = 0
Print:Print:Print
Else
Print Chr$(KeyCode);"--";Hex$(KeyCode);"";
End If
End Sub
参考文献：VB程序设计
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024