[已解决]窗体隐藏与弹出问题

qq8945051

求助1.rar (13.15 KB, 下载次数: 16)

2014-7-17 13:04 上传

点击文件名下载附件   有3问题请教高手怎么解决1、窗体真正的隐藏  2、窗体隐藏灵活度 3、窗体弹出位置隐藏位置怎么更改

最佳答案

月排行榜 / 总排行榜

zjdh

2014-7-18 10:58

简单，把这句改一下：
Sub 监控()
    Dim LngCurPos As POINTAPI
    Dim NewRange As Range, XX%
    On Error Resume Next
    Do
        GetCursorPos LngCurPos
        On Error Resume Next
        Set NewRange = ActiveWindow.RangeFromPoint(LngCurPos.X, LngCurPos.Y)
        If Not NewRange Is Nothing Then
            If NewRange.Left > Application.Width - 150 Then   '150具体尺寸自己调整
                UserForm1.Show 0
                Exit Sub
            End If
        End If
        DoEvents
    Loop
End Sub

跳转到最佳答案楼层

zjdh

真正的隐藏就不是这样设计了，你得确认触发显示和隐藏的条件。

qq8945051

鼠标移到Excel右边缘跳出   鼠标移除窗体范围就自动隐藏  这个是条件

qq8945051

zjdh 发表于 2014-7-17 16:08
真正的隐藏就不是这样设计了，你得确认触发显示和隐藏的条件。

那是怎么设计的  求解答

zjdh

自动隐藏窗口.rar (13.58 KB, 下载次数: 86)

2014-7-17 19:57 上传

点击文件名下载附件

qq8945051

zjdh 发表于 2014-7-17 19:57

非常感谢zjdh  老师  另外请教个问题就是鼠标移到右边时为什么弹出窗口时  屏幕中间为什么也会出现窗体  不过是一闪而过的

zjdh

qq8945051 发表于 2014-7-18 08:18
非常感谢zjdh  老师  另外请教个问题就是鼠标移到右边时为什么弹出窗口时  屏幕中间为什么也会出现窗体   ...

那是初始用户窗体是显示在中间位置的，后又移到指定位置。

qq8945051

zjdh 发表于 2014-7-18 08:44
那是初始用户窗体是显示在中间位置的，后又移到指定位置。

老师还有个重要问题不知道能解决不  就是无法操作单元格工作表  

qq8945051

zjdh 发表于 2014-7-17 19:57

非常感谢 zjdh老师  窗口位置问题已经解决  但是单元格等操作无法执行  do ..loop  这个循环是否可改成条件  比如键盘鼠标无点击操作开始运行  或者鼠标在边缘时运行离开停止

zjdh

简单，把这句改一下：
Sub 监控()
    Dim LngCurPos As POINTAPI
    Dim NewRange As Range, XX%
    On Error Resume Next
    Do
        GetCursorPos LngCurPos
        On Error Resume Next
        Set NewRange = ActiveWindow.RangeFromPoint(LngCurPos.X, LngCurPos.Y)
        If Not NewRange Is Nothing Then
            If NewRange.Left > Application.Width - 150 Then   '150具体尺寸自己调整
                UserForm1.Show 0
                Exit Sub
            End If
        End If
        DoEvents
    Loop
End Sub