[求助bestfeng斑主]请指教:如何实现下一页,上一页我在ImageList1有5张图片,我只会写下一页代码,请指教:上一页代码如何写.谢谢了!!!
Private Sub command1_Click()Static a As Integera = a + 1Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub
Private Sub command1_Click()'下一页Static a As Integera = a + 1Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub这是压缩的文件