我有一个名为的图片框BGImage
。我希望当用户单击此按钮时我可以捕获鼠标相对于BGImage
.
我尝试过使用MousePosition
,却发现它给出了鼠标在屏幕上的位置,而不是在 PictureBox 上。
所以我也尝试使用PointToClient
:
Dim MousePos As Point = Me.PointToClient(MousePosition)
但这给了我位置{X=1866,Y=55}
而我实际上点击了 PictureBox{X=516,Y=284}
.
我认为问题的出现是因为我已经全屏了我的程序并将PictureBox的位置设置在屏幕的中心(BGImage.Location = New Point((My.Computer.Screen.WorkingArea.Width / 2) - (1008 / 2), ((My.Computer.Screen.WorkingArea.Height / 2) - (567 / 2)))
)
我还应该提到 PictureBox 的大小是 1008 × 567 像素,而我的屏幕分辨率是 1366 × 768。
有什么办法可以获取鼠标位置relative到BGImage的位置?
将鼠标单击事件添加到图片框
然后使用 MouseEventArgs 获取图片框中的鼠标位置。
这将为您提供图片框内的 X 和 Y 位置。
Dim PPoint As Point
Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
PPoint = New Point(e.X, e.Y)
MsgBox(Convert.ToString(PPoint))
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)