zhangyamin05 发表于 2009-12-21 18:05:48

一个简单的循环问题

'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:43

变量的话，好像要加{}

zhangyamin05 发表于 2009-12-22 08:59:28

回复 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:54

楼主，变量pll在""中，即被处理成常态字符串了。那样写的话肯定是不行的。
正确的写法应该是：
ScrollBar VScrollTo, "Type=Control;Name=byLogCtrl1;\;Type=ScrollBar;Index=0", "Position=" & pll

zhangyamin05 发表于 2009-12-22 16:14:08

回复 4# 的帖子

对，我就是不知道怎么解决变量在双引号中。原来可以拿出来，我真的太菜了。
谢谢村上版主。
页: [1]
查看完整版本: 一个简单的循环问题