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

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
【技术博客推荐】创客程序员设计实现最小物联网系统 MySQL还是NoSQL:开源盛世下的数据库该如何选择 利用Hadoop Streaming处理二进制格式文件 如果没有强大的API,那么还是与OpenStack兼容吧 企业社交工具为何走向衰退? 封闭还是开放?雅虎禁止用户使用Facebook、谷歌ID登录和使用其服务 【OSTC讲师专访】罗聪翼:付出和回报在开源世界成正比 近匠:“词Ci”——全栈“女神”如何诠释倾城之美 国内首届引擎黑客松Cocos2d-x Hackathon即将开赛! 抛弃CloudStack,GoDaddy加入OpenStack PaaS平台之争:Cloud Foundry是赢家吗? 投资超140亿美元,涨幅达30%,数据密集型应用将占领第三平台 汽车开放平台:看看通用汽车是怎么做API的 Gamebase将推全新跨平台3D游戏引擎Reach3dx 借助API Telegram能否成为第二个WhatsApp 机器学习也感性:90后软妹纸的编程之路 为安防与视频监控而生 西数紫盘首发 秘闻:鲍尔默离职,或与坚持收购诺基亚有关 【OSTC讲师专访】Thomas Yao:开源社区最缺有能力的领导者 对比MySQL,你究竟在什么时候更需要MongoDB 不以“大小”论英雄,对比IBM、AWS,谁才是Hadoop界的MVP? 参加“我们都用JIRA”视频征集大赛 赢取乐视TV超级电视 开发者下一个待开发市场:印度 一周消息树:80%开发者背井离乡,70%经常加班 移动周报:最受欢迎的跨平台开发工具推荐 研发周报:Mt.Gox破产,都是错误编程惹的祸 数据挖掘+人工智能,教育定制化下的学霸量产 通过700合作伙伴的进一步细分,Google变得越来越像微软 一周热点:高薪必备:Hadoop求职者的6大攻略 谷歌Android主管:两周内为开发者推出可穿戴设备SDK 【OSTC讲师专访】魏子钧: “中国式开源”没有“然后” SQL Server 存储过程中错误处理问题,请教高手 請教: ADO 的 RecordSet 的打開方式和鎖方式 如何选择三层架构的中间件产品? 小呆猫谢谢了,再请教一下。。。 我想问一下,如何能在程序中锁定键盘和鼠标 西摩斯(厦门)医疗软件开发有限公司急招精通Delphi,MS SQL Sever软件设计师! 大家帮忙啊... 关于 int[][][] a = new int[3][3][3] 再问clavy(有巢无车氏) 和 wqxtt(wqxtt) 关于WINCE 下ACCESS 与 WINDOWS 下ACCESS 的转换 关于C/S结构的问题?快帮我啊!!! 各位programer加班有加班工资吗? 代理服务器的原理?——有谁知道! 请问怎么在一个对话框程序的文本框中绘图 请问windows网络程序PING编程技术里的几个问题,ICMP回显里面的timestamp是怎么纪录进去的 什么地方可以Down rose?或谁寄给我一个? 编写一个函数,通过指针连接两个字符串!!!!!!!!!!!! 用applet怎样打开一个文件吗? 请问哪种ORB产品实现了com服务器/corba客户机的桥 我读《深入探索C++对象模型》的感受,cber能再回答我一次么? 谁有DELPHI的有关网络编程方面的资料?给我一份可以吗? 关于stringgrid的问题????? 痛苦啊,难道要放弃BCB吗? 大家认为在开发过程中是否不能用全局变量? 如何让LINUX支持我显卡 高手,谁来帮我一下~! 取字符 在SDK中,如何获得客户区的宽度和高度呢??(哪两个函数呢?) 哪里有ATL的电子书下载?最好是中文的! 高手谁能帮帮我呀~~~~~~~! 请教:如何在statusbar的panel中显示一个图标呢? VC++中如何使用OLE对象? 初来乍到,发现这儿JJMM还挺多的。。。 请高人指教~! CSDN中碰到这种问题,该如何解决呢? 如何学习director 你能帮我一下吗?~ 企业商务管理软件,开放全部的源代码及开发文档! 企业管理软件,全套源码及开发文档!!!! 哪里有支持任何波特率的通讯控件下载? net_lover(孟子E章)请进~! 一个有关CWebBrowser的问题,急急急!!! 这样的语句为什么不可以实现一次删除多条记录 plmm是什么意思? 各位大侠,知道哪儿有直接可用的上传文件的控件吗? 多谢了!!! 论坛的题目是不是太没意思了 一个sqlserver7统计的问题?? varchar类型不是可以输入255个字符吗,为什么我输了160个就出现'item XXX doesn't pass validation test ' 唉 ~~~~~ 奈何 ~~~~~ 突然想到个荒唐的问题: 事件和过程有什么不同? 奇怪的事前,高手请进来 我的问题还没有解决~! 如图:己知∠BAD=∠CBE∠ACF,∠FDE=58∠DEF=45,求三角形ABC各内角的度数 在锐角三角形abc中,角A=2角B,则b/b+c的范围 已知,如图,在三角形abc中,AD,AE分别是三角形ABC的高和角平分线,试问角DAE与角C-角B有怎样的数量关系,说明理由 如图.在三角形abc中,ab=ac,点d,e,f分别在bc,ab,ac上,bd=cf,be=cd,角fde=58°,求角c的度数 在锐角三角形ABC中,角ABC所对边为a.b.c已知b=2,c=3,sinA=(2√2)/3求三角形ABC的面积及a的值 如图,已知,AF分别是两个钝角三角形ABC和三角形ABE的高,如果AD=AF,AC=AE,求证:BC=BE 在三角形ABC中,角A、角B、角C的对边分别是a、b、c,下列条件中,能判断三角形ABC为直角三角形的是( )A.a+b=c B.a:b:c=3:4:5C.a=b=2c C.∠A=∠B=∠C 在锐角三角形ABC中,根号3a=2csinA(1)确定角C大小.(2)若c=根号7,且三角形ABC的面积为3倍根号2/2,求a+b的值. 已知:如图,AD,AE分别是三角形ABC和三角形ABD的中线.如图,AD,AE分别是三角形ABC和三角形ABD的中线,且BA=BD.求证:AE=二分之一AC. 在△ABC中,∠A,∠B,∠C的对边分别是a,b,c判断该三角形是否是直角三角形?并指出哪一个角是直角?(1)a=根号3,b=2根号2,c=根号5 (2)a=5,b=7,c=9 (3)a=2,b=根号3,c=根号7 (4)a=5,b=2根号6,c=1 在锐角三角形ABC中,角A,B,C的对边分别为a,b,c,且根号下3a=2csinA (在锐角三角形ABC中,角A,B,C的对边分别为a,b,c,且根号下3a=2csinA (1)求角C的大小; (2)若c=√7,a+b=5求三角形的面积 如图,AD是三角形ABC的中线,AE垂直AC,AF垂直AB,且AE=AC,AF=AB,求证:AD=1/2EF 在直角三角形ABC中,角C=90度,过点B作BD平行AC且BD=2AC连结AD判断三角形ABD...在直角三角形ABC中,角C=90度,过点B作BD平行AC且BD=2AC连结AD判断三角形ABD形状并说明理由(角C=90度,就是一个直角梯形上底 在锐角三角形ABC中,a,b,c分别为角A,B,C所对的边,且√3a=2csinA.(I)确定角C的大小: 如图,三角形ABC中,角BAC等于120度,AD垂直BC于D,且AB+BD等于DC,求角C的度数 如图,在△ABC中,AB=AC,以AB为直径的圆O交AC于E,交BC与D,求证:(1)D是BC的中点(2)△BEC相似于△ADC(3)BC平方=2AB*CE 在直角三角形ABC中,角C=90度,若A+B=13,且该三角形的面积是22.,则C等于-----. 在锐角三角形ABC中,a b c 分别是角A B C的对边,且√3a-2csinA=0①求角c大小②若C=2,求a+b的最大值 在△ABC中,AB=AC,以AB为直径的⊙O交AC于点E,交BC于点D.求证 (1)△BEC∽△ADC (2)BC²=2AB·CE如图 在直角三角形ABC中,角C=90度,其中a:b=3:4,c=40求三角形ABC的面积? 在锐角三角形ABC中,已知a=6,c=2√3.三角形ABC的面积为3√3,则角B等于多少? 如图,在△ABC中,AB=AC,以AB为直径的圆O交AC于点E,交BC于点D.求证 (1)点D是BC中点 (2)△BEC~△ADC(3)BC²=2AB X CE 在直角三角形ABC中,a+b+c=90,且a=40,求三角形ABC的面积 在三角形ABC中,A,B为锐角,角A,B,C所对的边分别是a,b,c,且sinA=√5/5,sinB√10/10(1)求A+B的值(2)若a-b=√2-1,求a,b,c的值 如图在三角形ABC中∠ACB=90CD垂直AB与D∠BAC的平分线交CD于E过E点作EF‖AB交BC于F求证CE=FB图传不上来 在直角三角形ABC中,角C=90度,若A+B=13,该三角形的面积是22,则c=--------. 在三角形ABC中,∠A=90°,角平分线AE,中线AD,高AH的大小关系为 三角形ABC中,∠C=90°,CD垂直AB于点D,∠BAC的平分线交CD于E,过点E做EF平行于AB,交BC于F,求证:FB=CE 在直角三角形abc中,角c=90度,已知a:b=3:4,c=10,求三角形面积 在三角形ABC中,角A=90°,角平分线AE、中线AD、高AH的大小关系是? 已知,如图,在三角形ABC中,角ACB=90度,CD垂直AB,AE是角CAD的平分线,过点E作EF平行于BC交AB于F,求证:CE=EF 在直角三角形ABC中,角C等于90°,AB、BC、CA的长分别为c.a.b,求三角形ABC的内切圆 在三角形ABC中,AE,AD,AH分别是角平分线、中线、高线,角A=90°的大线关系是? 已知三角形abc中,角ACB=90°,CA=CB,CD垂直AB于D,CE平分角BCD交AB于E,AF平分角A交CD于F.求证:EF平行BC 用反证法证明:三角形ABC中至少有两个角是锐角.请写明过程. 已知三角形ABC中AB=AC,AD和BE是三角形ABC的高,相交点H,且AE=BE求证AH=2BD 如图,在三角形ABC中∠BAC=90度,AD垂直于BC于点D,CE平分∠ACB,交AD于点G,交AB于E,EF垂直于BC于F,求证:四边形AEFG是菱形 已知:锐角三角形ABC中,角B=2角C,求证:角A>45度.(用反证法证明) 在三角形ABC中,AB=AC,高AD,BE相交于H,且AE=BE,试说明AH=2BD.自己画图 三角形ABC是圆O的内接三角形.AC=BC.D为圆O中弧AB上一点.延长DA至点E.使CE=CD 求证AE=BD 已知锐角三角形ABC中,角B=2倍的角C,用反证法证明角A>45度 在三角形ABC中,AB=AC,AD和BE是高,它们相交于点H,且AE=BE.求AH=2BD在星期6晚上截止,有急用~图自己画吧... 在三角形ABC中.BD,CE分别是边AC,AB上的中线.点M是三角形BEC的重心点N是三角形BCD的重心 求MN:BC 用反证法证明:在三角形ABC中,若角C是直角,则角B一定是锐角.马上要, 已知 如图,在三角形abc中,AD,AE分别是三角形ABC的高和角平分线,若角B=30°,角C=50°.【1】求角DAE的度数(已解);【2】试写出角DAE与角C-角B有何关系(证明) 如图,已知 ∠ABC=∠ACB CE⊥AB于E BD⊥AC于D △BEC≌△CDB么 用反证法证明:在三角形ABC中,若C=90度,则角B一定是锐角 AD,AE分别是三角形ABC的高和角平分线,若角B=30度,角C等于50度,求角EAD的度数 已知,如图,在等边△ABC中,点D,E分别在BC,AC上BD=CE,AD与BE交与F.求:如果AB=12,BD=4,求S△BDF:S△BEC 已知三角形ABC,角ABC分别对应边abc 且1/a+1/c=2/b.证明角B是锐角 三角形ABC中,AD、AE分别是三角形ABC的高和角平分线,∠C=60°∠B=28°求∠DAE 如图,在△abc中,ab=ac,bd=cf,be=cd,∠fde=58°求∠c的度数 已知三角形ABC三边abc的倒数成等差数列,证明:角B为锐角 已知,如图在三角形ABC中,AD,AE分别是三角形ABC的高和角平分线,若∠B=30度,∠C=50度.①求∠DAE的度数②试写出∠DAE与∠C-∠B有何关系(不必证明) 三角形ABC中,AB=AC,BD=CF,BE=CD,角FDE=58度求角A图 在锐角三角形abc中,角A,B,C的对边为a,b,c且(且(2a-c)cosB=bcosC ⑴求角b大小 ⑵设向量m=(sinA,1),n=(3,cos2A),求向量m*向量n的范围. 在△ABC中,∠B>∠C,AD为三角形的角平分线,AE为高线试说明∠DAE=1/2(∠B-∠C) 如图在△ABC中,点D,E,F分别在BC,AB,AC上,且BD=BE,CD=CF,∠A=70°,求∠FDE的度数 如图,已知锐角三角形ABC中,角A,角B,角C的对边分别是a,b,c.(1)试说明S△ABC=1/2absinC (2)若a=30cm,b=36cm,∠C=30°,求△ABC的面积 如图,在三角形ABC中,AD是BC边上的高,AE是三角形ABC的角平分线.若角B等于α,角C等如图,在△ABC中,AD是BC边上的高,AE是△ABC的角平分线。若∠B等于α,∠C等于β(α<β),用含α,β的代数式来表示
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn