小弟想请教一下：

如图片所见的，怎样实现点击“开始“，黄色色块就从1开始向2，3，4。。。一只走，当点击”暂停”后，就停在当前是位置呢？

急！！！！！

图片重新上传一下

用timer比较好实现

这样的话代码会很乱的~
有没有更好的办法呢？？

谁知道用Timer怎么写~

改变8个数字的背景颜色就可以实现了
timer确实可以实现

是MovebgColor?

这个程序你做出来了吗
我做了一下
想使用静态变量控制
好像定义有问题

供参考一下
不知道错在哪里
应该是静态变量定义的问题

下面是代码

Private Sub Command1_Click()
If Command1.Caption = "开始" Or Command1.Caption = "继续" Then
Timer1.Enabled = True
Command1.Caption = "暂停"
Else
If Command1.Caption = "暂停" Then
Command1.Caption = "继续"
Timer1.Enabled = False
End If
End If
End Sub




Private Sub Form_Load()

Static i As Integer

For Each MyControl In Me
If TypeName(MyControl) = "Label" Then
MyControl.FontSize = 72
MyControl.Alignment = 2
End If
Next

For i = 0 To 7 Step 1
Label1(i).Caption = i + 1
Next i

End Sub




Private Sub Timer1_Timer()

Label1(i).BackColor = &HC0C0FF
i = ((i + 1) Mod 7) - 1

End Sub


望指教

嘿嘿
搂主我做出来了