汉字的-简体-繁体问题 ？？？

Question

对
看精华版
这是我在上面抄下来的
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 

Answer 1

lqf802(峰) 不行吧，你试试下面这程式，文本框2中显示的不是繁体中文
那GBBIG5的程式是用来内码转换的，我早就看过啦。Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1 = Text1.Text
Text2.Text = GBBIG5(s1, 2)
End Sub

Answer 2

采用VB的资源文件阿,可以实现你的要求的.不过要将所有的文字制作成多份版本的.如简体,繁体,日文,英文.关于具体方法,参见MSDN