Question

vb语言中，怎么通过一个command按钮控制多幅图片的跳转，且这个按钮每跳

vb语言中，怎么通过一个command按钮控制多幅图片的跳转，且这个按钮每跳转一个画面就会改变内容，求大神帮忙

Answer 1

Dim max%, n%

Private Sub Command1_Click()
Image1.Picture = LoadPicture(App.Path & "\pic_test\" & n & ".jpg")
n = n + 1
If n > max Then n = 1
End Sub

Private Sub Form_Load()
Image1.Stretch = True
max = Val(InputBox("请输入图片总数", , 3))
n = 1
End Sub

供参考