查人人中国名人网襄阳装修公司排名:VB图片循环
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 05:21:42
Dim Index As Integer
Private Sub Next_Click()
Timer1.Enable = False
Index = (Index + 1) mod 4 '4幅图所以是4，10幅图就要是10
Select Case Index
Case 0 Picture1.Picture = LoadPicture("D:\1.jpg")
Case 1 Picture1.Picture = LoadPicture("D:\2.jpg")
Case 2 Picture1.Picture = LoadPicture("D:\3.jpg")
Case 3 Picture1.Picture = LoadPicture("D:\4.jpg")
End Select
End Sub
Private Sub Prev_Click()
Timer1.Enable = False
Index = Index - 1
If Index<0 Then Index = 4
Select Case Index
Case 0 Picture1.Picture = LoadPicture("D:\1.jpg")
Case 1 Picture1.Picture = LoadPicture("D:\2.jpg")
Case 2 Picture1.Picture = LoadPicture("D:\3.jpg")
Case 3 Picture1.Picture = LoadPicture("D:\4.jpg")
End Select
End Sub
Private Sub Form_Click()
Index = 0
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Index = 0
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Index = (Index + 1) mod 4
Select Case Index
Case 0 Picture1.Picture = LoadPicture("D:\1.jpg")
Case 1 Picture1.Picture = LoadPicture("D:\2.jpg")
Case 2 Picture1.Picture = LoadPicture("D:\3.jpg")
Case 3 Picture1.Picture = LoadPicture("D:\4.jpg")
End Select
End Sub