繁简体转换
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
'繁体转简体
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
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