7,786
社区成员
发帖
与我相关
我的任务
分享虚拟键盘如何利用输入法输入中文？
请教各位高手：
我需要做一个虚拟键盘（就是触摸屏上用的那种），需要可以利用已安装的中文输入法输入中文。
现在遇到一个头疼的问题：每次点击虚拟键盘上的按钮时，焦点会从当前的文本框转移到按钮上，当程序重新将焦点转回文本框后，输入法会自动重置。也就是说，如果我想用全拼输入“我”（wo），用户会在虚拟键盘上连续点击w和o两个键，但是输入法只会接受到分离的两个键w和o，而不是“wo”。每次点击下一个键时，前一个输入的键就自动消失了。因此根本没法输入。
我现在是用vb的SendKeys函数给文本框发送字符。我也试过用API函数SendMessage，但这样好象直接把输入法绕过去了，输入法根本捕捉不到你按的键。
不知道各位老大有什么好的方法？不胜感激！
我需要做一个虚拟键盘（就是触摸屏上用的那种），需要可以利用已安装的中文输入法输入中文。
现在遇到一个头疼的问题：每次点击虚拟键盘上的按钮时，焦点会从当前的文本框转移到按钮上，当程序重新将焦点转回文本框后，输入法会自动重置。也就是说，如果我想用全拼输入“我”（wo），用户会在虚拟键盘上连续点击w和o两个键，但是输入法只会接受到分离的两个键w和o，而不是“wo”。每次点击下一个键时，前一个输入的键就自动消失了。因此根本没法输入。
我现在是用vb的SendKeys函数给文本框发送字符。我也试过用API函数SendMessage，但这样好象直接把输入法绕过去了，输入法根本捕捉不到你按的键。
不知道各位老大有什么好的方法？不胜感激！
...全文
请发表友善的回复…
发表回复
wangjidh 2003-03-27
- 打赏
- 举报
True：左右键互换 / False：恢复正常
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
Dim RetVal As Long
RetVal = SwapMouseButton(True)
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
Dim RetVal As Long
RetVal = SwapMouseButton(True)
wangjidh 2003-03-27
- 打赏
- 举报
Public Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
ivandova 2003-03-26
- 打赏
- 举报
加了。100分是我现在一次能给的上限。老大满意了否？
ivandova 2003-03-26
- 打赏
- 举报
:o 这样都可以？
服了服了。。。值得一试！
多谢分享！不过把鼠标左右调换的API是什么？懒得去找了，老大帮人帮到底吧:)
谢谢！
服了服了。。。值得一试！
多谢分享！不过把鼠标左右调换的API是什么？懒得去找了，老大帮人帮到底吧:)
谢谢！
wangjidh 2003-03-26
- 打赏
- 举报
我以前也是給觸摸屏寫軟件的，這個問題困擾了我半年。
wangjidh 2003-03-26
- 打赏
- 举报
呵呵，開玩笑吧
I'm Use BIG5.
When your mouse move to you ClickBox,cheng you mouse left and right,then OK.
:)
Microsoft的作法是定義了特殊的按鈕，不過我的方法也不差啊，呵呵
其實很簡單，當你的鼠標移動到你定義的按鈕區的時候，反轉鼠標左右鍵，這樣，按鈕就不會有交點，但是會有事件，嘿，不用我寫代碼了吧。
I'm Use BIG5.
When your mouse move to you ClickBox,cheng you mouse left and right,then OK.
:)
Microsoft的作法是定義了特殊的按鈕，不過我的方法也不差啊，呵呵
其實很簡單，當你的鼠標移動到你定義的按鈕區的時候，反轉鼠標左右鍵，這樣，按鈕就不會有交點，但是會有事件，嘿，不用我寫代碼了吧。
wangjidh 2003-03-25
- 打赏
- 举报
你加分，我告诉你，嘿
这个问题我研究了好长时间哦
这个问题我研究了好长时间哦
