清高手帮我写个几行的小程序啊~~~小弟好急呀 帮帮我~~~~

Question

类似于按键精灵一样的小软件   不过 我只要很简单的一个功能 ： 将小键盘的 +  号键  转换为 ，  （逗号）  谢谢高手  知道的请帮我写一个

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then KeyAscii = 44
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then
KeyAscii = 43 + 1
End If
End Sub

Answer 3

你的意思是截获用户的按键动作,替换成逗号吧?
用一个全局钩子,截获按键,发现是 + 就发送逗号键
对不起只是个设想,本人 api 不好,实现不了

Answer 4

就ascii就可以实现了，
替换

Answer 5

子类化Public Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal pfnFilterProc As Long) As LongnFilterType: Const WH_KEYBOARD = 2
pfnFilterProc: AddressOf MyHook...

Answer 6

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then KeyAscii = 44
End Sub