繁简体转换 - 笑看风云淡

繁简体转换

代码

   \'繁体转简体   

   Return (Microsoft.VisualBasic.Strings.StrConv(str, Microsoft.VisualBasic.VbStrConv.SimplifiedChinese, 0))  

 End Function 

 Public Shared Function Simplified2Traditional(ByVal str As String) As String 

   \'简体转繁体   

    Return (Microsoft.VisualBasic.Strings.StrConv(TryCast(str, String), Microsoft.VisualBasic.VbStrConv.TraditionalChinese, 0))  

End Function