Private Sub Timer1_Timer() TIME控件的Interval属性是它循环的时间间隔,在enabled=true时执行以下操作,
If Text1(0).Left > Text1(intFirst).Left Then ‘如果(后面是你的条件,条件成立的话执行)
Text1(0).Left = Text1(0).Left - intSpeed
mblnMoving = True
Else ’否则(条件不成立的话执行)
mblnMoving = False
End If ‘结束这个判断
If Text1(11).Left < Text1(intSecond).Left Then 下面的等同上面判断句。
Text1(11).Left = Text1(11).Left + intSpeed
mblnMoving = True
Else
mblnMoving = False
End If
End Sub
执行完以上后,当TIME控件的Interval时间再次达到后,再判断一次以上程序段,一直到 enabled=false时结束判断
两个文本框左右移动。
intFirst?
intSpeed?
mblnMoving?
这些变量在其他地方如何操作,看不出来,还有计时器的属性也不清楚。