如何判断,此时鼠标是否在控件范围内,如label控件表面

lbsoftware 2003-11-07 04:48:53
?
...全文
33 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyh_jason 2003-11-09
  • 打赏
  • 举报
回复
Public Function inobject(obj As Object) As Boolean
Dim locobj As POINTAPI, loc As POINTAPI
GetCursorPos loc
ClientToScreen obj.Parent.hwnd, locobj
If loc.X > locobj.X + obj.Left / Screen.TwipsPerPixelX And _
loc.Y > locobj.Y + obj.Top / Screen.TwipsPerPixelY And _
loc.X < locobj.X + (obj.Left + obj.Width) / Screen.TwipsPerPixelX And _
loc.Y < locobj.Y + (obj.Top + obj.Height) / Screen.TwipsPerPixelY Then
inobject = True
Else
inobject = False
End If
End Function

7,732

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧