vb.net - マウスホイールを使用して1つの画像ボックスで画像を循環させるにはどうすればよいですか？

Question

ユーザーが2つの武器（プライマリとセカンダリ）を選択する簡単なゲームを作成しています。ゲームウィンドウでは、武器は画面の隅にあるピクチャーボックス（picWeapon）に表示されます。ユーザーが上にスクロールして（または他の武器が1つしかないため下に）、セカンダリ武器を選択できるようにしたいと思います。マウスホイールを使用して画像を循環させるために配置するコードは何ですか？

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