- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口的 双语 编辑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44667)
-- 发布时间：2014/1/6 14:41:00
-- [求助]窗口的 双语 编辑
有谁会 设置 窗口的 双语 编辑啊？？
现在内容可以双语，但是 窗口标题 实现不了双语， 哪位大侠会啊？
-- 发布时间：2014/1/6 14:50:00
--
使用代码设置即可啊
case "中文"
e.Form.Text="一"
case "英文"
e.Form.Text="one"
-- 发布时间：2014/1/6 16:58:00
--
如果FOXTABLE本身提供这样的功能就好了。
-- 发布时间：2014/1/6 17:01:00
--
呵呵,需求比较小,而且代码操作也不复杂,没必要什么都集成,造成软件臃肿!
-- 发布时间：2014/1/6 20:23:00
--
亲们， 谢谢哈
，
还有个问题啊，
我是照着 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=22602 做双语翻译的，
但 添加 TabControl 组件的时候 却 无法实现 双语， 这个 能解决吗？
-- 发布时间：2014/1/6 20:46:00
--
回复5楼，具体问题，具体分析，上传个例子瞧瞧。
-- 发布时间：2014/1/7 14:58:00
--
里面
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:商品.foxdb |
几个 不会 该双语啊..................... 好悲催
各位大侠 帮帮忙被
-- 发布时间：2014/1/7 15:03:00
--
你这例子各种报错,你那里不会实现?
-- 发布时间：2014/1/7 20:49:00
--
或者你可以看看这个
-- 发布时间：2014/1/7 21:01:00
--
你的内部函数这样写。对于button等其他几个控件，你是要单独判读和处理才行的。
For Each c As Winform.Control In Forms(Vars("当前窗口名称")).Controls
If Typeof c Is WinForm.TreeView Then
Dim trv As WinForm.TreeView = Forms(Vars("当前窗口名称")).Controls(c.name)
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim dr As DataRow = DataTables("语言").find("[jp] = \'" & nd.name & "\'")
If dr IsNot Nothing
nd.text = dr(getConfigValue("语言类别", "cn"))
End If
Next
Else
Dim dr As DataRow = DataTables("语言").find("[jp] = \'" & c.name.split("_")(0) & "\'")
If dr IsNot Nothing
Dim cl As object = Forms(Vars("当前窗口名称")).Controls(c.name)
If Array.Indexof(cl.Gettype.getproperties, "Text") > -1 Then
cl.text = dr(getConfigValue("语言类别", "cn"))
End If
End If
End If
Next