VB 获取某一控件上鼠标坐标时如何精确到小数点后4位
MOSVEMOVE事件返回的single类型的X,Y并没有精确到小数点后四位,有没有方法可以精确到小数点后四位呢?...
MOSVEMOVE事件返回的single类型的X,Y并没有精确到小数点后四位,有没有方法可以精确到小数点后四位呢?
展开
展开全部
鼠标坐标
一般都是整数,没有小数。
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub
及时 你加上 Round(p.y, "0000.0000"),得到的结果都是整数!!
实现这个功能没有什么意思。
一般都是整数,没有小数。
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub
及时 你加上 Round(p.y, "0000.0000"),得到的结果都是整数!!
实现这个功能没有什么意思。
追问
如果我想获取一张图片某个点更精细的坐标,有什么办法吗?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询