各位老师好，
每个窗口我都做了自动翻译，
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
但是窗口菜单我不知道怎么历遍，哪位老师知道怎么写这个代码吗？谢谢。
加好友 
发短信
Post By：2016/9/7 17:30:00 [显示全部帖子]
