细菌性阴炎用甲硝唑吗:vb.net 简繁转换 .

来源:百度文库 编辑:中财网 时间:2024/05/04 17:45:13
Dim strSimplifiedChinese, strTraditionalChinese As String

        strSimplifiedChinese = "我是中国人!"

        strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁
        Me.TextBox1.Text = strTraditionalChinese


        strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简


        Me.TextBox2.Text = strSimplifiedChinese