Private Sub command1_Click()'下一页Static a As Integera = a + 1Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub这是压缩的文件
Private a As Integer
Private Sub command1_Click() a = a + 1 If a > 5 Then a = 5 Ima0.Picture = ImageList1.ListImages(a).PictureEnd Sub
Private Sub Command2_Click() a = a - 1 If a <= 0 Then a = 1 Ima0.Picture = ImageList1.ListImages(a).PictureEnd Sub