以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口靠屏幕边 隐藏进去  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123413)
--  作者：湛江智
--  发布时间：2018/8/14 11:11:00
--  [求助]窗口靠屏幕边 隐藏进去

窗口靠屏幕边 隐藏进去，鼠标靠近隐藏进去的位置，窗口又出现，怎么实现呢？


图片点击可在新窗口打开查看此主题相关图片如下：屏幕边 隐藏进去.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/8/14 11:22:00
--  

参考

 

下载信息  [文件大小：296.0 KB  下载次数：32]
图片点击可在新窗口打开查看点击浏览该文件:qq停靠窗口.table
--  作者：瑞峰
--  发布时间：2021/3/9 22:59:00
--  
高级版打不开。。。
试用版又要激活
这种文件，有什么办法打开？

使用试用版时，还不能同时使用正式版
如果想借用代码，很不友好。。
--  作者：有点蓝
--  发布时间：2021/3/10 8:31:00
--  
以下是引用瑞峰在2021/3/9 22:59:00的发言：
高级版打不开。。。
试用版又要激活
这种文件，有什么办法打开？

使用试用版时，还不能同时使用正式版
如果想借用代码，很不友好。。

卸载试用版，到下载开发版的地方下载商业版安装即可
--  作者：瑞峰
--  发布时间：2021/3/15 7:01:00
--  
If e.Form.baseform.Top <= 0  Then
    
    Dim x As Integer = System.Windows.Forms.Cursor.current.position.x
    Dim y As Integer = System.Windows.Forms.Cursor.current.position.y
    If x < e.Form.BaseForm.Left OrElse x > e.Form.BaseForm.Left + e.Form.BaseForm.Width OrElse y > e.Form.BaseForm.Top + e.Form.BaseForm.Height Then
        e.Form.Baseform.Top = - e.Form.Baseform.Height + 10
    Else
        e.Form.Baseform.Top = 0
    End If
End If

这是其中的代码，贴出来了。
[此贴子已经被作者于2021/3/15 7:03:48编辑过]