当前位置:首页 » 程序代码 » 正文

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,输入结果是:台湾,香港这两个地方的人还在用繁体字

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/20.html

VB代码  API  
    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号