关于窗体事件的引发问题

resarter · 发表于 2009-4-21 08:36

各位师傅,
Excel中，当鼠标指向窗体或离开窗体时，自动引发的事件是那个？？？

lenghonghai · 发表于 2009-4-21 08:36

EXCEL中好象没有这个事件吧.

zhyzhsh · 发表于 2009-4-21 08:52

有几个接近的
MouseMove、Activate
Deactivate

resarter · 发表于 2009-4-21 10:28

用MouseMove的话，指向该窗体就会不停执行，而不是执行一次；
用另外两个，好像没有反应。

wangminbai · 发表于 2009-4-21 10:35

没有这个时间，但是也可以用其他方法来判断

resarter · 发表于 2009-4-21 12:22

用什么？？

Eric_Cheung · 发表于 2009-4-21 12:52

鼠標離開的應該不行吧..
勉強些可以用mousemove來做..不過好像需要一定的計算量...

還是..樓主你是想說那個失去蕉點的事件?

小fisher · 发表于 2009-4-21 16:57

对于VBA窗体，可以通过子类化使它产生这样的事件，见附件：

MouseLeaveEvent.rar (11.39 KB, 下载次数: 57)
对于Excel主窗口，用同样的方法就不行了，原因我还没弄清楚，但Excel会失去响应

[ 本帖最后由小fisher 于 2009-4-21 17:18 编辑 ]

resarter · 发表于 2009-4-22 19:45

Private Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Debug.Print Hex(Msg)
Select Case Msg
      Case WM_MOUSEMOVE
         If Not bMouseIn Then
            UserForm1.MouseEnter
            bMouseIn = True
         End If
         Dim tme As TrackMouseEvent
         tme.cbSize = Len(tme)
         tme.dwFlags = TME_LEAVE
         tme.dwHoverTime = 100
         tme.hwndTrack = hwnd
         TrackMouseEvent tme
      Case WM_MOUSELEAVE
         UserForm1.MouseLeave
         bMouseIn = False
End Select

WindowProc = CallWindowProc(lOldProc, hwnd, Msg, wParam, lParam)
End Function

调用测试，说UserForm1没有指定对象？是咋回事？？我把实例的代码copy的相应的模块，窗口打开，鼠标指向窗口点击就窗口就不动了，死机一般，必须强行关闭文件才行。

小fisher · 发表于 2009-4-23 00:12

原帖由 resarter 于 2009-4-22 19:45 发表
Private Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Debug.Print Hex(Msg)
Select Case Msg
      Case WM_MOUSEMOVE
   ...
      Case WM_MOUSELEAVE
         UserForm1.MouseLeave
         bMouseIn = False
End Select

WindowProc = CallWindowProc(lOldProc, hwnd, Msg, wParam, lParam)
End Function

调用测试，说UserForm1没有指定对象？是咋回事？？我把实例的代码copy的相应的模块，窗口打开，鼠标指向窗口点击就窗口就不动了，死机一般，必须强行关闭文件才行。

我上传的原件打开没问题吧？
检查一下你自己的文件中被子类化的窗口名称是不是Userform1，如果不是的话把红色部分改为你自己窗口的名称，而且要保证窗口代码中有Public Sub MouseLeave()这个过程

		自动登录	找回密码
密码			免费注册

[求助] 关于窗体事件的引发问题

点评

回复 5楼 wangminbai 的帖子

回复 8楼小fisher 的帖子

[求助] 关于窗体事件的引发问题

点评

回复 5楼 wangminbai 的帖子

回复 8楼 小fisher 的帖子

回复 8楼小fisher 的帖子