2128.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 22 行

HTML
22
字号
<html>
  <head>
    <title>Re: 设定输入法</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>Re: 设定输入法</h1>
    </center>

<HR><p>
Posted by <a href="mailto:cww5@mail.ncku.edu.tw">cww</a> on February 27, 1998 at 00:05:13:<p>
In Reply to: <a href="2098.html"><b>设定输入法</b></a> posted by 阿晴 on February 25, 1998 at 05:54:06:<p>
使用 loadKeyboardLayout()可以改变order,只要第一个参数传<br>您要使之变成Top的KeyboardlayoutName,第二个参数传KLF_REORDER<br>便可,例如底下的例子便是<p>aa = LoadKeyboardLayout("e0060404", KLF_REORDER) '使大易 变top<br>aa = LoadKeyboardLayout("00000409", KLF_REORDER) '使英文变top<br>aa = LoadKeyboardLayout("e0010404", KLF_REORDER) '使注音变top<br>如此,使顺序变成<p>  注音<br>  英文<br>  大易<p><br>而如何得知每个输入法的keyboardlayName呢? 则使用<br>GetKeyboardLayoutname()它会传回Current KeyBoardLayoutName<br>配合GetKeyboardLayoutList 取得所有install的KeyBoard Handle<br>再用activateKeyboardlayout()来设定目前的keyboardLayout如下:<p>dim hkb5(24) as Long<br>dim kbdLayoutName(24) as string <br>Dim kln As String<br>kln = String(8, 0)<br>LayOutNO = GetKeyboardLayoutList(25, hkb5(0))<br>For i = 0 To LayOutNO - 1<br>   ActivateKeyboardLayout hkb5(i), 0<br>   res = GetKeyboardLayoutName(kln)<br>   kbdLayoutName(i) = kln<br>Next i<p><p><p>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2128-->
</ul><!--end: 2128-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?