求救.编译生成都正确了.我是真找不到哪里错了.附文件打包

ylwangyi · 发表于 2011-12-6 23:49:54

请哪位有时间的兄弟,抽空帮我看一下.指点一下.

空间获取输入窗口名操作
整型线程句柄
字符型原窗口名
字符型新窗口名
字符型 x坐标
字符型 y坐标
整型窗口句柄1
//整型窗口句柄2  这好个像不需要

功能整型操作()
原窗口名=编辑框.获得文本("编辑框0")
   如果(字符串.长度(原窗口名)==0)
      辅助.消息框("请输入需要修改的原窗口名")
      返回 0
   如果结束
新窗口名=编辑框.获得文本("编辑框1")
   如果(字符串.长度(新窗口名)==0)
      辅助.消息框("请输入修改后的新窗口名")
      返回 0
   如果结束
x坐标=编辑框.获得文本("编辑框2")
   如果(字符串.长度(x坐标)==0)
      辅助.消息框("请输入修改后的窗口宽度(x坐标像素)")
      返回 0
   如果结束
y坐标=编辑框.获得文本("编辑框3")
   如果(字符串.长度(y坐标)==0)
      辅助.消息框("请输入修改后的窗口高度(y坐标像素)")
      返回 0
   如果结束
窗口句柄1=窗口.找到窗口(原窗口名)
// 窗口句柄2=窗口.找到窗口(新窗口名)  这好个像不需要
窗口.设置标题(窗口句柄1,新窗口名)
窗口.设置位置(窗口句柄1,0,0)
  整型宽度
  整型高度
  宽度=转换.字符型转整型(x坐标)
  高度=转换.字符型转整型(y坐标)
窗口.设置大小(窗口句柄1,宽度,高度)
返回 0
功能结束

功能逻辑型开始_点击()
//这里添加你要执行的代码
线程句柄=线程.开启("获取输入窗口名操作.操作")
返回真
功能结束

功能逻辑型退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回真
功能结束
空间结束