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
沒有留言:
張貼留言