|
地板

楼主 |
发表于 2014-6-1 23:27:03
|
只看该作者
#include"rew.t"
#include"rf.t"
空间 erd
dm=com("dm.dmsoft")
//默认空间
//开始按钮_点击操作
功能 开始_点击()
功能结束
//退出按钮_点击操作
功能 退出_点击()
辅助.退出()
功能结束
功能 按钮0_点击()
控件.设置位置("浏览器0",0,0,1022,685,0)
控件.设置位置("浏览器1",0,0,1022,685,0)
控件.设置位置("浏览器2",0,0,1022,685,0)
控件.设置位置("浏览器3",0,0,1022,685,0)
功能结束
功能 初始化()
控件.打开窗口("rf")
控件.打开窗口("rew")
功能结束
功能 选项卡0_选择改变()
索引值=选项卡.得到选项("选项卡0")
控件.可见("浏览器"&索引值,真)
控件.设置位置("浏览器"&索引值,0,25,1022,685,0)
选项卡.激活("选项卡1",索引值)
如果(索引值==0)
控件.可见("浏览器1",假)
控件.可见("浏览器2",假)
控件.可见("浏览器3",假)
如果结束
如果(索引值==1)
控件.可见("浏览器0",假)
控件.可见("浏览器2",假)
控件.可见("浏览器3",假)
如果结束
如果(索引值==2)
控件.可见("浏览器1",假)
控件.可见("浏览器0",假)
控件.可见("浏览器3",假)
如果结束
如果(索引值==3)
控件.可见("浏览器1",假)
控件.可见("浏览器2",假)
控件.可见("浏览器0",假)
如果结束
功能结束
功能 测试()
hwnd=编辑框.获得文本("编辑框12")
dm.BindWindowEx(hwnd,"dx3","dx","dx","",0)
循环(真)
dm.MoveTo(622,65)
help.sleep(300)
dm.LeftClick()
循环结束
功能结束
功能 按钮2_点击()
线程.开启("erd.测试","")
功能结束
空间结束
//空间结束语句 |
|