|
发表于 2012-11-29 15:58:49
|
显示全部楼层
湖南省长沙市
我郁闷 看了源码 我想应该是大神级写的吧 不过我看了你的修改窗口大小发现两个地方有问题 你太粗心了 一个是逗号 你写成了“.” 还有就是置窗口大小的时候 宽高弄反了……
我修改了一下 额 我自己把输入框这里删了 不人性化 个人感觉吧- .版本 2
- .子程序 _按钮_窗口大小更改_被单击
- .局部变量 矩形, 精易_矩形
- .局部变量 窗口高度, 整数型
- .局部变量 窗口宽度, 整数型
- .局部变量 窗口顶边, 整数型
- .局部变量 窗口左边, 整数型
- .局部变量 分割, 文本型, , "0"
- 矩形 = 窗口_取位置和大小 (程序集_窗口句柄)
- 分割 = 分割文本 (编辑框_窗口大小.内容, “)”, )
- .判断开始 (取数组成员数 (分割) = 2)
- 矩形.高度 = 到数值 (取文本左边 (分割 [2], 寻找文本 (分割 [2], “,”, , 真) - 1))
- 矩形.宽度 = 到数值 (取文本右边 (分割 [2], 取文本长度 (分割 [2]) - 寻找文本 (分割 [2], “,”, , 真)))
- .默认
- 矩形.高度 = 到数值 (取文本左边 (分割 [1], 取文本长度 (分割 [1]) - 寻找文本 (分割 [1], “,”, , 真)))
- 矩形.宽度 = 到数值 (取文本右边 (分割 [1], 取文本长度 (分割 [1]) - 寻找文本 (分割 [1], “,”, , 真)))
- .判断结束
- 窗口_置位置和大小 (程序集_窗口句柄, , , 矩形.高度, 矩形.宽度)
- 编辑框_窗口大小.内容 = “(高,宽) ” + 到文本 (矩形.高度) + “,” + 到文本 (矩形.宽度)
复制代码 |
|