[求助bestfeng斑主]请指教:如何实现下一页,上一页
我在ImageList1有５张图片，我只会写下一页代码，请指教:上一页代码如何写．谢谢了！！！
Private Sub command1_Click()
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub
[此贴子已经被作者于2006-12-13 21:01:40编辑过]
我在ImageList1有５张图片，我只会写下一页代码，请指教:上一页代码如何写．谢谢了！！！
Private Sub command1_Click()
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub
[此贴子已经被作者于2006-12-13 21:01:40编辑过]
2006-12-12 22:19