51Testing软件测试论坛

标题: 一个简单的循环问题 [打印本页]

作者: zhangyamin05    时间: 2009-12-21 18:05
标题: 一个简单的循环问题
'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=31"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=79"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=116"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=168"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=223"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=278"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=330"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=370"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=421"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=486"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=544"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=614"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=660"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=715"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=767"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=815"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=880"
    'ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=901"

上边是录制的一个移动滚动条的简单脚本,但这这样太长了,我想通过循环来实现这个功能。
按照简单的想法我改写成:
dim Count as integer,pll as integer
    for Count=0 to 18
      pll=50*count
      ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=pll"
    next count
但是发现滚动条没有动。
我是一个初学者,完全不懂是怎么回事,是不是 因为变量pll在双引号中,所以没有被当做变量处理?
作者: msnshow    时间: 2009-12-21 22:21
变量的话,好像要加{}
作者: zhangyamin05    时间: 2009-12-22 08:59
标题: 回复 2# 的帖子
按照你说的方法,把循环改为:
dim Count as integer,pll as integer
    for Count=0 to 18
      pll=50*count
      ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position={pll}"
    next count

还是没有动。
作者: 村上舞!舞!舞    时间: 2009-12-22 14:38
楼主,变量pll在""中,即被处理成常态字符串了。那样写的话肯定是不行的。
正确的写法应该是:
ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=" & pll
作者: zhangyamin05    时间: 2009-12-22 16:14
标题: 回复 4# 的帖子
对,我就是不知道怎么解决变量在双引号中。原来可以拿出来,我真的太菜了。
谢谢村上版主。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2