【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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)