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