Question

我正在尝试在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

结束班

Answer 1

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

 Dim imageCounter as Integer = 0

然后在Button Click中增加imageCounter，然后使用ToString()方法将其转换为String，以便它可以与文件位置和文件扩展名连接，这两个文件都是字符串。

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)

Visual Basic 2010 - 按钮上的多次单击循环浏览不同的背景图像

1 个答案: