使用picturebox和上一个按钮浏览图片

Question

我是VB的初学者，目前我正在尝试创建两个按钮，使我可以在在线文件夹中的图片中滑动。我需要某种方法来更改URL中的图像编号，这样按钮就可以让我在图片中移动。

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim pb1 As dispImg
    pb1 = New dispImg()
    pb1.picBox = PictureBox10
    pb1.load("http://aipot.wowspace.org/imageapix.php?uid=iti2015&folderid=71&img=1&key=xxxxx")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Dim pb1 As dispImg
    pb1 = New dispImg()
    pb1.picBox = PictureBox10
    pb1.load("http://aipot.wowspace.org/imageapix.php?uid=iti2015&folderid=71&img=2&key=xxxxxxx")

Answer 1

试试这个，注意private变量。

Private _CurrentImage as Int32 = 1
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    CurrentImage += 1
    Dim pb1 As dispImg
    pb1 = New dispImg()
    pb1.picBox = PictureBox10
    pb1.load(string.format("http://aipot.wowspace.org/imageapix.php?uid=iti2015&folderid=71&img={0}&key=xxxxx",_CurrentImage ))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    CurrentImage += 1
    Dim pb1 As dispImg
    pb1 = New dispImg()
    pb1.picBox = PictureBox10
    pb1.loadstring.format("http://aipot.wowspace.org/imageapix.php?uid=iti2015&folderid=71&img={0}&key=xxxxx",_CurrentImage )))
End Sub

我假设按钮4是上一个，按钮5是下一个。您可能想做一些工作来防止数字超出范围，但您可以看到递增/递减数字然后将其填充到字符串中是多么容易。