关于窗体事件的引发问题

resarter

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

lenghonghai

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

zhyzhsh

有几个接近的
MouseMove、Activate
Deactivate

resarter

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

wangminbai

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

resarter

用什么？？

Eric_Cheung

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

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

小fisher

对于VBA窗体，可以通过子类化使它产生这样的事件，见附件：
MouseLeaveEvent.rar (11.39 KB, 下载次数: 57)

2009-4-21 17:18 上传

点击文件名下载附件

对于Excel主窗口，用同样的方法就不行了，原因我还没弄清楚，但Excel会失去响应

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

resarter

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

原帖由 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()这个过程