1,486
社区成员
发帖
与我相关
我的任务
分享清高手帮我写个几行的小程序啊~~~小弟好急呀 帮帮我~~~~
类似于按键精灵一样的小软件 不过 我只要很简单的一个功能 ： 将小键盘的 + 号键 转换为 ， （逗号） 谢谢高手 知道的请帮我写一个
...全文
请发表友善的回复…
发表回复
helanshan 2004-10-24
- 打赏
- 举报
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then
KeyAscii = 43 + 1
End If
End Sub
If KeyAscii = 43 Then
KeyAscii = 43 + 1
End If
End Sub
hglai 2004-10-24
- 打赏
- 举报
就ascii就可以实现了，
替换
替换
bluewug 2004-10-24
- 打赏
- 举报
前两位的就可以了，还是阁下想要后一位先生，还是小姐的？
qiqi5521 2004-10-24
- 打赏
- 举报
你的意思是截获用户的按键动作,替换成逗号吧?
用一个全局钩子,截获按键,发现是 + 就发送逗号键
对不起只是个设想,本人 api 不好,实现不了
用一个全局钩子,截获按键,发现是 + 就发送逗号键
对不起只是个设想,本人 api 不好,实现不了
kmzs 2004-10-24
- 打赏
- 举报
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then KeyAscii = 44
End Sub
If KeyAscii = 43 Then KeyAscii = 44
End Sub
wzhjs 2004-10-24
- 打赏
- 举报
子类化
Public Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal pfnFilterProc As Long) As Long
nFilterType: Const WH_KEYBOARD = 2
pfnFilterProc: AddressOf MyHook
...
Public Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal pfnFilterProc As Long) As Long
nFilterType: Const WH_KEYBOARD = 2
pfnFilterProc: AddressOf MyHook
...
DemonLoveLizzy 2004-10-24
- 打赏
- 举报
问问题都问得不明不白，能学好写代码？语言表达能力太差了，应考虑加几个错误捕捉。
northwolves 2004-10-23
- 打赏
- 举报
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then KeyAscii = 44
End Sub
If KeyAscii = 43 Then KeyAscii = 44
End Sub
