快速开发平台--快速实现多语言

时　间:2014-05-04 09:23:18
作　者:蓝色风暴   ID：20267  城市：闵行
摘　要:快速开发平台快速实现多语言
正　文:

（1）建立公用函数
'//***************************************************
'//函数名：ExportControls
'//函数功能:
'//               按照SysLocalResInterface表格式导出窗体的控件信息
'//输入参数：
'//                FormName：窗体名称
'//输出：
'//                按照SysLocalResInterface表格式导出窗体的控件信息
'//使用限制:
'//***************************************************
Public Sub ExportControls(FormName As String)
    Dim frmExport As Access.Form
    Dim ctl As Object
    If Not IsLoaded(FormName) Then
        DoCmd.OpenForm FormName, acDesign
    End If
    Set frmExport = Forms(FormName)
    On Error Resume Next
    Debug.Print "ObjectName; ControlName; PropertyName; English; CHS"
    For Each ctl In frmExport.Controls
        Debug.Print FormName & ";" & ctl.Name & ";Caption;" & ctl.Caption & ";" & ctl.Caption
    Next
    DoCmd.Close acForm, FormName
End Sub

（2）在立即窗口中运行函数输出信息

（3）将信息粘贴到Excel中进行编辑。注意用Excel的文本粘贴向导就可以自动完成分列

（4）用Access的外部数据（Excel）向导，将上一步的Excel文件追加到表SysLocalResInterface中

（5）在窗体的Load事件中添加语句：LoadLocalLanguage Me