会员
周边
众包
新闻
博问
闪存
赞助商
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
逍客
.net 、数据库、web开发
首页
联系
订阅
管理
VB.net 簡體繁體轉化代碼
需要imports Microsoft.VisualBasic
Public
Enum LanguageTo
Enum
LanguageTo
SimplifiedChinese
=
VbStrConv.SimplifiedChinese
TraditionnalChinese
=
VbStrConv.TraditionalChinese
End Enum
/**/
'''
<summary>
'''
語言轉化方法(可以將語言轉化成繁體中文或簡體中文)
'''
</summary>
'''
<param name="inputStr">
輸入的字符串
</param>
'''
<param name="TargetLanguage">
要轉化的目標語言
</param>
'''
<returns></returns>
'''
<remarks></remarks>
Public
Function StrConv()
Function
StrConv
(
ByVal
inputStr
As
String
,
ByVal
TargetLanguage
As
LanguageTo)
As
String
Dim
str
As
String
=
String
.Empty
str
=
Strings.StrConv(inputStr, TargetLanguage,
1033
)
'
使用1033作為LocalID,可以處理所有的非Assic字符
Return
str
End Function
posted @
2009-08-17 17:24
逍客1
阅读(
332
) 评论(
0
)
编辑
收藏
举报
刷新页面
返回顶部