Vb.net 如何使用鼠标滚轮在一个picturebox中循环图像?

Vb.net 如何使用鼠标滚轮在一个picturebox中循环图像?,vb.net,mouseevent,mousewheel,Vb.net,Mouseevent,Mousewheel,我正在做一个简单的游戏,用户选择两种武器主要和次要。在游戏窗口中,武器显示在屏幕角落的图片框中。我希望用户能够向上或向下滚动,因为只有一种武器可以选择第二种武器。使用鼠标滚轮在图像中循环时,我要放置什么代码?这不可能是PIC武器的事件。鼠标滚轮事件被发送到具有焦点的窗口,而不是悬停的窗口,PictureBox无法接收焦点。需要更多的代码来找出光标的位置。假设他们从上一页的3个下拉列表中选择了一个武器?如何加载主图像并将其指定为该类型的武器?我所想到的是在选择的情况下下拉:Dim Selected

我正在做一个简单的游戏,用户选择两种武器主要和次要。在游戏窗口中,武器显示在屏幕角落的图片框中。我希望用户能够向上或向下滚动,因为只有一种武器可以选择第二种武器。使用鼠标滚轮在图像中循环时,我要放置什么代码?

这不可能是PIC武器的事件。鼠标滚轮事件被发送到具有焦点的窗口,而不是悬停的窗口,PictureBox无法接收焦点。需要更多的代码来找出光标的位置。假设他们从上一页的3个下拉列表中选择了一个武器?如何加载主图像并将其指定为该类型的武器?我所想到的是在选择的情况下下拉:Dim Selected Answare as image。然后只需将SelectedBear插入PicBear.LoadSelectedBear,对吗?
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