易语言程序变成繁体-一个子程序可以搞定，可在繁体系统上使用程序！

45383469

.版本 2
.支持库 iext
.支持库 eAPI

.子程序 组件标题繁体化, , 公开, 自动判断是不是繁体系统，如果是繁体系统，就将窗口标题转化为大五码
.参数 窗口, 窗口, , 需要繁体化窗口
.局部变量 句柄组, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 组件原标题, 文本型
.局部变量 寻找句柄, 整数型
.局部变量 超级列表框, 超级列表框
.局部变量 i1, 整数型
.局部变量 组合框, 组合框
.局部变量 选择夹, 选择夹
.局部变量 工具条, 工具条

.如果真 (取系统地方 () ＝ 1028)' 判断是否为繁体系统

' ----------------常见组件标题繁体化--------------------
需口_枚举子孙窗口 (窗口.取窗口句柄 (), , 句柄组)
加入成员 (句柄组, 窗口.取窗口句柄 ())
.计次循环首 (取数组成员数 (句柄组), i)
.如果真 (窗口_窗口是否停止响应 (句柄组 ) ＝ 假)' 如果取停止响应的窗口的标题，会导致程序死掉，所以先判断下
组件原标题 ＝ 取窗口标题 (句柄组 )
.如果真 (组件原标题 ≠ “”)
需口_置窗口标题 (句柄组 , 转换_GBK简体到BIG5 (组件原标题))
.如果真结束

.如果真结束

.计次循环尾 ()
' ----------------------超级列表框列标题繁体化------------------------
寻找句柄 ＝ 寻找组件 (窗口, “超级列表框”, , , )
.计次循环首 (取找到组件数目 (寻找句柄), i)
蔀级列表框 ＝ 取所找到组件 (寻找句柄, i － 1)
.计次循环首 (超级列表框.取列数 (), i1)
组件原标题 ＝ 超级列表框.取列标题 (i1 － 1)
.如果真 (组件原标题 ≠ “”)
蔀级列表框.置列标题 (i1 － 1, 转换_GBK简体到BIG5 (组件原标题))
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
' ----------------------组合框项目繁体化------------------------
寻找句柄 ＝ 寻找组件 (窗口, “组合框”, , , )
.计次循环首 (取找到组件数目 (寻找句柄), i)
组合框 ＝ 取所找到组件 (寻找句柄, i － 1)
.计次循环首 (组合框.取项目数 (), i1)
组件原标题 ＝ 组合框.取项目文本 (i1 － 1)
.如果真 (组件原标题 ≠ “”)
组合框.置项目文本 (i1 － 1, 转换_GBK简体到BIG5 (组件原标题))
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
' ---------------------选择夹子夹繁体化-------------------------------
寻找句柄 ＝ 寻找组件 (窗口, “选择夹”, , , )
.计次循环首 (取找到组件数目 (寻找句柄), i)
选择夹 ＝ 取所找到组件 (寻找句柄, i － 1)
.计次循环首 (选择夹.取子夹数目 (), i1)
组件原标题 ＝ 选择夹.取子夹名称 (i1)
.如果真 (组件原标题 ≠ “”)
选择夹.置子夹名称 (i1, 转换_GBK简体到BIG5 (组件原标题))
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
' -------------------------工具条------------------------------------
寻找句柄 ＝ 寻找组件 (窗口, “工具条”, , , )
.计次循环首 (取找到组件数目 (寻找句柄), i)
工具条 ＝ 取所找到组件 (寻找句柄, i － 1)
.计次循环首 (工具条.取按钮数 (), i1)
组件原标题 ＝ 工具条.取标题 (i1 － 1)
.如果真 (组件原标题 ≠ “”)
工具条.置标题 (i1 － 1, 转换_GBK简体到BIG5 (组件原标题))
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
清除组件寻找句柄 (寻找句柄)


联系我时，请说是在 挂海论坛 上看到的，谢谢！

ziliangail

支持, 海 淡定，淡定，淡定……

robot

新手啊，求指教 。。。。呵呵

仅剩的微笑

我抢、我抢、我抢沙发~

奈·Douma

帮你顶下哈！！

栀子花开

楼主是好人~~

xl58

淡定，淡定，淡定……

疼惜那份疼惜

激动人心，无法言表！

3642604393

强烈支持楼主ing……

ghost_z

一个字，强大，呵呵，当然如果有用的话