VB编程控制Windows中文输入法_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

VB编程控制Windows中文输入法

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:中文输入法控制编程
黑客防线网安网讯:  在Windows中我们可以用“Ctrl+Shift”键来调入或切换中文输入法,但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl+Shift”才能将习惯...

  在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即可。

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14762-1.html
网站维护教程更新时间:2012-04-03 01:14:00  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer