本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2009年04月18日
统计字数: 462字
阅读时间: 1分钟阅读
本文链接: https://soulteary.com/2009/04/18/vb-get-char-han.html

-----


# [vb]获得汉字的区位码

获得汉字的区位码 CSDN:Hassle原创

```vb
Option   Explicit      
       
  Private   Declare   Sub   CopyMemory   Lib   "kernel32"   Alias   "RtlMoveMemory"   (Destination   As   Any,   Source   As   Any,   ByVal   Length   As   Long)      
       
  Private   Sub   Command1_Click()      
          MsgBox   Convert("保")      
  End   Sub      
       
  Private   Function   Convert(ByVal   sChar   As   String)   As   String      
          Dim   aBuf(0   To   1)   As   Byte      
          Dim   nCode   As   Integer      
          Dim   s   As   String      
          Dim   i   As   Long      
       
          Convert   =   ""      
          nCode   =   Asc(sChar)      
          CopyMemory   aBuf(0),   nCode,   2      
          For   i   =   0   To   1      
                  aBuf(i)   =   aBuf(i)   -   &HA0      
                  s   =   aBuf(i)      
                  If   Len(s)   =   1   Then   s   =   0   &   s      
                  Convert   =   s   &   Convert      
          Next      
  End   Function      
```