那位大哥能告诉我怎样实现繁体转换成简体，不胜感激，

Question

那位高手能告诉我用VB来实现繁体转换成简体，

Answer 1

辰龙:
     如何使用控件gb2big.ocx，代碼顯示！

Answer 2

如果系统装了繁体的，那么sGB= StrConv(bBig5, vbUnicode, &H404)

Answer 3

http://community.csdn.net/Expert/topic/2896/2896938.xml?temp=.8973505'你用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 IfEnd FunctionPrivate Sub Command1_Click()
    Text1.Text = GBBIG5("这是个测试程序", 2)
End Sub

Answer 4

'一下内容来自: http://www.vbguide.com.tw
'请一定使用单线程下载!不然会被封锁IP!(繁体中文)
http://www.vbguide.com.tw/howto/400/data/gb_big5.zip
或者下载
http://www.quanqiu.com/vb/
的第三个
没有限制,简体中文

Answer 5

StrConv 不行的
一堆字符不能转

Answer 6

参考我在这个帖子里的回复：
http://community.csdn.net/Expert/topic/2939/2939892.xml?temp=.2083704GBToBig3.TAB转换表文件在如下地址下载：
（该文件肯定存在，如果“找不到服务器”请多尝试几次，因为51.net空间不大稳定。）
http://smallfairy.51.net/GBToBig5.zip