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

VB如何用api检查任务栏中有多少种输入法

HTML文档下载 WORD文档下载 PDF文档下载
VB如何用api检查任务栏中有多少种输入法
'例1:取得目前所有的输入法
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 Sub Form_Load()
Dim NoOfKBDLayout As Long, i As Long, j As Long
Dim hKB(24) As Long, BuffLen As Long
Dim Buff As String
Dim RetStr As String
Dim RetCount As Long

Buff = String(255, 0)
hCurKBDLayout = GetKeyboardLayout(0) '取得目前keyboard layout
NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) '取得所有输入法的hkeys
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)" '假设我们的win95非Ime 者只有English
Combo1.AddItem RetStr '若有其他者,要去取得keyboardLayout
End If ' Name再去Registry中找其对应的名称
If hKB(i - 1) = hCurKBDLayout Then
Combo1.Text = RetStr
End If
Next
ActivateKeyboardLayout hCurKBDLayout, 0 '回复原来输入法
End Sub
End Function
控制声音音量-Delphi资料 让pc speaker美妙动听-Delphi资料 闪动标题栏-Delphi资料 使用 DirectX 优化声音特性-Delphi资料 修改Delphi 3图形处理中的错误 用Delphi 3.0编制MP3音乐点歌台 用Delphi编制MP3音乐点歌台 用Delphi编制趣味动画鼠标 用Delphi开发屏幕保护预览程序 用DEPHI3.0实现动画ABOUT窗口-Delphi资料 在Delphi下用Direct Sound 实现混音器组件 在Delphi中使用DirectX BDE的替代品大全(按数据库类型分)-Delphi资料 BDE的替代品大全(按应用类型分)-Delphi资料 bde的组态文件-Delphi资料 DBGrid中的下拉列表和查找字段编程方法-Delphi资料 Delphi 3.0 中 连 接 数 据 库 的 三 种 方 式 Delphi 3.0中连接数据库的三种方式 Delphi 4中开发数据库控件的方法 Delphi:MIDAS中动态强制约束编程 DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 sos!Help me! 有谁知道怎样用Capwnd控件(用于捕获视频的控件)?? 请帮我看看,谢了 请问如何控制imagecombo控件的下拉高度呢? 能告诉我什么是回调函数吗?注册的系统回调函数中引入的参数能在别的地方得到吗? 在RicheEdit里的字体颜色都是黑色,能变成其他颜色吗? 请问在视中如何使主框架的某个菜单项变为不可用(代码如下,错在什么地方,如何改?)! 请教VFP中GRID的显示和取值问题 请教一些有关用ROSE进行UML设计的问题 高薪寻找合作者:医院信息管理系统 求救!!!!为什么必须多按reset键才可以启动?? 請教: WideString如何存入數據庫image字段? 如何判断一个字符串是数字串?要源码(无内容) 登陆某些网站后浏览器的默认主页不能更改,怎么办???谢谢 请教简单的API函数的问题 ! 简单问题,怎么样得到下拉列表的选项?????最好有简单的原码 主  题:高薪寻找合作者:医院信息管理系统 上海机械电脑有限公司??? 小弟刚刚开始自学pb有好多问题想请教各位老大 HW待遇到底咋样??? 谁在CB里面用过游标? 关于网络协议软件的开发问题,编译成什么形式? 我是个新手,请教Linux下面C编程,该怎么入手,该看些什么样的书?来则有分!!!! 高分求源代码!又谁做过票据打印的软件!帮忙给点源代码! 如何执行insert 语句效率最高 数据窗口相同记录的判断??? 关于网络协议问题 求救,怎么判断试用版的试用天数? 关于IE的问题,help~~~ 请各位老大帮忙啊 请问如何串行化一个COLORREF变量,急---谢谢! 急,急,急,数据库更新的问题 win98下的DrawText api函数与Win200Server下的有什么不用呢? 评选水园“十大杰出青年”,请大家踊跃推荐(自荐)参评! 这个(Oracle)存储过程错在那?很简单,各位大虾看一下,一定给分!!谢谢啦!!!!! 好久不来了,有个问题请高手指点! 怎样设置SQL2000的某一字段为自动类型 熟悉GDI函数的朋友请进 如何屏蔽源代码 哪位大侠行行好,把我的密码屏蔽掉,只要不需输密码,分数一定不会少。 如何用PB制作DLL,请各位大师请教! 如何得到地址薄群組的具体用戶列表? 这里有谁用过mame编译器mingw,能否说说它的用法。先谢~~,up有分 有关win2000 server下病毒的问题 有點困惑,...... 哪里能找到最全的delphi自带的函数? 谁有CuteFtp Pro的注册码? 机器进不去系统,打开电源就听到一声响,就死在那里了,再开电源还是一样,怎么回事? 请问DELPHI里有没有对datetime变量操作的函数?? 请问BCB5生成的exe,dll怎么转成16bit的。 生活离不开阳光? 人类在开发各种能源的同时,引发了哪些环境问题?你认为该如何解决? 磨砂手机套怎么清洗可以用清水清洗么.或者可以用眼镜布弄湿来清洗么 如何加快环氧树脂AB胶的固化时间?固化时间如何控制? 人类开发能源引发了哪些环境问题,如何解决 橡胶是否透明\是否有弹性\是否容易导电 环氧树脂胶为何出现假固化现象? 什么胶水能粘得住泡沫啊?玻璃胶会腐蚀泡沫么?现在做航模呢 可是大大小小的装饰城都问了 都没有泡沫胶 一问就说 是发泡胶不啊?玻璃胶是硅酸的不知道会不会腐蚀泡沫.想一下什么胶水在 塑料是否透明?是否有弹性?是否容易导电?是否容易导热?是否有光泽? 使用杠杆千分表测量轴与圆柱同轴度时出现大的误差,先将测杆中心轴装在工件轴上,再将杠杆千分表(使用长测针)夹在测杆上进行测量.杠杆千分表夹在测杆上不同位置进行测量,测量误差很 如何去除玻璃上透明胶撕掉的痕迹? 木材是否透明?是否有弹性?是否容易导电?是否容易导热?是否有光泽? 千分尺能测量什么?卡尺与千分尺的功能有何区别? 请问我厨房水池的管和水池中间的缝隙要用什么,原来的损坏了一半了,是用玻璃胶还是泡沫胶?如果使用是不是要等到水池干了以后再封上? 与环保节约社会责任有关的手抄报如题我是学校的手抄报比赛,是要字多的 用千分尺怎样刚好就量到的就是外圆直径 有什么方法 请问厨房水池和下水管之间缝隙用什么胶?玻璃胶还是泡沫胶?(如图)用的时候是不是要等水池干了再用上 橡胶、木材、胶木、玻璃、塑料容易导电吗? 怎么举例说明人离不开地球再说说如果没有这一切,我们会怎么样?我上课要用! 怎样把5mmPVC板(1.22*2.44m)固定在玻璃上?用玻璃胶加泡沫胶能行吗 50分 橡胶、木材、胶木、玻璃、塑料哪写是非金属材料的性质 什么情况下会影响千分尺测量? 有什么不导电的金属?如题求教 如果没有的话一些较稳定的固体物质也可以的 怎么清洗洗衣机橡胶套 量铜丝的千分尺怎么使用,怎么使用千分尺测量出铜丝的粗细? 什么金属不导电 橡胶怎么清理 人类的生存和发展离不开( )和( ) 不导电的金属? 玻璃胶融化后会导电吗为什么?靠什么导电? 为什么木头不导电? 如何清除玻璃上的胶痕好用有实用, 而且不留檫痕,,表面 光泽 酸性玻璃胶是否会导电 为什么木头桌子导电桌子上是电脑 桌子是干的 木头的 用手腕轻轻的放在桌子上会有电 干木头为什么会导电 企业文化建设为什么要注重环境保护和可持续发展 关于节约资源保护环境的建议书 湿木头是如何导电的单独用水是不能导电的,为什么湿了水后,就可以导电了 金属为什么导电他与塑料有何不同.有不导电的吗 关于节约资源,保护环境的倡议书 地球是我们唯一的家园摊位人类生存与发展提供了什么什么和什么,我们的生活离不开地球 手机上的触摸屏玻璃是导电玻璃吗是什么型号的导电玻璃呢,知道的请帮忙回答, 关于节约资源、保护环境的倡议书号召班上的同学们,节约资源、保护环境 玻璃胶、泡沫胶弄到衣服上了,怎样才能弄掉呀 玻璃导电吗? 节约资源,保护环境的倡议? 碳为什么能导电?在电解铝的阳极炭块, 碳是非金属材料,非金属的结构,我想知道碳导电的机理是什么?除了碳还有什么非金属能导电? 什么是导电玻璃,起什么作用?导电玻璃和一般的玻璃有什么区别? 玻璃是否有弹性?是否容易导电?是否容易导热?是否有光泽?快啊~~~~~~~~~~~~~~~ 干木头为什麽不会导电? 酷派5910橡胶手机套怎么洗才洗的干净? 怎么样防止木材开裂,室外木质地板开裂 千分尺测量问题请问我如果要测试的是大约一张纸那么薄的金属片..24张金属片..最最薄的可能只有复写纸那么薄,厚的也不过一毫米..千分尺能搞定吗?金属片厚度都不同.不是叠放.是单独测量. 西安哪里有卖海绵橡胶或者泡沫橡胶的? 导电玻璃是怎样导电的?哪能买得到? 举例说明我们的生活离不开光? 在手不碰到水的情况下带水的木头筷子导电吗? 如何清洗手机套 有没有什么植物或生物生存不需要阳光?如果有,请把那种生物介绍尽量详细一点,感激不尽! 人类的能源主要有哪些.这些能源的开发利用前景如何.对环境影响如何 玻璃可以导电吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn