我是说在窗体的move事件里,那样就不用在每个控件的mousemove事件里判断了 一个一个地去判断了,你们误会我的意思了:)————我想做个函数,把它放到窗体movemouse事件上,当鼠标移动到任何控件上的时候, 显示提示文本 private sub form1_mousemove() dim ctl as control for each ctl in controls if 鼠标移动到控件上了 then ctl.tooltiptext=什么什么 next ctl end sub 怎么才能知道鼠标已经移动到了控件上了??? 我不想在每个控件的vmousemove事件上都多判断,这样很麻烦 象上面的代码那样,怎么判断鼠标移动到了控件上了????????????????????????????????????????????????????
我是说在窗体的move事件里,那样就不用在每个控件的mousemove事件里判断了 一个一个地去判断了,你们误会我的意思了:)————我想做个函数,把它放到窗体movemouse事件上,当鼠标移动到任何控件上的时候, 显示提示文本 private sub form1_mousemove() dim ctl as control for each ctl in controls if 鼠标移动到控件上了 then ctl.tooltiptext=什么什么 next ctl end sub 怎么才能知道鼠标已经移动到了控件上了??? 我不想在每个控件的vmousemove事件上都多判断,这样很麻烦 象上面的代码那样,怎么判断鼠标移动到了控件上了????????????????????????????????????????????????????
http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Generating_MouseLeave_Events_for_a_Window/article.asp
MsgBox "你把鼠标移到了按钮上"
End Sub
一个一个地去判断了,你们误会我的意思了:)————我想做个函数,把它放到窗体move事件上,当鼠标移动到任何控件上的时候,
显示提示文本
一个一个地去判断了,你们误会我的意思了:)————我想做个函数,把它放到窗体movemouse事件上,当鼠标移动到任何控件上的时候,
显示提示文本 private sub form1_mousemove()
dim ctl as control for each ctl in controls
if 鼠标移动到控件上了 then ctl.tooltiptext=什么什么
next ctl
end sub
怎么才能知道鼠标已经移动到了控件上了???
我不想在每个控件的vmousemove事件上都多判断,这样很麻烦
象上面的代码那样,怎么判断鼠标移动到了控件上了????????????????????????????????????????????????????
一个一个地去判断了,你们误会我的意思了:)————我想做个函数,把它放到窗体movemouse事件上,当鼠标移动到任何控件上的时候,
显示提示文本 private sub form1_mousemove()
dim ctl as control for each ctl in controls
if 鼠标移动到控件上了 then ctl.tooltiptext=什么什么
next ctl
end sub
怎么才能知道鼠标已经移动到了控件上了???
我不想在每个控件的vmousemove事件上都多判断,这样很麻烦
象上面的代码那样,怎么判断鼠标移动到了控件上了????????????????????????????????????????????????????