vb.net - 如何使用鼠标滚轮在一个图片框中循环图像？

Question

我正在制作一个简单的游戏，用户选择两种武器（主要和次要）。在游戏窗口中，武器显示在屏幕角落的图片框（picWeapon）中。我希望用户能够向上滚动（或向下滚动，因为只有一种其他武器）来选择辅助武器。我放置什么代码来使用鼠标滚轮循环浏览图像？

Answer 1

Private isPrimary As Boolean = True 'assumes the Primary image is already loaded
Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
    If e.Delta > 0 And isPrimary = False Then
        Debug.WriteLine("Scrolled up!")
        PicWeapon.Load(filepathOfPrimary)
        isPrimary = True
    ElseIF isPrimary = True Then
        Debug.WriteLine("Scrolled down!")
        PicWeapon.Load(filepathOfSecondary)
        isPrimary = False
    End If
End Sub