用API控制输入法状态

在VB中，某些控件具有输入焦点，却没有IMEMode属性，比如RichTextBox，为了方便在这些控件中控制输入法状态，俺编写了这个函数，代码如下：

Option Explicit '* ************************************************************** * '* 程序<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>：modIME.bas '* 程序<a href="https://www.jb51.cc/tag/gongneng/" target="_blank" class="keywords">功能</a>：用API控件输入法状态 '* 作者：lyserver '* 联系方式：http://blog.csdn.net/lyserver '* ************************************************************** * Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long,lpList 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 Const KLF_SETFORPROCESS = &H100 '打开或<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a><a href="https://www.jb51.cc/tag/zhongwen/" target="_blank" class="keywords">中文</a>输入法 Public Sub SetImeMode(bMode As Boolean) 'True打开、False<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a> Dim i As Long Dim hCurKB As Long Dim hKB() As Long,KBCount As Long hCurKB = GetKeyboardLayout(0) '获得当前输入法句柄 If CBool(ImmIsIME(hCurKB)) <> bMode Then KBCount = GetKeyboardLayoutList(0,ByVal 0&) ReDim hKB(KBCount - 1) GetKeyboardLayoutList KBCount,hKB(0) For i = 0 To KBCount - 1 If CBool(ImmIsIME(hKB(i))) = bMode Then ActivateKeyboardLayout hKB(i),KLF_SETFORPROCESS Exit For End If Next End If End Sub @H_<a href="https://www.jb51.cc/tag/403/" target="_blank" class="keywords">403</a>_4@ </p><i class="glyphicon glyphicon-link"></i> 原文链接：https://www.f2er.com/vb/263079.html</div> <div class="topcard-tags"></div> <ul class="list-group"> <li class="list-group-item"><a href="https://www.f2er.com/vb/263080.html" title="托管与非托管">上一篇：托管与非托管</a><a href="https://www.f2er.com/vb/263078.html" title="用VB使用花式画笔实现流动的选取框" class="text-muted pull-right">下一篇：用VB使用花式画笔实现流动的选取框</a> </li> </ul> </div> </div> </div>  <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <ins class="adsbygoogle" style="display:block" data-ad-format="autorelaxed" data-ad-client="ca-pub-4605373693034661" data-ad-slot="9144498553"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script></div> </div> </div> <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <div class="title"><h1>猜你在找的VB相关文章</h1></div> <div class="list_con"> <a href="https://www.f2er.com/vb/802176.html" title="VB Format函数"><div class="title">VB Format函数</div> <div class="summary">Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802175.html" title="vb6/ASP FORMAT MM/DD/YYYY"><div class="title">vb6/ASP FORMAT MM/DD/YYYY</div> <div class="summary">VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802174.html" title="VB.net 捕获项目全局异常"><div class="title">VB.net 捕获项目全局异常</div> <div class="summary">在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802173.html" title="实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法"><div class="title">实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法</div> <div class="summary">转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802172.html" title="vb，wps，excel 分裂"><div class="title">vb，wps，excel 分裂</div> <div class="summary">Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div style="border-bottom: 1px solid #f4f4f4;margin-top:20px;"> <ins class="adsbygoogle" style="display:block" data-ad-format="fluid" data-ad-layout-key="-fr-2o+fp-dx-wx" data-ad-client="ca-pub-4605373693034661" data-ad-slot="4561116489"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div><div class="list_con"> <a href="https://www.f2er.com/vb/802170.html" title="VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）"><div class="title">VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）</div> <div class="summary"> Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802169.html" title="VB.NET 使用ADODB連接資料庫滙出到EXCEL"><div class="title">VB.NET 使用ADODB連接資料庫滙出到EXCEL</div> <div class="summary">‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Di...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802168.html" title="vb.net 多线程運用 ping"><div class="title">vb.net 多线程運用 ping</div> <div class="summary">Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802167.html" title="VB等待进程结束"><div class="title">VB等待进程结束</div> <div class="summary">VB运行EXE程序，并等待其运行结束参考：https://blog.csdn.net/useway/article/details/5...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div class="list_con"> <a href="https://www.f2er.com/vb/802166.html" title="vb中去掉string数组的一部分"><div class="title">vb中去掉string数组的一部分</div> <div class="summary">今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号因为登陆的时...</div> <time class="summary">作者：前端之家时间：2020-08-07</time> </a> </div> <div style="border-bottom: 1px solid #f4f4f4;margin-top:20px;"> <ins class="adsbygoogle" style="display:block" data-ad-format="fluid" data-ad-layout-key="-fr-2o+fp-dx-wx" data-ad-client="ca-pub-4605373693034661" data-ad-slot="4561116489"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div></div> </div> </div> </div>   <div class="col-sm-12 col-md-12 col-lg-3">  <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">编程分类</label> <div class="cate mt-20"><a href="https://www.f2er.com/php/" title="PHP">PHP</a><a href="https://www.f2er.com/java/" title="Java">Java</a><a href="https://www.f2er.com/javase/" title="Java SE">Java SE</a><a href="https://www.f2er.com/python/" title="Python">Python</a><a href="https://www.f2er.com/csharp/" title="C#">C#</a><a href="https://www.f2er.com/c/" title="C&C++">C&C++</a><a href="https://www.f2er.com/ruby/" title="Ruby">Ruby</a><a href="https://www.f2er.com/vb/" title="VB">VB</a><a href="https://www.f2er.com/aspnet/" title="asp.Net">asp.Net</a><a href="https://www.f2er.com/go/" title="Go">Go</a><a href="https://www.f2er.com/Perl/" title="Perl">Perl</a><a href="https://www.f2er.com/netty/" title="netty">netty</a><a href="https://www.f2er.com/django/" title="Django">Django</a><a href="https://www.f2er.com/delphi/" title="Delphi">Delphi</a><a href="https://www.f2er.com/jsp/" title="Jsp">Jsp</a><a href="https://www.f2er.com/netcore/" title=".NET Core">.NET Core</a><a href="https://www.f2er.com/spring/" title="Spring">Spring</a><a href="https://www.f2er.com/flask/" title="Flask">Flask</a><a href="https://www.f2er.com/springboot/" title="Springboot">Springboot</a><a href="https://www.f2er.com/springmvc/" title="SpringMVC">SpringMVC</a><a href="https://www.f2er.com/lua/" title="Lua">Lua</a><a href="https://www.f2er.com/laravel/" title="Laravel">Laravel</a><a href="https://www.f2er.com/mybatis/" title="Mybatis">Mybatis</a><a href="https://www.f2er.com/asp/" title="Asp">Asp</a><a href="https://www.f2er.com/groovy/" title="Groovy">Groovy</a><a href="https://www.f2er.com/thinkphp/" title="ThinkPHP">ThinkPHP</a><a href="https://www.f2er.com/yii/" title="Yii">Yii</a><a href="https://www.f2er.com/swoole/" title="swoole">swoole</a><div class="clearfix"></div> </div> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card">  <ins class="adsbygoogle" style="display:block" data-ad-client="ca-pub-4605373693034661" data-ad-slot="7756441254" data-ad-format="auto" data-full-width-responsive="true"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">最新文章</label> <ul class="n-list"><li><a href="https://www.f2er.com/vb/802176.html" title="VB Format函数" target="_blank">• VB Format函数</a></li> <li><a href="https://www.f2er.com/vb/802175.html" title="vb6/ASP FORMAT MM/DD/YYYY" target="_blank">• vb6/ASP FORMAT MM/DD/YYY</a></li> <li><a href="https://www.f2er.com/vb/802174.html" title="VB.net 捕获项目全局异常" target="_blank">• VB.net 捕获项目全局异常</a></li> <li><a href="https://www.f2er.com/vb/802173.html" title="实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法" target="_blank">• 实现用VB.Net/(C#)开发K/3</a></li> <li><a href="https://www.f2er.com/vb/802172.html" title="vb，wps，excel 分裂" target="_blank">• vb，wps，excel 分裂</a></li> <li><a href="https://www.f2er.com/vb/802171.html" title="VB文件 hash 查看器" target="_blank">• VB文件 hash 查看器</a></li> <li><a href="https://www.f2er.com/vb/802170.html" title="VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）" target="_blank">• VB.NET MYSQL DataGridVie</a></li> <li><a href="https://www.f2er.com/vb/802169.html" title="VB.NET 使用ADODB連接資料庫滙出到EXCEL" target="_blank">• VB.NET 使用ADODB連接資料</a></li> <li><a href="https://www.f2er.com/vb/802168.html" title="vb.net 多线程運用 ping" target="_blank">• vb.net 多线程運用 ping</a></li> <li><a href="https://www.f2er.com/vb/802167.html" title="VB等待进程结束" target="_blank">• VB等待进程结束</a></li> </ul> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card"> <label class="main-content-label ">热门标签 <span class="pull-right tx-12"> <a href="https://www.f2er.com/all" target="_blank">更多 ►</a></span> </label> <div class="topcard-tags"><a href="https://www.f2er.com/tag/wenjianshijian/" title="文件时间" target="_blank">文件时间</a><a href="https://www.f2er.com/tag/pythonm/" title="pythonm" target="_blank">pythonm</a><a href="https://www.f2er.com/tag/xiangdengxing/" title="相等性" target="_blank">相等性</a><a href="https://www.f2er.com/tag/PHPWarning/" title="PHP Warning" target="_blank">PHP Warning</a><a href="https://www.f2er.com/tag/shijianwenti/" title="时间问题" target="_blank">时间问题</a><a href="https://www.f2er.com/tag/wentijiejue/" title="问题解决" target="_blank">问题解决</a><a href="https://www.f2er.com/tag/pcntlsignal/" title="pcntl_signal()" target="_blank">pcntl_signal</a><a href="https://www.f2er.com/tag/caiyangdian/" title="采样点" target="_blank">采样点</a><a href="https://www.f2er.com/tag/wavmokuai/" title="wav模块" target="_blank">wav模块</a><a href="https://www.f2er.com/tag/dongtaiwenben/" title="动态文本" target="_blank">动态文本</a><a href="https://www.f2er.com/tag/diaoyongpinlvxianzhi/" title="调用频率限制" target="_blank">调用频率限制</a><a href="https://www.f2er.com/tag/duiwaibaolu/" title="对外暴露" target="_blank">对外暴露</a><a href="https://www.f2er.com/tag/duogefangwenqingqiu/" title="多个访问请求" target="_blank">多个访问请求</a><a href="https://www.f2er.com/tag/gengxinshujubiao/" title="更新数据表" target="_blank">更新数据表</a><a href="https://www.f2er.com/tag/moxingjiegou/" title="模型结构" target="_blank">模型结构</a><a href="https://www.f2er.com/tag/typefangfa/" title="type()方法" target="_blank">type()方法</a><a href="https://www.f2er.com/tag/bijiaosudu/" title="比较速度" target="_blank">比较速度</a><a href="https://www.f2er.com/tag/shouxieti/" title="手写体" target="_blank">手写体</a><a href="https://www.f2er.com/tag/sobelsuanzi/" title="sobel算子" target="_blank">sobel算子</a><a href="https://www.f2er.com/tag/baocunmoxing/" title="保存模型" target="_blank">保存模型</a><a href="https://www.f2er.com/tag/Imagelei/" title="Image类" target="_blank">Image类</a><a href="https://www.f2er.com/tag/nnConv2d/" title="nn.Conv2d" target="_blank">nn.Conv2d</a><a href="https://www.f2er.com/tag/pytorch10/" title="pytorch1.0" target="_blank">pytorch1.0</a><a href="https://www.f2er.com/tag/kaggle/" title="kaggle" target="_blank">kaggle</a><a href="https://www.f2er.com/tag/DCGAN/" title="DCGAN" target="_blank">DCGAN</a><a href="https://www.f2er.com/tag/jiaobingbi/" title="交并比" target="_blank">交并比</a><a href="https://www.f2er.com/tag/rangeyongfa/" title="range()用法" target="_blank">range()用法</a><a href="https://www.f2er.com/tag/dayinmoxing/" title="打印模型" target="_blank">打印模型</a><a href="https://www.f2er.com/tag/fanjuanji/" title="反卷积" target="_blank">反卷积</a><a href="https://www.f2er.com/tag/juanji/" title="卷积" target="_blank">卷积</a></div> </div> </div> </div>   <div class="row row-sm"> <div class="col-sm-12 col-md-12 col-lg-12"> <div class="card">  <ins class="adsbygoogle" style="display:block" data-ad-client="ca-pub-4605373693034661" data-ad-slot="7756441254" data-ad-format="auto" data-full-width-responsive="true"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script> </div> </div> </div>  </div>  </div> </div> <footer id="footer"> <div class="container"> <div class="row hidden-xs"> <dl class="col-sm-6 site-link"> <dt>最近更新</dt><dd><a href="https://www.f2er.com/faq/884225.html" title="jQuery选择伪元素：after" target="_blank">· jQuery选择伪元素：after</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884224.html" title="JavaScript随机颜色生成器" target="_blank">· JavaScript随机颜色生成器</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884223.html" title="JavaScript指数" target="_blank">· JavaScript指数</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884222.html" title="addResourceHandlers无法解析静态资源" target="_blank">· addResourceHandlers无法解析静态资源</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884221.html" title="如何将字节数组转换为MultipartFile" target="_blank">· 如何将字节数组转换为MultipartFile</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884220.html" title="在java中如何创建一个文件并写入内容？" target="_blank">· 在java中如何创建一个文件并写入内容？</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884219.html" title="星号*在Python中是什么意思？" target="_blank">· 星号*在Python中是什么意思？</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884218.html" title="Flask框架：MVC模式" target="_blank">· Flask框架：MVC模式</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884217.html" title="在JavaScript对象数组中按ID查找对象" target="_blank">· 在JavaScript对象数组中按ID查找对象</a><span class="text-muted pull-right">10-20</span></dd> <dd><a href="https://www.f2er.com/faq/884216.html" title="使用Javascript / jQuery下载文件" target="_blank">· 使用Javascript / jQuery下载文件</a><span class="text-muted pull-right">10-20</span></dd> </dl> <dl class="col-sm-4 site-link"> <dt>好站推荐</dt><dd> <a href="https://www.runoob.com" title="菜鸟教程(www.runoob.com)提供了编程的基础技术教程, 介绍了HTML、CSS、Javascript、Python，Java，Ruby，C，PHP , MySQL等各种编程语言的基础知识。同时本站中也提供了大量的在线实例，通过实例，您可以更好的学习编程。" target="_blank">菜鸟教程</a></dd><dd> <a href="https://www.jb51.cc" title="编程之家(www.jb51.cc)是成立于2017年面向全球中文开发者的技术内容分享平台。提供编程导航、编程问答、编程博文、编程百科、编程教程、编程工具、编程实例等开发者最需要的编程技术内容与开发工具支持，与你一起学习编程，相信编程改变未来！" target="_blank">编程之家</a></dd><dd> <a href="https://www.f2er.com" title="前端之家 f2er.com 前端开发人员所需学习知识手册。" target="_blank">前端之家</a></dd></dl> <dl class="col-sm-2 site-link"> <dt>商务合作</dt> <dd><a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=76874919&site=qq&menu=yes">联系我们</a></dd> </dl> </div> <div class="copyright"> Copyright © 2019 前端之家. 当前版本 V7.0.16<br> <span class="ml5">前端之家版权所有 <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">闽ICP备13020303号-10</a></span> </div> </div> </footer> <script type="text/javascript" src="https://www.f2er.com/js/base.js"></script> </body> </html>