在WinForm中屏蔽中文输入法

　　在WinForm的开发中，有时有些特殊的要求。例如：在某个Form上彻底屏蔽中文输入法，使之不能切换到中文输入，不能进行中文输入。

　　这个问题看上去简单，实现起来并没有想象中的简单。下面，把我做的几个实验依次列举，就会发现，其实实现起来还是有一定难度的。

　　实验一：

　　1、新建项目，建立两个Form，分别为Form1、Form2。Form1为启动Form。

　　2、Form1上有一个TextBox和Button。

　　点击Button，执行下面语句

　　Me.Hide()

　　Form2.Show()

　　3、Form2上有一个TextBox，TextBox的ImeMode属性设为close，意思为关闭输入法模式。

　　在Form2的FormClosed事件中执行下面语句。

　　Form1.Show()

　　好，现在来测试这个实验。嗯，很不幸，在Form2中TextBox中很顺利的切换了中文输入法，输入了中文。试验失败。

　　实验二：

　　继续实验一，找了相关的资料，发现有一个InputLanguageChanging事件，似乎可以控制输入法的切换。

　　4、在Form2的TextBox的InputLanguageChanging事件中添加如下代码

　　e.Cancel = True

　　来测试一下。貌似试验成功了，按照实验一的测试，在Form2中TextBox已经不能切换输入法了。

　　为何是貌似呢？我们再重新测试一番，就有问题了。

　　先在Form1中的TextBox中切换成中文输入法。然后点击Button，切换到Form2，你再Ctrl+Space，发现在Form2中的TextBox里出现了熟悉的中文输入法。呵呵，实验二不能算成功的。

　　分析实验二为何不能成功。我想关键就是在切换到Form2之前，我就已经切换成中文输入法。那如果在切换Form2之前就把输入法钉死在系统的默认输入法如何？

　　实验三：

　　1、先在Form1中添加如下代码

　　　　Private　Sub　SetDefaultInputLanguage()
　　　　　　InputLanguage.CurrentInputLanguage　=　InputLanguage.DefaultInputLanguage
　　　　End　Sub

　　2、点击Form1的Button，执行下面语句

　　Call SetDefaultInputLanguage()

　　Me.Hide()

　　Form2.Show()

　　嗯，测试一下，这次成功了。就算能用鼠标在Form2中TextBox更改输入法，可是TextBox中仍然只能用英文输入。

　　把上面的三个实验总结一下。要想在WinForm中屏蔽输入法。三个要素：

　　1、TextBox的ImeMode为Close

　　2、在TextBox的InputLanguageChanging事件中添加e.Cancel = True

　　3、在切换到当前Form之前要切换到默认输入法

　　InputLanguage.CurrentInputLanguage = InputLanguage.DefaultInputLanguage

　　备注：

　　这次三个实验比较顺利。之前在做实验的时候还碰到奇怪的地方，导致试验失败，后来想想，可能是微软输入法的原因，这次实验时用的是微软2007输入法，之前的实验用的是微软2003输入法。

　　我把之前实验奇怪的地方也书写下来，并给出解决的方法。和各位网友交流。

　　1、如果内存中有两个Form的实例，实验不会成功。

　　解决办法是：将Me.Hide改为Me.Close。在内存中只保留一个Form　　　　

　　2、如果系统有微软2003输入法，并且在Form1中的TextBox就切换成微软输入法，实验也不会成功。

　　解决办法是：先切换为第一个不是微软输入法的中文输入法，再切换为默认输入法。代码如下：

　　　　Private　Sub　SetDefaultInputLanguage()
　　　　　　Dim　i　As　Integer,　j　As　Integer
　　　　　　j　=　0
　　　　　　For　i　=　1　To　InputLanguage.InstalledInputLanguages.Count　-　1
　　　　　　　　If　InputLanguage.InstalledInputLanguages(i).LayoutName.IndexOf("微软")　<　0　Then
　　　　　　　　　　j　=　i
　　　　　　　　　　Exit　For
　　　　　　　　End　If
　　　　　　Next
　　　　　　InputLanguage.CurrentInputLanguage　=　InputLanguage.InstalledInputLanguages(j)
　　　　　　InputLanguage.CurrentInputLanguage　=　InputLanguage.DefaultInputLanguage
　　　　End　Sub

　　为何是这样，我不知道，我是碰到这个情况，并反复试验才得出的解决方案。

　　出处：http://grenet.cnblogs.com/

(责任编辑：admin)