1

我正在尝试通过 Vb 2010 中的不同本地背景图像进行按钮循环

但是，我是 VB 的新手，无法弄清楚如何做到这一点。每次单击按钮时，我都希望程序更改其背景图像（循环浏览文件夹中的图像）。

似乎这应该很容易，但对于我的生活我无法弄清楚。

下面的代码将更改它“一次”

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Button2.Click
    BackgroundImage = Image.FromFile("C:ProgramIcons\2.jpg")

End Sub

结束类

4

1 回答 1

1

您可以在表单顶部附近声明一个全局变量，例如

 Dim imageCounter as Integer = 0

然后在Button Click你的增量中imageCounter，然后使用ToString()方法将其转换为字符串，以便它可以与文件位置和文件扩展名连接起来，它们都是字符串。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Button2.Click
   imageCounter += 1 ' Increment Image Counter variable
   if (imageCounter> 5) Then ' greater than 5
      imageCounter = 1 ' Reset counter to 1
   End If
      'Convert to string and then concatenate with other string
   BackgroundImage = Image.FromFile("C:ProgramIcons\"+imageCounter.ToString()+".jpg")

End Sub

现在，这假设您有五 (5) 张图像，因此比较if (imageCounter > 5)

于 2013-11-06T11:30:35.997 回答