更改显示语言的2个函数,只是个思路...[1]

'降控件更改语言版本
'针对各个窗体读取控件信息写入控件信息

Public Function manageVer(strVer As String, Optional frmName As String)
    '不传参数所以窗体全部改变版本
    On Error Resume Next
    Dim rs As New ADODB.Recordset

    Dim i, k, ctl As Control, l
    For i = 0 To Forms.Count - 1
        DoEvents
        For Each ctl In Forms(i).Controls
        DoEvents
       
       
            If "FrmMIDmain" = Left(Forms(i).Caption, Len("FrmMIDmain")) Then
                k = 1
                frmName = "FrmMIDmain"
            End If
            If IsMissing(frmName) Then
                If Forms(i).Caption = frmName Then
                    k = 1
                End If
            Else
                l = 1
            End If
            If k = 1 Then
                Set rs = mysql("tblver", "ver", strVer, "frm", frmName, "ctlName", Trim(ctl.Name))
            Else
                Set rs = mysql("tblver", "ver", strVer, "frm", Forms(i).Caption, "ctlName", Trim(ctl.Name))
            End If
            With rs
                If k = 1 Or l = 1 Then