請問如何控制TEXTBOX的輸入法

[LTC]

例如
游標在TEXTBOX_A，時使用英數輸入
游標在TEXTBOX_B，時使用新注音輸入
游標在TEXTBOX_C，時使用英數輸入

先謝謝您的回答，感恩阿

[chijanzen]

你好:

請參考 IMEMode 屬性

Private Sub TEXTBOX_A_Change()
'英數輸入
Me.TextBox1.IMEMode = fmIMEModeOff
End Sub

Private Sub TEXTBOX_B_Change()
'切換到預設中文輸入法
Me.TextBox1.IMEMode = fmIMEModeOn
End Sub

Private Sub TEXTBOX_C_Change()
'英數輸入
Me.TextBox1.IMEMode = fmIMEModeOff
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物

http://www.vba.com.tw/plog/


"LTC" 來函：

Post by LTC
例如
游標在TEXTBOX_A，時使用英數輸入
游標在TEXTBOX_B，時使用新注音輸入
游標在TEXTBOX_C，時使用英數輸入
先謝謝您的回答，感恩阿

[chijanzen]

你好:

上一帖有誤，請參考以下程式碼

Private Sub TEXTBOX_A_Enter()
'英數輸入
Me.TEXTBOX_A.IMEMode = fmIMEModeOff
End Sub

Private Sub TEXTBOX_B_Enter()
'切換到預設中文輸入法
Me.TEXTBOX_B.IMEMode = fmIMEModeOn
End Sub

Private Sub TEXTBOX_C_Enter()
'英數輸入
Me.TEXTBOX_C.IMEMode = fmIMEModeOff
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物

http://www.vba.com.tw/plog/


"LTC" 來函：

Post by LTC
例如
游標在TEXTBOX_A，時使用英數輸入
游標在TEXTBOX_B，時使用新注音輸入
游標在TEXTBOX_C，時使用英數輸入
先謝謝您的回答，感恩阿

[LTC]

先感謝您的回答
有關您提供的程式碼似乎可行
但好像系統的預設需是中文輸入狀態(又延生其他問題)
或進入表單前須先用手動切換成中文輸入狀態(使用不方便)
並無法從原系統預設輸入法中，強制切換成注音或大易
請問還有其它方式嗎？


"chijanzen" 來函：

Post by chijanzen
上一帖有誤，請參考以下程式碼
Private Sub TEXTBOX_A_Enter()
'英數輸入
Me.TEXTBOX_A.IMEMode = fmIMEModeOff
End Sub
Private Sub TEXTBOX_B_Enter()
'切換到預設中文輸入法
Me.TEXTBOX_B.IMEMode = fmIMEModeOn
End Sub
Private Sub TEXTBOX_C_Enter()
'英數輸入
Me.TEXTBOX_C.IMEMode = fmIMEModeOff
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"LTC" 來函：

Post by LTC
例如
游標在TEXTBOX_A，時使用英數輸入
游標在TEXTBOX_B，時使用新注音輸入
游標在TEXTBOX_C，時使用英數輸入
先謝謝您的回答，感恩阿

[chijanzen]

你好:

請參考以下的討論

http://www.officefans.net/cdb/viewthread.php?tid=10965&fpage=1&highlight=%CA%E4%C8%EB%B7%A8%2Bchijanzen
--
天行健，君子以自強不息
地勢坤，君子以厚德載物

http://www.vba.com.tw/plog/


"LTC" 來函：

Post by LTC
先感謝您的回答
有關您提供的程式碼似乎可行
但好像系統的預設需是中文輸入狀態(又延生其他問題)
或進入表單前須先用手動切換成中文輸入狀態(使用不方便)
並無法從原系統預設輸入法中，強制切換成注音或大易
請問還有其它方式嗎？
"chijanzen" 來函：

Post by chijanzen
上一帖有誤，請參考以下程式碼
Private Sub TEXTBOX_A_Enter()
'英數輸入
Me.TEXTBOX_A.IMEMode = fmIMEModeOff
End Sub
Private Sub TEXTBOX_B_Enter()
'切換到預設中文輸入法
Me.TEXTBOX_B.IMEMode = fmIMEModeOn
End Sub
Private Sub TEXTBOX_C_Enter()
'英數輸入
Me.TEXTBOX_C.IMEMode = fmIMEModeOff
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"LTC" 來函：

Post by LTC
例如
游標在TEXTBOX_A，時使用英數輸入
游標在TEXTBOX_B，時使用新注音輸入
游標在TEXTBOX_C，時使用英數輸入
先謝謝您的回答，感恩阿

[LTC]

謝謝您
有點複雜
可能要找時間再仔細研究看看