'VB中简单实现繁体简体互转
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) 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 ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：一串字符串中的简体汉字转换为繁体汉字 www.tugaga.com
'参数说明：strJT：要转换的简体汉字字符串
'返回说明：
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Private Function funJT_To_FT(ByVal strJT As String) As String
Dim strP As String
Dim lngP As Long
On Error GoTo errFun
funJT_To_FT = ""
lngP = lstrlen(strJT)
strP = Space(lngP)
LCMapString &H804, &H4000000, strJT, lngP, strP, lngP
funJT_To_FT = strP
Exit Function
errFun:
funJT_To_FT = ""
End Function
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：一串字符串中的繁体汉字转换为简体汉字 www.tugaga.com
'参数说明：strFT：要转换的繁体汉字字符串
'返回说明：
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Private Function funFT_To_JT(ByVal strFT As String) As String
Dim strP As String
Dim lngP As Long
On Error GoTo errFun
funFT_To_JT = ""
lngP = lstrlen(strFT)
strP = Space(lngP)
LCMapString &H804, &H2000000, strFT, lngP, strP, lngP
funFT_To_JT = strP
Exit Function
errFun:
funFT_To_JT = ""
End Function
以上代码加入到模块中
调用方法 text2.text=funJT_To_FT(text1.text)