说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何自动更动成中文输入

HTML文档下载 WORD文档下载 PDF文档下载
VB如何自动更动成中文输入

如果使用的VB5.0则,查看有没有一个属性是IMEMode,如果有就设定为1 代表开启,那
便可以每次进入这个Control项时就切换成中文输入。如果没有,那只好自己做。

'以下在.Bas
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Public Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long
Public Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As Long
Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70

PuBlic Sub Chg2Chinese(ByVal hwnd As Long) '传入Control项或Form 的hwnd
Dim hkb As Long
hkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout
If ImmIsIME(hkb) = 0 Then '代表不是中文输入
ImmSimulateHotKey hwnd, IME_THOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space
End If
End Sub

PuBlic Sub Chg2English(ByVal hwnd As Long) '传入Control项或Form 的hwnd
Dim hkb As Long
hkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout
If ImmIsIME(hkb) = 1 Then '代表是中文输入
ImmSimulateHotKey hwnd, IME_THOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space
End If
End Sub

'以下在Form
Private Sub Form_Load()
Call Chg2Chinese(Me.hwnd)
End Sub




VB使用枚举变量 VB使用数组做属性 VB使用未安装的字体 输入限制确认-VB资料 熟悉VB的集成开发环境 鼠标取词-VB资料 谈变VB中APP.PAHT的注意事项 探讨高效的排序合并算法-VB资料 剔除INI文件中的注释部分-VB资料 提取可执行文件中的图标-VB资料 添加记录到文档菜单-VB资料 突破 SendKeys 的限制-VB资料 突破SendKeys的限制 -VB资料 圖面背景透明的技巧-VB资料 退出并关闭 Windows-VB资料 托盘程序详解(二) -VB资料 托盘程序详解(一) -VB资料 我怎样确定我的程序是否在运行?-VB资料 无重复随机数序列产生器 -VB资料 显示打开方式对话框建立文件的关联 -VB资料 显示动画鼠标图标-VB资料 修复VB5启动时可能出现的一个bug 修改IE的环境菜单-VB资料 修改安装向导生成的缺省安装目录 -VB资料 修改屏保口令 -VB资料 修改屏幕保护的口令 -VB资料 旋转字体 -VB资料 延时函数-VB资料 一个关于乘法溢出问题的探讨 -VB资料 一组VB实用小程序 一组VB应用技巧 如何用不是SA的账户去激活SA级的作业? 关于execl向数据库复制的问题 >一起学习:VFP右键功能!< Tdatabase组件的应用 请问这个检索的SQL语句怎么写? 这样是否就一定安全了,高手进 为什么直接删除不行 asp.net问题,马上给分 在线请教各位一个简单的问题--请问oracle8哪里有的下栽,急!!!!!!! 谁给我Beyond 2003演唱会下载地址! 为什么同一存储文件的程序在win2000个人版下出现:"存储文件时的共享违例"但是在win2000 server下没有,请教各位大师 用什么程序,把用户的安全性调到最低(可以出现警告对话框)??? 在线等待,马上揭贴 谁知到哪里有下载Jbuilder啊。。 如何在Win2000下注册服务程序呢?分不够再加 请问:如何解决“JDBC 服务器”配置不受支持的问题。 万分火急!请大侠指教(100分立即给) 如何在窗体上动态加载图标? MM明天生日放分庆祝(一) 如何进入Java的门? APS.NET下Excel调用:如何让服务器端只运行一个Excel实例?如何结束Excel进程? 快来快来!出事儿啦! 3d效果的正方形!! 惭愧啊!这么简单的数据库问题我都不会,你会吗? 谁告诉我这个马甲“ FrameShare (大城市里的帅哥) ”是谁的,千分不在话下! 在线等待,马上揭贴 再發貼(grid中定位問題) 怎么把长度为8且首位为0的string类型的数据转换成对应的长整型,用什么函数?载线等!!!! 在panel上没有OnKeyPress事件,怎么样实现按键盘某键触发该Panel上的button事件 急急急!高分求解(在线等待) 我有个棘手的问题,不知道高手能否给我解决,关于vc安装的问题 几十万条查循纪录纪录,在WEB页面中分页显示问题?大虾帮忙!!!!! 如何连接SQL数据库 在线等待,马上揭贴 MM明天生日放分庆祝(二)来者有分 Dephi的浏览器控件比VB慢,占用资源也大些! 100分,请大家帮我把下面的文字译成英文,很简单的 parser.parse是什么意思:请看代码(在线等) 菜鸟提问,快请高手解答!谢谢了! 非常值得探讨的问题 VB中的有无现成反三角函数用?函数名是什么? 菜鸟提问,快请高手解答!谢谢了! 上传文件出错误,请问该如何解决 报道 花了两个多月写了一套购物程序,请大家测试测试 ADO操作大字段地问题,急!! 有关C++I/O流库write()和read()函数的问题. 关于线程的简单问题,在线急等 请问一个C#的基本问题! ADO错误,怎么回事? java绘图 我用commondialog1打开了个文件,如何用text1得到这个文件的路径? 英语翻译O produto deverá ter a capacidade de 600ml.Caso não seja nesta medida não serve para embalar o produto. 口技这段文字运用的修辞方法是 作文 很遗憾(很幸运),我是个女孩最好自己写的,要600字左右。不过,不管写得怎样,字数多少,都可以拿过来看看,有没有写很遗憾的? 英语 2题 a small English questionTowards _____evening,there was _____ heavy rain in the countryside.A.the; a B.an; 不填 C.不填; a D.the; 不填这题为什么选C不选A? encouragement是什么意思 a person of encouragement什么意思 Thanks for your encouragement Unmitigated encouragement为什么不是全然的鼓励,反而是“稍微有点批评”的意思? with one's encouragement 是不是在某人的鼓励之下的意思?有这个表达吗?我感觉像中国英语,请高手指教 角斗士英语共享版,注册与不注册的区别?!我购买了共享版的注册码,可怎么觉得跟没有注册时的一样呢?到底有什么区别啊,请具体一点回答 营改增助推行业企业升级 业内期望全行日媒称两艘中国军舰通过冲绳附近毗连区《行尸走肉第四季》弩哥达里尔帅气花絮奥巴马极力摆脱“监听门” 美国国安局超强飓风“吹乱”西北欧各国 已致16中国进出口银行巴黎分行正式挂牌营业朝鲜富人如何休闲?【组图】媒体称延迟退休多拿养老金偷换概念 犯罗援:两岸政治议题不能一拖再拖 有十黑龙江一公安局欠债18年不还 当地纪教科书作品付酬办法发布 文字作品每千宣扬一批典型催生一批人才洪某造谣海军涉腐投资项目在线审批实现有效监管存款保险条例出台构建金融安全屏障拍卖公告10年培养一支高层次立法人才队伍南昌:男子吸毒后携幼女跳桥现场个体户纳入预付卡管理范畴南京下调出租车“份子钱”以“四个全面”统领推进平安浙江建设广东纪委副书记被查
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘