前年vb考试的一道上机题，大家帮我想想代码！

来源：百度知道 编辑：UC知道 时间：2024/05/29 21:09:37
窗体上有两根线，一上一下，还有一个圆，实心（Shape1）让这个圆在这两条线之间反复移动，现在想起来了，想知道代码，哪位能帮帮我！
应该是在计时器中编辑循环！
我只能让这个圆从上到下，但是回不去

放个Timer1,Interval属性设置为100,拖2条横线分别是Line1,Line2,放个圆shape1在2横线中间

Private ii As Boolean '这条代码放在所有代码的最上面,也就是声明部分,定义个程序集变量

Private Sub Timer1_Timer()
If ii = False Then
Shape1.Top = Shape1.Top + 100
If Shape1.Top + Shape1.Height >= Line2.Y1 Then ii = True
Else
Shape1.Top = Shape1.Top - 100
If Shape1.Top <= Line1.Y1 Then ii = False
End If
End Sub

HI me
把你的文件发给我改改

是不是应该用上下左右这个函数呢，让这个圆从上就是让它的高度变小，从下就是让这个圆的高度变大呢？试试，因为我是去年学的现在好像都不太清楚了。也许行，你试试