返回列表 上一主題 發帖

如何在TextBox1中顯示輸入法

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-31 00:50 | 只看該作者

如何在TextBox1中顯示輸入法

如何在TextBox1中顯示輸入法『倉頡』
如何在TextBox2中顯示輸入法『注音』
每次都要重新切換...vba可否做的到呢 ????
收藏 分享

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
2#
發表於 2013-9-1 01:49 | 只看該作者
回復 1# sillykin


    如圖

倉頡.JPG (24.78 KB)

倉頡.JPG

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2013-9-1 12:59 | 只看該作者
回復 2# sillykin
請參閱vba的說明
  1. IMEMode 屬性  這個屬性只適用於遠東（Far East）所寫的應用程式，其它應用程則忽略。
複製代碼
vba語法無法切換中文的輸入法
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
4#
發表於 2013-9-4 23:08 | 只看該作者
本帖最後由 luhpro 於 2013-9-4 23:11 編輯

回復 1# sillykin
網路上找到的方法, 利用 SendKeys -
使用前必須先設定好輸入法的快速切換鍵 :
倉頡 Ctrl + Shift + 1
注音 Ctrl + Shift + 3 如右圖 :  

因為 TextBox 沒有類似 GotFocus 或是 Activate 之類的事件來實作剛進入時切換輸入法的動作,
這裡我透過各TextBox 的 MouseUp 事件來切換輸入法,
不過, 此法只能用於滑鼠點擊的方式來做切換 TextBox 的動作,
若是使用者使用 Tab 鍵來切換的話就只能切換是否為中文輸入狀態囉.
  1. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  2.   'SendKeys ("^+0")  ' 可不用加此行, 因為我最初是設定切換英數的快速鍵為 Ctrl + Shift + 0 , 而這個已可由 TextBox1.IMEMode = fmIMEModeOff  來實現了.
  3. End Sub

  5. Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  6.   SendKeys ("^+1")
  7. End Sub

  9. Private Sub TextBox3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  10.   SendKeys ("^+3")
  11. End Sub

  13. Private Sub UserForm_Initialize()
  14.   TextBox1.IMEMode = fmIMEModeOff ' 英數
  15.   TextBox2.IMEMode = fmIMEModeOn  ' 倉頡
  16.   TextBox3.IMEMode = fmIMEModeOn  ' 注音
  17. End Sub
複製代碼
如何在TextBox1中顯示輸入法-a.zip (9.66 KB)
1

評分人數

    • GBKEE: 精品文章金錢 + 5

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2013-9-5 08:22 | 只看該作者
回復 5# luhpro
建議改用Enter事件(進入TextBox之前事件),不必動到滑鼠.(Tab鍵可移動在TextBox之間)
  1. Private Sub TextBox1_Enter()
  2.     SendKeys "^ + {BS}"
  3. End Sub
  4. Private Sub ATextBox2_Enter()
  5.     SendKeys ("^+1")
  6. End Sub
  7. Private Sub ATextBox3_Enter()
  8.     SendKeys ("^+3")
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
6#
發表於 2013-9-8 00:12 | 只看該作者
感謝luhpro 及g大版主的回覆..讓小弟大高眼界..

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題