用VB读取和控制Windows的中文输入法

原创 2001年08月16日 15:02:00

 

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

VB实现对输入法的控制

可以调用系统方法Private Declare Function GetKeyboardLayoutList()Function GetKeyboardLayoutList Lib "user32" ...
  • SImonJ07
  • SImonJ07
  • 2007年07月26日 08:29
  • 1207

VB:读取MP3的Tag(对网上流行版本改进)

网上有一段关于VB读取MP3Tag的代码,但不支持中文。这里我对这个代码进行改进。这是我改进后的代码:Public Type Mp3tag        Artist   As String  Art...
  • upsuper
  • upsuper
  • 2005年11月11日 12:35
  • 1751

VB中操作Excel的一般做法(读取)

1、定义Excel操作变量Dim objExcelFile As Excel.ApplicationDim objWorkBook As Excel.WorkbookDim objImportShee...
  • venus0314
  • venus0314
  • 2006年01月09日 10:37
  • 3312

VB 获取外部LISTVIEW内容

VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   Client...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:27
  • 4949

利用VB实现对IE的调用与控制

随着网络应用的不断扩展,采用HTML语言编写的文档越来越多,如何在VB程序中实现对HTML文档的浏览是一个需要解决的问题。本文以一个实例说明了在VB中调用和控制Internet Explorer的方法...
  • yangguojian1985
  • yangguojian1985
  • 2006年05月27日 17:24
  • 731

实现windows操作系统和VB下Linux虚拟操作系统相互传取文件方式总结

实现windows操作系统和Linux虚拟操作系统相互传取文件方式总结
  • u014078192
  • u014078192
  • 2014年05月28日 10:33
  • 1404

用vb实现USB接口设备数据传送

用vb实现USB接口设备数据传送 本文介绍了USB设备中的人机接口,HID设备与主机通信的要点与方式。详细讲解了在VB中调用相关APl函数的方法,并介绍了一种基于USB总线的数据采集系统...
  • vippolka
  • vippolka
  • 2013年01月28日 16:50
  • 3222

VB调用Win32提取显卡信息,试用于其他Win32系统API

VB: On Error Resume Next Dim ye Dim yexj00 Set yexj00 = GetObject("winmgmts:{imperso...
  • mr_oldcold
  • mr_oldcold
  • 2016年11月19日 04:43
  • 424

vb 控制系统音量

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVa...
  • boys1999
  • boys1999
  • 2014年10月11日 12:24
  • 975

flash 与 vb 也能交互啦!

其实这是一个很容易解决的问题,可惜这个问题属于两不管的境遇,VB的书没有,FLASH的书也没有,对于不懂FLASH的VB写手就是个问题。 一、将FLASH插入VB窗体 在VB工程/部件的列表里找到...
  • cjr15233661143
  • cjr15233661143
  • 2012年04月24日 19:20
  • 4042
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB读取和控制Windows的中文输入法
举报原因:
原因补充:

(最多只允许输入30个字)