首页 科普 资讯 养生 问答 找医院 相关问答
首页> 问答

VB设置活动窗口的输入法:例用vb控制记事本的输入法为英文,如果为中文就...

发布网友 发布时间:2024-10-23 20:22

我来回答

2个回答

热心网友 时间:2024-11-02 15:00

我用Timer1设为200就是英文,你在控制记事本的时候,直接call Timer1_Timer里的程式
Option Explicit
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout 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 ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As Long
Const IME_CONFIG_GENERAL = 1
Const KLF_REORDER = &H8
Const KLF_ACTIVATE = &H1
Dim la(1 To 16) As Long
Dim ActIme As Long
Private Sub Timer1_Timer()
ActIme = "134481924"
ActivateKeyboardLayout ActIme, 1
End Sub

热心网友 时间:2024-11-02 15:01

dim a() as integer
p=inputbox("Input data:")
if p<0 then msgbox("no data!!!!!!!!!"):exit sub
do
i=i+1
redim preserve a(i-1)
a(i-1)=p
p=inputbox("Input data:")
loop until p<0
for l=0 to i-1
s=s+a(l)
next l
ave=s/(i-1)
for l=0 to i-1
if a(l)<ave then flag=flag+1
next
msgbox
梦幻国度里那些艺术的装备,黄金的装备怎么来的? 梦幻国度点解有人会全身发光的 梦幻国度红色光的发光首饰叫什么? 梦幻国度 为什么人家身上会发光? 梦幻国度 为什么有些人身周围有光 打雷时可以上网吗?是笔记本 临时急需一句话:闽南话是为了解决什么问题的? 畅销书单大全 12v汽车的启动电流是多少? 未签书面劳动合同时效是多久 ...从市场营销学的角度理解市场的含义及市场构成的三要素。 2.促销策... ipad15.1.1的系统怎么装不了软件这怎么办 单口USB充电器值得推荐有哪些? “四面乌鸢巢”的出处是哪里 “古桂和云攀”的出处是哪里 长孙佐辅简介 长孙佐辅名片 “德胜祸先戢”的出处是哪里 长孙佐辅的诗句名言有哪些 “莫如书字故难久”的出处是哪里 长孙佐辅其他作品 梦见下巴中枪是什么意思 梦见头被虫咬出了个洞看到骨头的预兆 1000kva变压器多少安 1000kva变压器空栽电流是多少 直筒裤是什么意思 想知道: 泉州市 晋江动车 在哪 清河五彩城站怎样才能去坐303公交车站 into you化妆品套盒划算吗?自用入手性价比如何? 大连303路公交车在龙畔五期上车几点到希望广场8点上班的人哦_百度知... 大连公交车303路龙盼金泉末班车几点 ...广场到龙畔金泉5期,多长时间啊。多长时间一趟车啊 剪完长发发朋友圈的句子长发剪短了发朋友圈的句子 ...是政府预算赤字?什么是外贸赤字?在宏观经济学当中NX是什么意思?为什 ... 我的OPPO手机的主题已经在电脑上改成med的格式了,可是为什么下载到手 ... Dead Fantasy中莉诺雅放传送的目的是什么? 英语达人帮忙翻译下~~~ 谢谢啊 男人要想成功,最需要改变的是什么?如何能让自我亢奋起来 怎么做才能成为一个成功的男人 吃蛋炒饭会不会智慧下降 百褶短裙搭配什么上衣 霉菌性阴炎是性病吗如题 谢谢了 阴道炎会传染给性伴侣吗 这三本作文买买哪种版本好,素材包括论点论据吗。 小学生获奖作文大全内容简介 手机储存多少才算大 82年属狗大海水命五行缺什么 189,133,128,9213,116,182,125,92求平均数和中位数,要过程 一段绳子,它的20%是15米,那么这段绳子一共有多少米? 一捆电线用去20米,剩下的比原来的75%少5米,这捆电线原来有多长?_百度... oppo语音设置在哪里_oppo语音设置在哪里设置怎么取消 我妈一个邮政银行卡,几年没用了, 储存卡。 现在能添加支付宝。 这卡... 刷机精灵好用吗?刷机精灵能刷OPPO Find 5 X909手机吗? 同学的oppo find5手机不知道出现了什么状况,(一段时间以前下过一个... 脱脂棉是什么东西脱脂棉介绍 oppofind5一键root后勿把oppo系统文件删了搞的现在没通知栏恢复出厂设置... oppo find5手机老是显示"很抱歉,程序出现异常即将退出"是怎么回事... 为什么独生子女后面就一定要带上自私 娇生惯养这样的词 ...如何将自己程序里的文字,输出到别的程序文本框中?像输入法一样... 血荒血荒原因 诈骗案件报警后,警方调查的车旅费需要报案人出么 血荒的血荒原因 你认为独生子女容易相处吗,为什么? 怎样安排作文层次 作文怎么分层?(初三语文) 作文如何分段 分层次? 高中通用技术学生设计作品:竹刻大佛笔筒|通用技术作品设计方案 绥宁县红岩镇开反纟证明盖章要手续费吗? ...有关晁盖的故事情节有哪些???急急急急急急急急急急急!! 邓禄普245/45r19轮胎多少钱一条 oppo find5怎么刷机 失恋后 前女友这样什么意思 刷机精灵可以刷 OPPO Find 5 X909 手机吗?刷机精灵谁用过? 我的OPPO find5升级color OS 不成功,就一直停留在开机时银色的oppo字... 对方报警了,我配合调查,报案人和警察有权利上我家吗 vb如何使用输入法? oppo find5 系统更新失败n次求解? ...vba 输入text1后回车光标自动跳到text2后光标自动跳回text1,如何实现... oppo find 5怎么刷机 我们俩两个月没联系了,我昨晚第一次梦到他了,我现在到底应该怎么办_百 ... 从富力桃园怎么坐车去广州市天河区科韵路16号广州信息港E栋网易大厦 虎皮青椒的详细做法是什么? 如何走出倦怠期??? ...vba 输入text1后回车光标自动跳到text2后光标自动跳回text1,如何实现... vb中怎么使用代码实现,输入框中输入汉字? 求大神赐教 我的oppo find5自从刷了1115的OTA增量包后,首次用了一下系统自带的一... 正宗虎皮青椒的做法是什么? 告诉我做一个 输入法 的思路(我用的是VB) 虎皮青椒的做法教程有哪些? OPPOfind5如何刷机
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com