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