Dim strSimplifiedChinese, strTraditionalChinese As String
strSimplifiedChinese = "我是中国人!"
strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁
Me.TextBox1.Text = strTraditionalChinese
strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简
Me.TextBox2.Text = strSimplifiedChinese
1328

被折叠的 条评论
为什么被折叠?



