VFP 愛用者社區

[kinhome]

在win7下的輸入法不能切換的問題，但是win7以後被大家廣泛使用已是定局
搜尋幾位前輩及網路，拼湊後得到以下的程式
目前來說已經可以用了，但小弟能覺得有點不足
墾請有能力的前輩能進行修改，以便讓大家一起使用
以下是我電腦(win7)下的三種輸入法


1.先載入圖1的英文鍵盤，請在命令視窗先執行

Declare Long LoadKeyboardLayout In WIN32API String, Long
LoadKeyboardLayout('04090409',3)


修改：是否可修改不需要載入此種輸入法。
________________________________________________________
2.將以下的存成.prg檔

Lparameters m_user
If m_user=1
Dimension aList[1,3]
Declare Long GetKeyboardLayoutList In USER32 ;
LONG nCount, String @ lpList
Declare Long ImmGetDescription In imm32 ;
LONG hKL, String @ lpszDescription, Long nLen
Declare Long ImmGetIMEFileName In imm32 ;
LONG hKL, String @ lpszFileName, Long nLen
Declare Long ActivateKeyboardLayout In USER32 ;
LONG hKL, Integer Flags
nList = GetKeyboardLayoutList( 0, Null )
cList = Repl(Chr(0),(nList*4)+1)
nList = GetKeyboardLayoutList( nList, @cList )
lpszDescription = Repl(Chr(0),254)
lpszFileName = Repl(Chr(0),254)
Dimension aList[nList,3]
For iList=1 To nList
hKL = Str2LONG(Substr(cList,(4*iList)-3,4))
=ImmGetDescription(hKL,@lpszDescription,Len(lpszDescription))
aList[iList,2]=Left(lpszDescription,At(Chr(0),lpszDescription)-1)
= ImmGetIMEFileName(hKL,@lpszFileName,Len(lpszFileName))
aList[iList,3] = Left(lpszFileName,At(Chr(0),lpszFileName)-1)
aList[iList,1] = hKL
Endfor

For m_alen=1 To Alen(aList,1)
If aList(m_alen,1)<>67699721
ActivateKeyboardLayout(aList(m_alen,1),0)
Exit
Endif
Endfor




Else
Declare Long LoadKeyboardLayout In WIN32API String, Long
LoadKeyboardLayout('04090409',3)
Endif

Function Str2LONG
Lparameters cValue
Return Asc(Left(cValue,1)) + ;
asc(Substr(cValue,2,1))*256 + ;
asc(Substr(cValue,3,1))*65536 + ;
asc(Substr(cValue,4,1))*16777216
__________________________________________________________________________________________
3.執行此prg檔，執行前請先切換到您習慣使用的中文輸入法，只要切換一次就可以了(如.圖3)

=prg檔名(2) &&這是切換到英文輸入法(圖1)
=prg檔名(1) &&這是切換到注音輸入法(圖3)

___________________________________________________________________________________________

想要修改的問題如下
1.圖2就已經可以輸入英文了，可否不用預先載入圖1
2.是否可以不用事先切換到圖3，一切換後就會切換到 User習慣的輸入法，雖然這在XP也一樣。


以上~~麻煩各前輩，謹此致謝~~

[spfrk]

有關在win7下的輸入法不能切換的問題,我已經搞了很久,所面臨的問題就是這樣, 如果要自己控制輸入法的切換,
那就要寫在TEXT物件中的EVENT中,但是又不完全,主要是因為 WIN7 是多國別的系統, 切換輸入法前是先要切換
國別的,kinhome 大大所列舉的 WINDOWS API 都是 NT5(XP)的, 至於NT6(WIN7) 則是用 TSF 來控輸入法, 但是
找遍了 VS2010 MSDN 都沒有 TSF 的詳細說明,因此就觸礁了!

[kinhome]

[spfrk]

可否提供keyboard "{Ctrl+spacebar}, 這個方法我也找過了,想用直接送 SCAN CODE 到 KEYBOARD BUFFER
x0041e-x0043e, 這樣總可以吧 ! 好像可以, 可是因為 NT 系統統是不准 USER PROGRAM 直接做 I/O的, 必須
安裝一個 inpout32.dll 的驅動程式, 來幫你送資料到KEYBOARD BUFFER, 這樣一來, 其不是更麻煩了, 所以又
觸礁了, TSF 是 .NET FRAMEWORK 3 的成員, 只要有它, 就可以使用 TSF, 只是現在找不到 TSF 的完整技術資料
與展示程式, 在MSDN中有找到一些片段的說明, 但是根本連不起來, 目前只有慢慢的等瞜, 每隔1個月,再找找看,
應該會有答案.

[sheuok]

Function uf_中英切換(ulp_模式)
Declare Integer ActivateKeyboardLayout In user32 Integer hkl, Integer nFlags
If ulp_模式="中"
ActivateKeyboardLayout(0x04040404,0)
Else &&-英
ActivateKeyboardLayout(0x04090409,0)
Endif
Endfunc

第一次請將用手動切換成您要的輸入法,然後便可呼叫上述函數切換中英文
至於如何在第一次便可用程式自動切到所需輸入法,還在找資料研究中....

[alung]

[ckp6250]

自動切換輸入法問題，我認為【差不多】就好，不必耗費太多精神在上面，
理由是，不管您如何耗盡精神，都不能十全十美，萬無一失
一百台電腦，其中肯定會有幾台電腦不聽使喚
客戶依然會來投訴。

[alung]

[alung]

[alung]

[perry]

放在主程式最下方,
或單獨成立 .prg,單獨prg時將 Proc uf_IME 及 EndProc 刪掉

[ckp6250]

只do乙次可能無效
應該是每個textbox中都do 一 do

我個人是在when 中去do

[alung]