2012年4月18日 星期三

使用簡繁互轉

        Dim strData As String

        ' 將繁體中文字轉換成簡體中文
        strData = StrConv("教育學習,複製貼上", VbStrConv.SimplifiedChinese, 2052)
        MessageBox.Show(strData) ' 顯示簡體中文字

        ' 將簡體中文字轉換成繁體中文
        strData = StrConv(strData, VbStrConv.TraditionalChinese, 2052)
        MessageBox.Show(strData) ' 顯示繁體中文字

參考來源:
http://sanchen.blogspot.com/2007/12/microsoftvisualbasicstringsstrconv.html
 http://blog.blueshop.com.tw/hammerchou/archive/2006/06/03/27692.aspx

沒有留言:

張貼留言