【Access示例】简体与繁体的互换
时 间:2018-08-31 08:21:56
作 者:缪炜 ID:24010 城市:江阴
摘 要:中文简体与繁体的互换
正 文:
代码模块:
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
附 件:
图 示:
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)