網站建設| 數據庫類| 圖形圖象| 程序設計| 現代辦公| 操作系統| 考試認證| 網絡技術| 軟件工程| 電腦相關| 文學作品
網站開發| 網頁制作| 操作系統| 圖象圖形| 考試認證| 數據庫類| 程序設計| 硬件技術| 現代辦公| 網絡技術| 笑話頻道
 
您的位置: 電腦書庫首頁-> 電腦文摘-> 程序設計-> Basic/VB類-> VB編程控制Windows中文輸入法

VB編程控制Windows中文輸入法
作者:佚名 來源:天極網 加入時間:2005-2-28
相關文章 相關書籍:
 在Windows中我們可以用“Ctrl+Shift”鍵來調入或切換中文輸入法,但是這樣做每次都是使位于輸入法列表頂端的那個輸入法首先被調用。通常我們都要連續按好幾次“Ctrl+Shift”才能將習慣的輸入法調出。我編制了一段小程序,通過它可以把任意一個輸入法放在輸入法列表的頂端。

  它的原理是:使用LoadKeyboardLayout函數可以改變輸入法的順序,只要在第一個參數中傳遞目標輸入法的KeyboardlayoutName,第二個參數用KLF_REORDER就可以了。

  例如,aa = LoadKeyboardLayout(″00000409″, KLF_REORDER) 使英文變成第一。那怎樣獲得KeyboardlayoutName呢?因為使用GetKeyboardLayoutname可以返回當前輸入法的KeyboardlayoutName,所以我們可以先用GetKeyboardLayoutList 函數來取得所有輸入法,再用activateKeyboardlayout()函數設置當前輸入法,最后就可以得到它的KeyboardlayoutName了。具體步驟如下:

  打開VB后選擇標準的EXE文檔,在Form1上添加一個Combobox和一個command控件,輸入以下程序。

  ′以下的API函數用于輸入法操作
  Private Declare Function GetKeyboardLayoutList Lib ″user32″ _
  (ByVal nBuff As Long, lpList As Long) As Long
  Private Declare Function ImmGetDescription Lib ″imm32.dll″ _
  Alias ″ImmGetDescriptionA″ (ByVal hkl As Long, _
  ByVal lpsz As String, ByVal uBufLen As Long) As Long
  Private Declare Function ImmIsIME Lib ″imm32.dll″ (ByVal hkl As Long) As Long
  Private Declare Function ActivateKeyboardLayout Lib ″user32″ _
  (ByVal hkl As Long, ByVal flags As Long) As Long
  Private Declare Function GetKeyboardLayout Lib ″user32″ (ByVal dwLayout As Long)As Long
  Private Declare Function GetKeyboardLayoutName Lib ″user32″ Alias _
  ″GetKeyboardLayoutNameA″ (ByVal pwszKLID As String) As Long
  Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _
  (ByVal pwszKLID As String, ByVal flags As Long) As Long
 
  Const KLF_REORDER = &H8
  Private NoOfKBDLayout As Long, i As Long, j As Long
  Private hKB(24) As Long, BuffLen As Long
  Private Buff As String
  Private RetStr As String
  Private RetCount As Long
  Private kln As String

  Private Sub Command1_Click()
   If Combo1.ListIndex = -1 Then′如果用戶尚未選擇輸入法,顯示出錯信息
    MsgBox ″請先選擇一個輸入法″
    Exit Sub
   End If
   ′改變輸入法順序
   kln = String(8, 0)
   ActivateKeyboardLayout hKB(Combo1.ListIndex), 0
   res = GetKeyboardLayoutName(kln)
   res = LoadKeyboardLayout(kln, KLF_REORDER)
   ActivateKeyboardLayout hCurKBDLayout, 0
  End Sub

  Private Sub Form_Load()
   Buff = String(255, 0)
   hCurKBDLayout = GetKeyboardLayout(0) ′取得目前的輸入法
   NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) ′取得所有輸入法
   ′ReDim layoutlist(NoOfKBDLayout) As String
   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)
     Combo1.AddItem RetStr
    Else
     RetStr = ″English (American)″ ′英文輸入法
     Combo1.AddItem RetStr
    End If
   Next
   ActivateKeyboardLayout hCurKBDLayout, 0 ′恢復原來的輸入法
  End Sub

  運行后,在combobox中選擇目標輸入法,按下command即可。


[文章錄入員:sky365]

相關文章 相關書籍:
本站推薦內容

近期主機類熱搜關鍵詞:
美國服務器 美國服務器租用 海外服務器租用 國外服務器租用

Basic/VB類
C/C++/VC
C++Builder
Basic/VB類
Delphi/Pascal
Java編程
FORTRAN
其它
電腦教程閱讀排行
·VB學習一點通
·VB設計動畫時鐘
·在Visual Basic 6....
· 用VB6.0編寫手機短信發送 ...
·VB實現文件數據對SQL Ser...
·利用Visual Basic操作...
·VB實現圖像在數據庫的存儲與顯示
·用Visual Basic6.0...
·Visual Basic代碼優化...
· VB中實現“無標題”窗體的移動...
山东11选5