VB编程：汉字的简繁体转换 VB源码

以下提供汉字的简体转繁体，繁体转简体的代码，很是简单，但是有必要说明，汉字词的繁与简并不是一一对应的，如果要非常简单地简繁汉字转换，以下代码就非常实用，目前网上在线繁简转换，以及有些输入法的简繁转换都是使用这种方式；如果要比较准确地简繁转换，我看还是要一个相应的简繁汉字词的数据库。

好了，以下就是简繁汉字的转换的VB源代码：

先在窗体模块输入：

Private Declare Function LCMapString Lib "kernel32" Alias _
                          "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As _
                          Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, _
                          ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" _
                          (ByVal lpString As String) As Long

Dim StrTw As String, 繁体字符串
Dim StrCn As String, 简体字符串
Dim LenStr As Long, 待转换字串长度

然后在窗体画两个按钮，按钮1用来简体转繁体，按钮2用来繁体转简体，代码如下：
Private Sub Command1_Click() '简体转繁体
    StrCn = "广东人，辽宁人，台湾人都是中国人"
    LenStr = lstrlen(StrCn)
    StrTw = Space(LenStr)
    LCMapString &H804, &H4000000, StrCn, LenStr, StrTw, LenStr
    MsgBox StrTw
End Sub

Private Sub Command2_Click() '繁体转简体
    StrTw = "臺灣，香港這兩個地方的人還在用繁體字"
    LenStr = lstrlen(StrTw)
    StrCn = Space(LenStr)
    LCMapString &H804, &H2000000, StrTw, LenStr, StrCn, LenStr
    MsgBox StrCn
End Sub

点击按钮1,输入结果是：廣東人，遼寧人，臺灣人都是中國人
点击按钮2,输入结果是：台湾，香港这两个地方的人还在用繁体字

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/20.html