如何用VB定鼠标移开窗体上就执行命令
1个回答
展开全部
可以用api 获取当前鼠标的位置，在判断鼠标是否在窗体上。
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
在时间控件时间里取得鼠标位置与窗体位置进行比较
sub timer1_timer()
dim p as POINTAPI
GetCursorPos p
p.x 与form1.left with进行比较
p.y与 form.top height 进行比较
end sub
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
在时间控件时间里取得鼠标位置与窗体位置进行比较
sub timer1_timer()
dim p as POINTAPI
GetCursorPos p
p.x 与form1.left with进行比较
p.y与 form.top height 进行比较
end sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
