主题：为什么狐表的菜单可以翻译成功我自已做的翻译不成功呢？

 楼主，有木有例子？

 For Each q As object In QAT.Items
    q.text = "111"
Next

For Each c As object In ConfigBar.Items
    c.text = 222
Next

看一下帮助的 菜单设计->组件参考

 同样可以，楼主你试试便知。

 代码看着没错，你msgbox()看一下循环是否进去，还有就是一些变量的值，是否是你预期的值。

 那么，明显是没有进到循环里面。你一步一步调试一下，就知道原因了。

 msgbox(Vars("Fname"))

 不同的控件，属性可能不一致，分开处理。

For Each c As Winform.Control In Forms(Vars("当前窗口名称")).Controls

    If TypeOf c Is Winform.NavBar Then

    Else If TypeOf c Is WinForm.TreeView Then

    Else If TypeOf c Is WinForm.TabControl Then

    Else If TypeOf c Is WinForm.Panel Then

    Else

    End If
Next

 需要把窗口打开，才可能对窗口的的控件属性进行修改。

 再有就是，没有必要对每一个窗口打开的时候都执行一遍这个函数。

 写成两个函数，一个是控制全部窗口，一个控制当前窗口的。

Dim dr As DataRow
For Each f As WinForm.Form In forms
    Dim IsOpened As Boolean = True
    If f.Opened = False Then
        IsOpened = False
        f.Open()
        f.Visible = False
    End If

    For Each c As Winform.Control In f.Controls
        If TypeOf c Is Winform.NavBar Then
            Dim bar As WinForm.NavBar = f.Controls(c.name)
            For Each nb As WinForm.NavPage In bar.NavPages
                dr = DataTables("表B").find("[en] = '" & nb.ButtonText & "'")
                If dr IsNot Nothing
                    nb.Buttontext = dr(getConfigValue("语言类别", "cn"))
                End If
                dr = DataTables("表B").find("[cn] = '" & nb.ButtonText & "'")
                If dr IsNot Nothing
                    nb.Buttontext = dr(getConfigValue("语言类别", "en"))
                End If
            Next
        Else If Typeof c Is WinForm.TreeView Then
            Dim trv As WinForm.TreeView = f.Controls(c.name)
            For Each nd As WinForm.TreeNode In trv.AllNodes
                dr = DataTables("表B").find("[en] = '" & nd.text & "'")
                If dr IsNot Nothing
                    nd.text = dr(getConfigValue("语言类别", "cn"))
                End If
                dr = DataTables("表B").find("[cn] = '" & nd.text & "'")
                If dr IsNot Nothing
                    nd.text = dr(getConfigValue("语言类别", "en"))
                End If
            Next
        Else If TypeOf c Is WinForm.TabControl Then
            Dim tc As WinForm.TabControl = f.Controls(c.name)
            For Each pg As WinForm.TabPage In tc.TabPages
                dr = DataTables("表B").find("[en] = '" & pg.Text & "'")
                If dr IsNot Nothing
                    pg.text = dr(getConfigValue("语言类别", "cn"))
                End If
                dr = DataTables("表B").find("[cn] = '" & pg.Text & "'")
                If dr IsNot Nothing
                    pg.text = dr(getConfigValue("语言类别", "en"))
                End If
            Next
        Else If TypeOf c Is WinForm.Panel Then
        Else
           
            Dim ct As String = f.Controls(c.name).text
            dr = DataTables("表B").find("[en] = '" & ct & "'")
            If dr IsNot Nothing
                f.Controls(c.name).text = dr(getConfigValue("语言类别", "cn"))
            End If
            dr = DataTables("表B").find("[cn] = '" & ct & "'")
            If dr IsNot Nothing
                f.Controls(c.name).text = dr(getConfigValue("语言类别", "en"))
            End If
           
        End If
    Next
   
    If IsOpened = False Then f.Close()
Next

 闪动的问题，对于独立的窗口，可用 Forms().Open(-1000, -1000)。我找不到好的解决方法

 第一个问题呢，以为你窗口中有panel控件，而panel控件没有Text属性。

 第二个问题，对于一句代码，可以这样简写。

 

 这个方法不适用于你的例子。

 使用 stopRedraw的前提，是这个窗口已经打开，但是闪动是你这个窗口打开的过程。