如何将ImageList集合中的图像传递给PictureBox

Question

为了建立我的技能，我正在为我的孩子们在VB.Net上开发一个小应用程序来帮助他们拼写单词。除此之外，这里是迄今为止的形式：

当用户点击“下一步”按钮时，我的ImageList集合中的3个图像被推送到PictureBox控件中，该控件将显示在表单的上半部分 - 我在运行时将其隐藏。但是，我只会在PictureBox中显示一个图像，而不是每次用户单击“下一步”时都显示所有图像。这是我连接下一个按钮的点击事件的代码：

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    'Get images and place them in the Imagebox on each click.

    Dim count As Integer
    count += 1
    If count < ImageList1.Images.Count - 1 Then
        count = 0
    End If
    PictureBox1.Image = ImageList1.Images(count)
End Sub

我无法为我的生活中点击通过时显示其他图像。任何人都可以为我提供解决方案并告诉我哪里出错了？最后，我想添加我预先录制的音频文件，当用户在显示图像时单击“下一步”时播放这些文件：

＆＃34;拼出单词＆＃39; Bicycle＆＃39;！＆＃34;

PictureBox包含自行车图像，依此类推。我非常感谢能够帮助我实现这一目标。感谢。

Answer 1

每次单击按钮Dim count As Integer时count为零，因为它是一个局部变量。即使在单击按钮后，也会将该值声明为Static。就像在Private count As Integer之外声明它一样，但只能在按钮点击子中看到它。

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    'Get images and place them in the Imagebox on each click.

    Static count As Integer = 0

    If count > ImageList1.Images.Count - 1 Then
        count = 0
    End If
    PictureBox1.Image = ImageList1.Images(count)

    count += 1
End Sub

瓦尔特