查看: 7  |  回复: 0
  VB6 代码管家-繁体字转换
楼主
发表于 2024年12月8日 22:19
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


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com