用VB在程式中新增切換中文輸入法的功能

思路:

先用getkeyboardlayoutlist 函式來取得所有輸入法,然後逐個用immisime判斷是否是中文輸入法,如果是的話在用immgetdescription得到輸入法的名稱,最後選定你需要的輸入法用activatekeyboardlayout啟用它.

原始碼:

public declare function activatekeyboardlayout lib "user32" (byval hkl as long, byval flags as long) as long

public declare function getkeyboardlayoutlist lib "user32" (byval nbuff as long, lplist as long) as long

public declare function getkeyboardlayout lib "user32" (byval dwlayout as long) as long

public declare function immgetdescription lib "imm32.dll" alias "immgetdescriptiona" (byval hkl as long,

_byval lpsz as string, byval ubuflen as long) as long

public declare function immisime lib "imm32.dll" (byval hkl as long) as long

public hcurkbdlayout as long

public sub loadsrfz()

dim buff as string

buff = string(255, 0)

dim noofkbdlayout as long

dim bufflen as long

dim retstr as string

hcurkbdlayout = getkeyboardlayout(0)′取得目前的輸入法

noofkbdlayout = getkeyboardlayoutlist(25, hkb(0))

for i = 1 to noofkbdlayout

if immisime(hkb(i - 1)) = 1 then

bufflen = 255

retcount = immgetdescription(hkb(i - 1), buff, bufflen)

retstr = left(buff, retcount)

if left(retstr, len("智慧型abc")) = "智慧型abc" then

activatekeyboardlayout hkb(i - 1), 0

exit sub

end if

end sub