以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口菜单的自动翻译问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90206)
--  作者：atmetmicoo
--  发布时间：2016/9/7 17:30:00
--  [求助]窗口菜单的自动翻译问题
各位老师好，

每个窗口我都做了自动翻译，

Dim EFrom as String = e.Form.Name
For Each c As Winform.Control In Forms(EFrom).Controls

    If  Typeof c Is WinForm.CheckBox Then
        Dim w As WinForm.CheckBox = Forms(EFrom).Controls(c.name)
        Dim dr As DataRow = DataTables("SyLanuage").find("[cn] = \'" & w.Text & "\'")
        If dr IsNot Nothing
            w.text = dr("en")
        End If
    End If

    If  Typeof c Is WinForm.Table Then
        Dim w As WinForm.Table = Forms(EFrom).Controls(c.name)
        Dim t1 As String = EFrom & "_" & w.Name
        For Each cl As Col In Tables(t1).cols
            Dim dr As DataRow =  DataTables("SyLanuage").find("[cn] = \'" & cl.Caption & "\'")
            If dr IsNot Nothing
                cl.Caption = dr("en")
            End If
        Next
        Tables(t1).BuildHeader()
    End If
    \'省略很多代码...

Next

但是窗口菜单我不知道怎么历遍，哪位老师知道怎么写这个代码吗？谢谢。
--  作者：有点蓝
--  发布时间：2016/9/7 17:57:00
--  

For Each Strip As WinForm.Strip In e.Form.Strips
    For Each sit As WinForm.StripItem In Strip.Items
        Output.Show(sit.name)
    Next
Next