网页功能: 加入收藏 设为首页 网站搜索  
将繁体中文字转化成简体中文
发表日期:2003-12-09作者:[] 出处:  

VB6中提供的StrConv这个函数,完全可以解决简繁体的转换问题。下面是一个简繁体的转换的函数,利用该函数区区几行代码,就可以轻松地实现简体到繁体、繁体到简体的相互转化。

'****** 简繁体互换 GB-->BIG5 Or BIG5-->GB *****************

'参数sStr为需要转换的文本

'参数iConver为要转化的类型,为1时表示繁体到简体的转换,为2时表示简体到繁体的转换

Function GBBIG5(sStr As String, iConver As Integer) As String

On Error Resume Next

  Dim STR

  If iConver = 1 Then 'BIG5-->GB

    STR = StrConv(sStr, vbFromUnicode, &H804)

    GBBIG5 = StrConv(STR, vbUnicode, &H404)

  ElseIf iConver = 2 Then 'GB-->BIG5

    STR = StrConv(sStr, vbFromUnicode, &H404)

    GBBIG5 = StrConv(STR, vbUnicode, &H804)

  End If

End Function

使用方法

Private Sub Command1_Click()

  Text2.Text = GBBIG5("我是中国人,我爱我的人民", 2)

End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 将繁体中文字转化成简体中文
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
  用VB创建Windows快捷方式(无需DLL)
  用vb调用系统输入法
  用VB制作IE工具条自定义按钮
  修改显示器的刷新频率
  vb实现多线程
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00375