📄 2108.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 26, 1998 at 01:26:36:<p>
In Reply to: <a href="2099.html"><b>拆出中文字的字码</b></a> posted by 阿晴 on February 25, 1998 at 06:09:34:<p>
<br>ImmConfigure... 的就不行<br>^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br>原本我也以为不行，后来我觉得很奇怪，这个function在Api检视员所列，<br>与Delphi中Win API的说明，二者参数不一致，于是找了一下Delphi的<br>imm.pas 发现，尚有ImmConfigureIMEA()，其实VB要呼叫这个才能Work啦<br>宣告及testing程式如下，可以worrk<br>注: 原本的ImmConfigureIMEA()的宣告应如下：而testing程式为了传Null<br>有做修改<br>Declare Function ImmConfigureIMEA Lib "imm32.dll" (ByVal hkl As Long, ByVal hwnd As Long, ByVal dw As Long, _ <br>    lpData As Any) As Long<p><br>'testing program<br>Private Declare Function ImmConfigureIMEA Lib "imm32.dll" (ByVal hkl As Long, ByVal hwnd As Long, ByVal dw As Long, _ <br>   ByVal lpData As Long) As Long<br>Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long<p><br>Private Sub Text1_DblClick()<br>Dim res As Long<br>Dim hkb5 As Long<br>'前题假设，text1目前的输入法是中文，才能work<br>hkb5 = GetKeyboardLayout(0)<br>res = ImmConfigureIMEA(hkb5, hwnd, 1, 0)<br>End Sub<p><br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2108-->
</ul><!--end: 2108-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -