vb 日語輸入法kana 模式

前幾天寫程序的時候使用了如下代碼：

Private SubText1_KeyPress() SubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)
IfKeyAscii=vbKeyReturnThen
sendkeys"{tab}"
EndIf
EndSub

form上有文本框数组text1 各文本框的IMEMode设置如下

text1(0) 2-OFF

text1(1) 2

text1(2) 4- DBCS HIRAGANA

text1(3) 4

text1(4) 4

text1(5) 2

text1(6) 2

text1(7)4

text1(8)4

text1(9)4

原来的设想是 用回车键代替Tab键 但是进行日语输入的时候有时需要使用日语输入法中的kana 模式，这个模式是一直存在的

结果 从0 到2 都OK 在2按下回车后kana 模式没有了 　接下来按一次回车kana模式切换一次

这对输入造成了很大的麻烦

使用keyUp就解决了

Private SubText1_KeyUp() SubText1_KeyUp(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)

IfKeyCode=vbKeyReturnThen

Text1(Index+1).setFoucs

EndIf

EndSub

还需要在实验几次