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

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
Android标题栏TitleBar全攻略 AsyncTask实例代码演示Android异步任务 重绘TextView类演示Android的Handler Android的SoundPool类使用与利弊 AsyncTask解决Android UI堵塞问题 Android自定义View实例AnalogClock源码 Android UI开发专题(五) Bitmap和Canvas实例 Android UI开发专题(四) View自绘控件 Android UI开发专题(三) 各种Drawable 提高Android开发效率-Eclipse快捷键大全 Android UI开发专题(二) 之绘图基础 Android UI开发专题(一) 之界面设计 Only the original thread that created a view hierarchy can touch its views的相关 Android上的Back键事件捕获 Android蓝牙API之BluetoothSocket类(2) Android蓝牙API之BluetoothSocket类 Android蓝牙API之BluetoothAdapter类(1) Android蓝牙API之BluetoothAdapter类(2) AndroidManifest.xml文件剖析 (三) AndroidManifest.xml文件剖析 (二) AndroidManifest.xml文件剖析 (一) MOTODEV初体验,高效Android开发工具 Simple让BASIC语言编写Android程序 MOTODev试用报告- Android开发效率之源 安装MOTODEV Studio for Android版方法 Android开发工具-motoDEV studio介绍 Android过后Chrome OS又是如何开发? Android安全模型导致开发时功能受限 Android导出一个JAR库 APK汉化原理及方法 APK文件格式分析,Android反编译入门(一) 在xsl中如何调用javascript 误删系统盘,救命!!! 请问ACCP和高程考试相比哪个更有份量? 求LeapFTP V2.7.3.600的注册码 5月6日我来CSDN的二周年,散分,纪念。。。。 listbox (湖南)今年非典搞得这样,会耽误报高程吗?今年有人报了吗?怎样报的? ComboBoxEx在 SetImageList 时出错 在DBComboBox中脸上数据库后,为什么进行选择时会出现“违反了Primary 约束“ 关于传递多值的问题 如何从recordset得到数据库的行号 用<%@ include file="xxx.jsp"%>出现的怪问题!求教 有关server.mappath()的问题 J2EE基础问题两三问,追加200分。 问题很简单,但我很急,请帮忙各位。 可用的UDDI 急救!自动隐藏Panel 帮忙 哪里有数据库系统开发的文档下载 急待解决的问题 请问从socket发信息,连续发送几个小数据包出错的情况!! 紧急问题,在线等待! 救命——存取违例 请问在VB中使用DAO控件怎样打开ACCESS数据库? 请问装vc6的sp5主要有什么作用啊 双网卡的局域网,如何让 CSocket 使用指定的网卡与另一电脑通讯? SQL删除不了相同的记录 JBuilder7中的中文问题 谁知道计算机的本地时间与系统时间有什么区别? 请问如何实现垂直显示文字?` JDOM高手看过来! 请问怎么在vb中调用纯c接口的api并实现多线程 如何实现任意长整数的运算? 程序移植,有多大的工作量??? 哪里有InstallShield Express的中文包D6自带的那个。 HELP ME! 请教:API中的数据类型与pb中的数据类型的对应关系 第一个进来给100分!哈哈,高兴!! 高分求翻译, 高手请进,就一句 TeeChart在那个组件栏中?我怎么找不到?(我是6.0的版本) 在哪里下载KPT7.0? 存储过程问题讨论!高手请进. 高人指点几行代码不难,只是我不懂 紧急问题,在线等待! 急问:在DROPDOWNLIST中如果只有一个下拉选择项怎么无法相应SelectedIndexChanged事件?该怎么做? 关于用DataGrid显示数据的问题 请高手相助 示例解析sqlDataAdapter中tablemappings的使用(在线给分)急!!! 我想让一条记录的其中四个字段成为ComboBox中的四个选项,如何做啊? 请问.netFrameWork里面没有提供Chart的类。 关于驱动编译的一个问题!100分! 美国脱口秀节目涉种族歧视 亚裔社团吁候选院士举报同行后退出增选 被举报人美将发放对巴基斯坦16亿美元援助款 上海警方破获百起街头掉包诈骗案:母子上海自贸试验区政府服务体验记:一月之少女卖春黄鳝血抹下体充处女 敲诈嫖客江苏11个违法用地重点地区被警示约谈江苏一诈骗团伙非法集资19亿 主犯被锯腿农民阻拦记者调查农村医保:不要管《我爱的是你爱我》发布会 风行网鼎力盐城一投资千万元地下通道荒废六年未用南京回应隧道贯通8年未通车:车流少封南京全面叫停“季建业时代”遗留雨污分杜海涛神似日本公主?盘点明星诡异撞脸南京一书店办裸体阅读图片展 称为提高南京一小学实行弹性放学制 允许学生延锯腿农民阻拦记者调查农村医保:不要管顾客超市停车场追尾 超市被判承担15快递员拒绝先验货后签收 买家扬言放狗金华女子偷肉被发现 脱光衣裤跳池塘劫匪一脚踩在温州姑娘脸上 逼其说出银台湾胖达人香精风波拖累母公司 董事辞奥运会举办地将揭晓 日官员称污水不影日本的“反弹”不啻警钟日本历史观倒退当受到国际谴责伦敦发现世界最古老地球仪 约在150楼顶违建实际数量仍较大 专家:管理 成品油调价窗口将至 年内第五次上调几平胸大赛走红 盘点全球各地奇葩赛事(日本加快产业“新陈代谢” 加大结构调阵雨击退“秋老虎” 兰州周末好凉爽城区段降至警戒水位还需11天 松干洪海口:男子酒后怀疑他人眼神不屑 18文化“四大馆”开展设计竞赛 将成广州“阳光发改”上线进一步为行政审批“提\"我在中国宁波,我愿意\"在网络上海曙区向市民招募志愿者 @海曙发布即台湾斥巨资建设南海太平岛码头 最快2国际新闻早报:美国向叙利亚附近海域增台湾南部多处淹水 马英九:不能掉以轻玩微信,刷微博……你家的长辈驾到了吗宋希斌在全市重点工业企业座谈会上指出
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘