英文
Dim dr As DataRow
If e.Form.Controls("English_2").Checked = True
For Each tb As Table In Tables '表
For Each cl As col In tb.cols
dr = DataTables("Language").find("[Chinese] = '" & cl.Caption & "'")
If dr IsNot Nothing
cl.Caption = dr("English")
End If
Next
tb.BuildHeader()
Next
For Each frm As Winform.Form In Forms '窗口
dr = DataTables("Language").find("[Chinese] = '" & frm.text & "'")
If dr IsNot Nothing
frm.text = dr("English")
End If
Next
For Each rt As RibbonMenu.Tab In RibbonTabs '菜单工能区
dr = DataTables("Language").find("[Chinese] = '" & rt.text & "'")
If dr IsNot Nothing
rt.text = dr("English")
End If
For Each gp As RibbonMenu.Group In RibbonTabs(rt.name).Groups '菜单功能组
dr = DataTables("Language").find("[Chinese] = '" & gp.text & "'")
If dr IsNot Nothing
gp.text = dr("English")
End If
For Each itm As RibbonMenu.RibbonItem In RibbonTabs(rt.name).Groups(gp.name).Items '菜单项目
Dim itms As String = RibbonTabs(rt.name).Groups(gp.name).Items(itm.name).text
dr = DataTables("Language").find("[Chinese] = '" & itms & "'")
If dr IsNot Nothing
RibbonTabs(rt.name).Groups(gp.name).Items(itm.name).text = dr("English")
End If
Next
Next
Next
SaveConfigValue("LangC", "English")
End If
Functions.Execute("Form_Translation")