Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Select Case i Case 1 P1.Visible = False i += 1 Case 2 P2.Visible = False i += 1 Case 3 P3.Visible = False i += 1 Case 4 P4.Visible = False i += 1 Case 5 P5.Visible = False i += 1 Case 6 P6.Visible = False i += 1 Case 7 P1.Visible = True P2.Visible = True P3.Visible = True P4.Visible = True P5.Visible = True P6.Visible = True i = 1 End Select End Sub
winform啊
我的WinForm就是放的GIF,效果可好了,线程
貌似是这个方法来着
最简单的用一个timer加一个int型的 index变量
循环啊循环
bitmap也一样
Select Case i
Case 1
P1.Visible = False
i += 1
Case 2
P2.Visible = False
i += 1
Case 3
P3.Visible = False
i += 1
Case 4
P4.Visible = False
i += 1
Case 5
P5.Visible = False
i += 1
Case 6
P6.Visible = False
i += 1
Case 7
P1.Visible = True
P2.Visible = True
P3.Visible = True
P4.Visible = True
P5.Visible = True
P6.Visible = True
i = 1
End Select End Sub