[求助][求助bestfeng斑主]请指教:如何实现下一页,上一页
[求助bestfeng斑主]请指教:如何实现下一页,上一页
我在ImageList1有5张图片,我只会写下一页代码,请指教:上一页代码如何写.谢谢了!!!
Private Sub command1_Click()
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub
[求助bestfeng斑主]请指教:如何实现下一页,上一页
我在ImageList1有5张图片,我只会写下一页代码,请指教:上一页代码如何写.谢谢了!!!
Private Sub command1_Click()
Static a As Integer
a = a + 1
Ima0.Picture = ImageList1.ListImages(a Mod 5 + 1).Picture
End Sub
用一个Slider1做计数器
Private Sub Command1_Click()
Slider1.Value = Slider1.Value + 1
Text1.Text = Slider1.Value
End Sub
Private Sub Command2_Click()
Slider1.Value = Slider1.Value - 1
Text1.Text = Slider1.Value
End Sub
Private Sub Form_Load()
End Sub