dim towardleft as boolean 不要放在SUB里声明,放在一开始,就是标为通用的地方,或者用PUBLIC towardleft as boolean也可以的。问题是不要让变量towardleft在form_click()结束后被释放。

解决方案 »

  1.   

    dim towardleft as booleanprivate sub form_click() if towardleft=true then
       command1.left=command1.left-200
       towardleft=false
     else 
       command1.left=command1.left+200
       towardleft=true end if
    end sub
      

  2.   

    不大明白你的意思
    把dim towardleft as boolean提到private sub form_click()上面,
    在end if后加上一句towardleft = Not towardleft
    不就行了?
      

  3.   

    这样行不?
    private sub form_click()
     static towardleft as boolean
     if towardleft=true then
       command1.left=command1.left-200
     else 
       command1.left=command1.left+200
     end if
    end sub