Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将程序窗口置最前 or qq停靠窗口


  共有2217人关注过本帖树形打印复制链接

主题：[求助]如何将程序窗口置最前 or qq停靠窗口
帅哥哟，离线，有人找我吗？
瑞峰
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：2092 威望：0 精华：0 注册：2018/10/8 13:32:00 		[求助]如何将程序窗口置最前 or qq停靠窗口  发帖心情 Post By：2021/3/4 8:59:00 [只看该作者]

1. 如何将程序窗口置最前？
2. 像QQ那样，可以隐藏在屏幕边，鼠标移至时，才出现
3. 可以折叠，缩小成一小条

以下代码实例，没有达到效果

TimerTick

窗口计时器代码，根据设定的间隔执行

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/24 23:33:28编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/4 9:18:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
瑞峰
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：2092 威望：0 精华：0 注册：2018/10/8 13:32:00 		  发帖心情 Post By：2021/3/4 10:28:00 [只看该作者]

可以将FT开发的程序窗口置于最前吗？
打开之后的第一个窗口
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/4 10:31:00 [只看该作者]

窗口afterload

e.Form.baseform.Topmost = True
ShowAppWindow(e.form.text,1)
 回到顶部
帅哥哟，离线，有人找我吗？
瑞峰
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：2092 威望：0 精华：0 注册：2018/10/8 13:32:00 		  发帖心情 Post By：2021/3/8 23:14:00 [只看该作者]

蓝版，如果让窗口像QQ这样可以隐于显示器边上，鼠标移至时，就可以显现，
这种效果怎么实现？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 23:23:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
瑞峰
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：2092 威望：0 精华：0 注册：2018/10/8 13:32:00 		  发帖心情 Post By：2021/3/24 23:34:00 [只看该作者]

以下代码实例，没有达到效果，不会隐藏窗口，也不会显示窗口

TimerTick

窗口计时器代码，根据设定的间隔执行

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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/25 8:24:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
瑞峰
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：2092 威望：0 精华：0 注册：2018/10/8 13:32:00 		  发帖心情 Post By：2021/3/26 7:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210326070504.png
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口隐藏.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/26 9:11:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口隐藏.zip
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询