Question

求教VB大神，小弟刚学VB，有一段程序求大神给每个语句解释注释一下，谢谢大神~

Private Static Sub timer2_timer(index As Integer)
Select Case index
Case 0
Shape7(0).Top = Shape7(0).Top + 40: Shape7(2).Top = Shape7(2).Top + 40: Shape7(3).Top = Shape7(3).Top + 40
Case 1
Shape7(0).Top = Shape7(0).Top - 40: Shape7(1).Top = Shape7(1).Top - 40
Shape7(2).Top = Shape7(2).Top - 40: Shape7(3).Top = Shape7(3).Top - 40
Case 2
Shape7(0).Left = Shape7(0).Left + 55: Shape7(1).Left = Shape7(1).Left + 55
Shape7(2).Left = Shape7(2).Left + 55: Shape7(3).Left = Shape7(3).Left + 55
Case 3
Shape7(0).Top = Shape7(0).Top + 40: Shape7(1).Top = Shape7(1).Top + 40
Shape7(2).Top = Shape7(2).Top + 40: Shape7(3).Top = Shape7(3).Top + 40
Case 4
Shape7(0).Top = Shape7(0).Top - 60: Shape7(2).Top = Shape7(2).Top - 60
Shape7(3).Top = Shape7(3).Top - 60: Shape7(2).Left = Shape7(2).Left - 7: Shape7(3).Left = Shape7(3).Left + 7
Case 5
Shape7(0).Left = Shape7(0).Left - 36: Shape7(2).Left = Shape7(2).Left - 36: Shape7(3).Left = Shape7(3).Left - 36: Shape7(1).Left = Shape7(1).Left - 36
Case 6
Shape7(2).Left = Shape7(2).Left + 7: Shape7(3).Left = Shape7(3).Left - 7
End Select
End Sub

Answer 1

根据index的值不同，Shape位置发生相应的变化，简单说：动画