VB简繁的相互转换?
来源:百度知道 编辑:UC知道 时间:2024/05/15 13:21:27
Option Explicit
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
Dim Bz As TextBox
Dim STf As String, 繁体字符串
Dim STj As String, 简体字符串
Dim STlen As Long, 待转换字串长度
Private Sub Command1_Click() 'Gb码简体转繁体
STj = Text1(0).Text '简体
STlen = lstrlen(STj)
STf = Space(STlen)
LCMapString &H804, &H4000000, STj, STlen, STf, STlen
Text1(1).Text = STf '输出繁体
End Sub
Private Sub Command2_Click() 'Gb码繁体转简体
STf = Text1(1).Text '繁体
STlen = lstrlen(STf)
STj = Space(STlen)
LCMapString &H804, &H2000000, STf, STlen, STj, STlen
Text1(0).Text = S