程序代码

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
Private Sub Command1_Click() '简转繁
    Dim STlen As Long
    Dim STf As String
    STlen = lstrlen(Text1)
    STf = Space(STlen)
    LCMapString &H804, &H4000000, Text1, STlen, STf, STlen
    Text1 = STf
End Sub
Private Sub Command2_Click() '繁转简
    Dim STlen As Long
    Dim STj As String
    STlen = lstrlen(Text1)
    STj = Space(STlen)
    LCMapString &H804, &H2000000, Text1, STlen, STj, STlen
    Text1 = STj
End Sub