简体和繁体的区别（简体与繁体的互换）

简体和繁体的区别（简体与繁体的互换）Const J2F_MAPFLAG = &H4000000 Dim strNew As StringPrivate Declare Function lStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As LongFunction Jian_Fan_Conv(ByVal strString As String Optional ByVal iMode As Integer = 0) As String Dim lStrLength As Long

中文简体与繁体的互换示例。

代码模块：

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long _

ByVal dwMapFlags As Long ByVal lpSrcStr As String ByVal cchSrc As Long ByVal lpDestStr As String ByVal cchDest As Long) As Long

Private Declare Function lStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Function Jian_Fan_Conv(ByVal strString As String Optional ByVal iMode As Integer = 0) As String

Dim lStrLength As Long

Dim strNew As String

Const J2F_MAPFLAG = &H4000000

Const F2J_MAPFLAG = &H2000000

Jian_Fan_Conv = ""

lStrLength = lStrLen(strString)

strNew = Space(lStrLength)

If iMode = 0 Then

LCMapString &H804 J2F_MAPFLAG strString lStrLength strNew lStrLength

Else

LCMapString &H804 F2J_MAPFLAG strString lStrLength strNew lStrLength

End If

Jian_Fan_Conv = strNew

End Function

示例下载 ：（在“了解更多”里下载）

图 示: